?? initdata.dfm
字號:
object systemForm: TsystemForm
Tag = 11100
Left = 212
Top = 92
BorderStyle = bsDialog
Caption = '其他數據初始化'
ClientHeight = 343
ClientWidth = 373
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel
Left = 26
Top = 9
Width = 96
Height = 12
Caption = '庫房基礎數據維護'
end
object Label3: TLabel
Left = 26
Top = 162
Width = 96
Height = 12
Caption = '部門基礎數據維護'
end
object Button1: TButton
Left = 27
Top = 307
Width = 169
Height = 25
Caption = '初始化菜單數據'
TabOrder = 0
Visible = False
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 27
Top = 27
Width = 320
Height = 120
DataSource = DataSource1
PopupMenu = data.pm_Export
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Color = clInfoBk
Expanded = False
FieldName = 'KFDM'
Title.Caption = '庫房代碼'
Width = 71
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'KFMC'
Title.Caption = '庫房名稱'
Width = 210
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 246
Top = 2
Width = 100
Height = 25
DataSource = DataSource1
VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 2
end
object DBGrid2: TDBGrid
Left = 27
Top = 180
Width = 320
Height = 120
DataSource = DataSource2
PopupMenu = data.pm_Export
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Color = clInfoBk
Expanded = False
FieldName = 'BMDM'
Title.Caption = '部門代碼'
Width = 71
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'BMMC'
Title.Caption = '部門名稱'
Width = 210
Visible = True
end>
end
object DBNavigator2: TDBNavigator
Left = 246
Top = 155
Width = 100
Height = 25
DataSource = DataSource2
VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 4
end
object button2: TBitBtn
Left = 273
Top = 309
Width = 75
Height = 25
Caption = '返回(&X)'
TabOrder = 5
OnClick = Button2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object DataSource1: TDataSource
DataSet = Table1
Left = 288
Top = 94
end
object Table1: TTable
OnUpdateError = Table1UpdateError
DatabaseName = 'YZPP'
TableName = 'TGS_KFB'
Left = 253
Top = 94
end
object DataSource2: TDataSource
DataSet = Table2
Left = 280
Top = 239
end
object Table2: TTable
OnUpdateError = Table2UpdateError
DatabaseName = 'YZPP'
TableName = 'TGS_BMB'
Left = 245
Top = 239
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -