📄 zczw.dfm
字号:
object zczwb: Tzczwb
Left = 255
Top = 268
Width = 312
Height = 312
Caption = '职务职称工龄及奖金设置'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object pagecontrol1: TPageControl
Left = 0
Top = 0
Width = 225
Height = 273
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '职务及奖金'
object DBGrid1: TDBGrid
Left = 0
Top = 32
Width = 217
Height = 209
DataSource = DataSource2
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
OnKeyDown = DBGrid1KeyDown
Columns = <
item
Expanded = False
FieldName = 'A_zw'
Title.Caption = '职务'
Width = 67
Visible = True
end
item
Alignment = taLeftJustify
Expanded = False
FieldName = 'A_jj'
Title.Caption = '职务奖金'
Width = 109
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 1
Width = 209
Height = 28
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 8
Width = 27
Height = 13
Caption = '职务:'
end
object Label3: TLabel
Left = 115
Top = 8
Width = 41
Height = 13
AutoSize = False
Caption = '奖金:'
end
object Edit1: TEdit
Left = 40
Top = 5
Width = 73
Height = 21
TabOrder = 0
OnKeyDown = Edit1KeyDown
end
object Edit3: TEdit
Left = 150
Top = 5
Width = 57
Height = 21
TabOrder = 1
OnKeyDown = Edit3KeyDown
OnKeyPress = Edit3KeyPress
end
end
end
object TabSheet2: TTabSheet
Caption = '职称及奖金'
ImageIndex = 1
object DBGrid2: TDBGrid
Left = 0
Top = 32
Width = 217
Height = 217
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
OnKeyDown = DBGrid2KeyDown
Columns = <
item
Expanded = False
FieldName = 'A_zc'
Title.Caption = '职称'
Width = 62
Visible = True
end
item
Alignment = taLeftJustify
Expanded = False
FieldName = 'A_jj'
Title.Caption = '职称奖金'
Width = 117
Visible = True
end>
end
object Panel2: TPanel
Left = 0
Top = 1
Width = 217
Height = 28
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 8
Width = 41
Height = 13
AutoSize = False
Caption = '职称:'
end
object Label4: TLabel
Left = 115
Top = 8
Width = 41
Height = 13
AutoSize = False
Caption = '奖金:'
end
object Edit2: TEdit
Left = 40
Top = 5
Width = 65
Height = 21
TabOrder = 0
OnKeyDown = Edit2KeyDown
end
object Edit4: TEdit
Left = 150
Top = 5
Width = 57
Height = 21
TabOrder = 1
OnKeyDown = Edit4KeyDown
OnKeyPress = Edit4KeyPress
end
end
end
object TabSheet3: TTabSheet
Caption = '工龄及奖金'
ImageIndex = 2
object Panel3: TPanel
Left = 0
Top = 1
Width = 217
Height = 28
TabOrder = 0
object Label5: TLabel
Left = 8
Top = 8
Width = 27
Height = 13
Caption = '工龄:'
end
object Label6: TLabel
Left = 115
Top = 8
Width = 41
Height = 13
AutoSize = False
Caption = '奖金:'
end
object Edit5: TEdit
Left = 40
Top = 5
Width = 73
Height = 21
TabOrder = 0
OnKeyDown = Edit1KeyDown
OnKeyPress = Edit5KeyPress
end
object Edit6: TEdit
Left = 150
Top = 5
Width = 57
Height = 21
TabOrder = 1
OnKeyDown = Edit6KeyDown
OnKeyPress = Edit6KeyPress
end
end
object DBGrid3: TDBGrid
Left = 0
Top = 32
Width = 217
Height = 217
DataSource = DataSource3
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
OnKeyDown = DBGrid3KeyDown
Columns = <
item
Expanded = False
FieldName = 'A_gn'
Title.Caption = '工龄'
Width = 55
Visible = True
end
item
Alignment = taLeftJustify
Expanded = False
FieldName = 'A_jj'
Title.Caption = '工龄奖金'
Width = 125
Visible = True
end>
end
end
end
object BitBtn1: TBitBtn
Left = 232
Top = 24
Width = 41
Height = 41
Caption = '增加+'
TabOrder = 1
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 232
Top = 72
Width = 41
Height = 41
Caption = '修改e'
TabOrder = 2
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 232
Top = 120
Width = 41
Height = 41
Caption = '保存'
TabOrder = 3
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 232
Top = 168
Width = 41
Height = 41
Caption = '删除-'
TabOrder = 4
OnClick = BitBtn4Click
end
object BitBtn5: TBitBtn
Left = 232
Top = 216
Width = 41
Height = 41
Caption = '退出'
TabOrder = 5
OnClick = BitBtn5Click
end
object DataSource1: TDataSource
DataSet = DataModule1.zcsz
Left = 8
Top = 152
end
object DataSource2: TDataSource
DataSet = DataModule1.zwsz
Left = 8
Top = 184
end
object DataSource3: TDataSource
DataSet = DataModule1.gn
Left = 12
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -