📄 unitgys.~dfm
字号:
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblAudit: TLabel
Left = 37
Top = 314
Width = 65
Height = 12
Caption = #35780#23450#20998#32423#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object edtGys: TEdit
Left = 130
Top = 12
Width = 163
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxLength = 4
ParentFont = False
TabOrder = 0
OnExit = edtGysExit
OnKeyPress = edtGysKeyPress
end
object edtZip: TEdit
Left = 130
Top = 199
Width = 163
Height = 21
TabOrder = 5
OnKeyPress = edtGysKeyPress
end
object edtLxr: TEdit
Left = 130
Top = 112
Width = 163
Height = 21
TabOrder = 2
OnKeyPress = edtGysKeyPress
end
object edtAdd: TEdit
Left = 130
Top = 169
Width = 163
Height = 21
TabOrder = 4
OnKeyPress = edtGysKeyPress
end
object edtTel: TEdit
Left = 130
Top = 141
Width = 163
Height = 21
TabOrder = 3
OnKeyPress = edtGysKeyPress
end
object edtBank: TEdit
Left = 130
Top = 256
Width = 163
Height = 21
TabOrder = 7
OnKeyPress = edtGysKeyPress
end
object edtTax: TEdit
Left = 130
Top = 228
Width = 163
Height = 21
TabOrder = 6
OnKeyPress = edtGysKeyPress
end
object edtAccount: TEdit
Left = 130
Top = 283
Width = 163
Height = 21
TabOrder = 8
OnKeyPress = edtGysKeyPress
end
object edtCredit: TEdit
Left = 130
Top = 351
Width = 163
Height = 21
TabOrder = 10
OnKeyPress = edtGysKeyPress
end
object edtBz: TEdit
Left = 42
Top = 408
Width = 255
Height = 21
TabOrder = 11
OnKeyPress = edtBzKeyPress
end
object edtAudit: TEdit
Left = 130
Top = 311
Width = 163
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
Text = '1----4'#32423
OnKeyPress = edtGysKeyPress
end
object edtGysName: TEdit
Left = 131
Top = 64
Width = 164
Height = 21
MaxLength = 50
TabOrder = 1
OnKeyPress = edtGysKeyPress
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 247
Height = 434
Align = alClient
DataSource = dsGys
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clMaroon
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'Gys_code'
Title.Alignment = taCenter
Title.Caption = #20379#24212#21830#20195#30721
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Gys_name'
Title.Alignment = taCenter
Title.Caption = #20379#24212#21830#21517#31216
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Lxr'
Title.Alignment = taCenter
Title.Caption = #32852#31995#20154
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Tel'
Title.Alignment = taCenter
Title.Caption = #30005' '#35805
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Zip'
Title.Alignment = taCenter
Title.Caption = #37038' '#32534
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Tax'
Title.Alignment = taCenter
Title.Caption = #31246' '#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Khbank'
Title.Alignment = taCenter
Title.Caption = #24320#25143#34892
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Account'
Title.Alignment = taCenter
Title.Caption = #24320#25143#24080#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Credit'
Title.Alignment = taCenter
Title.Caption = #20449#35465#24230
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Gys_Add'
Title.Alignment = taCenter
Title.Caption = #36890#20449#22320#22336
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 200
Visible = True
end
item
Expanded = False
FieldName = 'Gys_memo'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 200
Visible = True
end>
end
object dsGys: TDataSource
DataSet = DM.qry_Gys
OnDataChange = dsGysDataChange
Left = 32
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -