?? u_main.dfm
字號:
object F_main: TF_main
Left = 205
Top = 150
Width = 696
Height = 480
Caption = #24037#36164#31649#29702#31995#32479
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
DesignSize = (
688
434)
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel
Left = 8
Top = 16
Width = 36
Height = 12
Caption = #37096#38376#65306
end
object Label3: TLabel
Left = 8
Top = 40
Width = 60
Height = 12
Caption = #21592#24037#21015#34920#65306
end
object Label7: TLabel
Left = 128
Top = 200
Width = 97
Height = 13
Anchors = [akTop]
AutoSize = False
Caption = #22266#23450#31119#21033#27941#36148#65306
end
object Label14: TLabel
Left = 272
Top = 200
Width = 60
Height = 13
Anchors = [akTop]
AutoSize = False
Caption = #26376#24230#22870#37329#65306
end
object Label15: TLabel
Left = 416
Top = 200
Width = 81
Height = 13
Anchors = [akTop]
AutoSize = False
Caption = #26376#24230#31119#21033#27941#36148#65306
end
object Label16: TLabel
Left = 560
Top = 200
Width = 60
Height = 13
Anchors = [akTop]
AutoSize = False
Caption = #26376#24230#25187#21457#65306
end
object Gauge1: TGauge
Left = 208
Top = 376
Width = 97
Height = 17
Progress = 0
end
object StatusBar1: TStatusBar
Left = 0
Top = 415
Width = 688
Height = 19
AutoHint = True
Panels = <
item
Width = 300
end
item
Style = psOwnerDraw
Width = 100
end
item
Text = #23578#26410#30331#24405#26381#21153#22120#12290#35831#25353'F2'#30331#24405#12290
Width = 200
end>
SimplePanel = False
end
object GroupBox1: TGroupBox
Left = 120
Top = 8
Width = 561
Height = 57
Anchors = [akTop]
Caption = #22522#26412#20449#24687
TabOrder = 1
object Label1: TLabel
Left = 160
Top = 24
Width = 48
Height = 13
AutoSize = False
Caption = #21592#24037#21495#65306
end
object Label4: TLabel
Left = 280
Top = 24
Width = 36
Height = 13
AutoSize = False
Caption = #22995#21517#65306
end
object Label5: TLabel
Left = 384
Top = 24
Width = 60
Height = 13
AutoSize = False
Caption = #22522#26412#24037#36164#65306
end
object Label6: TLabel
Left = 504
Top = 24
Width = 49
Height = 13
AutoSize = False
Caption = #20803'/'#23567#26102
end
object Label13: TLabel
Left = 16
Top = 24
Width = 60
Height = 12
Caption = #37096#38376#21517#31216#65306
end
object i_salary: TDBEdit
Left = 440
Top = 20
Width = 57
Height = 20
Hint = #22522#26412#24037#36164#35774#32622
DataField = 'SALARY'
DataSource = DM_main.DS_salary_set
TabOrder = 0
end
object i_person_id: TMaskEdit
Left = 208
Top = 20
Width = 65
Height = 20
Hint = #36755#20837#21592#24037#21495#65292#26174#31034#30456#24212#20449#24687#12290
EditMask = '>a!99999;1;_'
MaxLength = 6
TabOrder = 1
Text = ' '
OnChange = i_person_idChange
end
object i_person_name: TEdit
Left = 312
Top = 20
Width = 65
Height = 20
Hint = #21592#24037#22995#21517
Enabled = False
TabOrder = 2
end
object i_depart_name: TEdit
Left = 80
Top = 20
Width = 73
Height = 20
Hint = #37096#38376#21517#31216
Enabled = False
TabOrder = 3
end
end
object DBGrid1: TDBGrid
Left = 8
Top = 56
Width = 105
Height = 353
Anchors = [akLeft, akTop, akBottom]
DataSource = DM_main.DS_person_list
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'ID'
Title.Caption = #21592#24037#21495
Width = 42
Visible = True
end
item
Expanded = False
FieldName = 'NAME'
Title.Caption = #22995#21517
Visible = True
end>
end
object i_depart_id: TMaskEdit
Left = 48
Top = 12
Width = 65
Height = 20
Hint = #36755#20837#37096#38376#20195#30721#65292#26816#32034#37096#38376#21592#24037#12290#36755#20837'*'#21495#65292#26174#31034#25152#26377#21592#24037#12290
EditMask = '>ccc;1;_'
MaxLength = 3
TabOrder = 3
Text = ' '
OnChange = i_depart_idChange
end
object GroupBox2: TGroupBox
Left = 120
Top = 72
Width = 561
Height = 113
Anchors = [akTop]
Caption = #28155#21152#22870#37329#12289#31119#21033#12289#27941#36148#12289#25187#21457#39033
TabOrder = 4
object Label8: TLabel
Left = 24
Top = 24
Width = 36
Height = 12
Caption = #24180#26376#65306
end
object Label9: TLabel
Left = 160
Top = 56
Width = 36
Height = 12
Caption = #37329#39069#65306
end
object Label10: TLabel
Left = 280
Top = 56
Width = 12
Height = 12
Caption = #20803
end
object Label11: TLabel
Left = 160
Top = 24
Width = 36
Height = 12
Caption = #21517#30446#65306
end
object Label12: TLabel
Left = 312
Top = 24
Width = 60
Height = 12
Caption = #20855#20307#35828#26126#65306
end
object i_yearmonth: TMaskEdit
Left = 64
Top = 20
Width = 73
Height = 20
Hint = #26376#24230#32534#21495#65292#26684#24335#65306'YYYY-MM'
EditMask = '!0000-00;1;_'
MaxLength = 7
TabOrder = 0
Text = ' - '
OnChange = i_yearmonthChange
end
object i_type: TRadioGroup
Left = 24
Top = 48
Width = 113
Height = 57
Caption = #39033#30446
Columns = 2
ItemIndex = 0
Items.Strings = (
#22870#37329
#31119#21033
#27941#36148
#25187#21457)
TabOrder = 1
end
object i_money: TSpinEdit
Left = 200
Top = 51
Width = 73
Height = 21
Hint = #36755#20837#37329#39069
Increment = 100
MaxLength = 5
MaxValue = 100000
MinValue = 0
TabOrder = 2
Value = 0
end
object i_name: TComboBox
Left = 200
Top = 20
Width = 97
Height = 20
Hint = #35831#36873#25321#25110#36755#20837#39033#30446#21517#31216
ItemHeight = 12
TabOrder = 3
Items.Strings = (
#22870#37329
#31119#21033'1'
#31119#21033'2'
#31119#21033'3'
#27941#36148'1'
#27941#36148'2'
#27941#36148'3'
#25187#32602'1'
#25187#32602'2'
#25187#32602'3')
end
object i_fixed: TCheckBox
Left = 176
Top = 80
Width = 113
Height = 17
Hint = #22266#23450#31119#21033#27941#36148#23558#22312#27599#20010#26376#30340#35745#31639#20013#20351#29992#12290
Caption = #22266#23450#31119#21033#27941#36148
TabOrder = 4
end
object i_description: TMemo
Left = 312
Top = 40
Width = 121
Height = 57
Hint = #36755#20837#35828#26126#65292#29992#20110#20170#21518#30340#26816#26597#12290
TabOrder = 5
end
object B_add_person: TButton
Left = 440
Top = 64
Width = 99
Height = 25
Hint = #24403#21069#21592#24037#28155#21152#35813#39033#35760#24405
Caption = #24403#21069#21592#24037#28155#21152
TabOrder = 6
OnClick = B_add_personClick
end
object B_add_list: TButton
Left = 440
Top = 32
Width = 99
Height = 25
Hint = #24403#21069#37096#38376#20869#30340#21592#24037#28155#21152#35813#39033#37329#39069
Caption = #21015#34920#21592#24037#28155#21152
TabOrder = 7
OnClick = B_add_listClick
end
end
object DBGrid2: TDBGrid
Left = 120
Top = 216
Width = 129
Height = 193
Hint = #28857#20987#21491#38190#36827#34892#25805#20316
Anchors = [akTop, akBottom]
DataSource = DM_main.DS_salary_1
PopupMenu = PopupMenu1
TabOrder = 5
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'NAME'
Title.Caption = #21517#31216
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'MONEY'
Title.Caption = #37329#39069
Width = 42
Visible = True
end>
end
object DBGrid3: TDBGrid
Left = 264
Top = 216
Width = 129
Height = 193
Hint = #21333#20987#21491#38190#36827#34892#25805#20316
Anchors = [akTop, akBottom]
DataSource = DM_main.DS_salary_2
PopupMenu = PopupMenu1
TabOrder = 6
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'NAME'
Title.Caption = #21517#31216
Width = 45
Visible = True
end
item
Expanded = False
FieldName = 'MONEY'
Title.Caption = #37329#39069
Width = 44
Visible = True
end>
end
object DBGrid4: TDBGrid
Left = 408
Top = 216
Width = 129
Height = 193
Hint = #28857#20987#21491#38190#36827#34892#25805#20316
Anchors = [akTop, akBottom]
DataSource = DM_main.DS_salary_3
PopupMenu = PopupMenu1
TabOrder = 7
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'NAME'
Title.Caption = #21517#31216
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'MONEY'
Title.Caption = #37329#39069
Width = 44
Visible = True
end>
end
object DBGrid5: TDBGrid
Left = 552
Top = 216
Width = 129
Height = 193
Hint = #28857#20987#21491#38190#36827#34892#25805#20316
Anchors = [akTop, akBottom]
DataSource = DM_main.DS_salary_4
PopupMenu = PopupMenu1
TabOrder = 8
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'NAME'
Title.Caption = #21517#31216
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'MONEY'
Title.Caption = #37329#39069
Width = 41
Visible = True
end>
end
object MainMenu1: TMainMenu
Left = 40
Top = 120
object M_system: TMenuItem
Caption = '&S'#31995#32479
Hint = #31995#32479#33756#21333
object M_connect: TMenuItem
Caption = '&C'#36830#25509'...'
Hint = #36830#25509#26381#21153#22120
ShortCut = 113
OnClick = M_connectClick
end
object M_disconnect: TMenuItem
Caption = '&D'#26029#24320#36830#25509
Hint = #26029#24320#26381#21153#22120#36830#25509
ShortCut = 114
OnClick = M_disconnectClick
end
object N1: TMenuItem
Caption = '-'
end
object M_exit: TMenuItem
Caption = '&X'#36864#20986
Hint = #36864#20986#24212#29992#31243#24207
ShortCut = 16465
OnClick = M_exitClick
end
end
object M_option: TMenuItem
Caption = '&O'#35774#32622
Hint = #35774#32622#33756#21333
object M_formula: TMenuItem
Caption = '&F'#35745#31639#20844#24335#35843#25972
Hint = #35843#25972#24037#36164#35745#31639#20844#24335#21442#25968
OnClick = M_formulaClick
end
end
object M_calculate: TMenuItem
Caption = '&C'#35745#31639
Hint = #35745#31639#33756#21333
object M_stat: TMenuItem
Caption = '&S'#32479#35745#23454#21457#24037#36164
Hint = #32479#35745#25152#26377#21592#24037#24403#26376#30340#24037#36164
OnClick = M_statClick
end
end
object M_report: TMenuItem
Caption = '&R'#25253#34920
Hint = #25253#34920#33756#21333
object M_printer_setup: TMenuItem
Caption = '&S'#25171#21360#26426#35774#32622
Hint = #35774#32622#25171#21360#26426#23646#24615
OnClick = M_printer_setupClick
end
object M_preview: TMenuItem
Caption = '&R'#39044#35272#25253#34920
Hint = #39044#35272#25253#34920
OnClick = M_previewClick
end
object M_print: TMenuItem
Caption = '&P'#25171#21360#25253#34920
Hint = #25171#21360#25253#34920
OnClick = M_printClick
end
end
end
object PopupMenu1: TPopupMenu
Left = 40
Top = 176
object M_delete: TMenuItem
Caption = #21024#38500#24403#21069#35760#24405
OnClick = M_deleteClick
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -