📄 u_gwzl.dfm
字号:
object frm_gwzl: Tfrm_gwzl
Left = 266
Top = 180
BorderStyle = bsDialog
Caption = #23703#20301#31181#31867
ClientHeight = 453
ClientWidth = 718
Color = clGradientInactiveCaption
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 697
Height = 145
TabOrder = 0
object Label1: TLabel
Left = 9
Top = 40
Width = 91
Height = 14
Caption = #21306' '#20998#65306
end
object Label2: TLabel
Left = 461
Top = 40
Width = 70
Height = 14
Caption = #23703#20301#31867#21035#65306
end
object Label4: TLabel
Left = 7
Top = 102
Width = 98
Height = 14
Caption = #23703#20301#31181#31867#21517#31216#65306
end
object Label3: TLabel
Left = 465
Top = 102
Width = 70
Height = 14
Caption = #32423#21035#31867#22411#65306
end
object ComboBox1: TComboBox
Left = 107
Top = 32
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 0
OnChange = ComboBox1Change
end
object ComboBox2: TComboBox
Left = 534
Top = 32
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 1
OnChange = ComboBox2Change
end
object Edit1: TEdit
Left = 110
Top = 94
Width = 337
Height = 22
MaxLength = 60
TabOrder = 2
end
object ComboBox3: TComboBox
Left = 534
Top = 94
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 3
end
end
object DBGrid1: TDBGrid
Left = 16
Top = 220
Width = 689
Height = 205
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'gwlbmc'
Title.Alignment = taCenter
Title.Caption = #23703#20301#31867#21035
Visible = True
end
item
Expanded = False
FieldName = 'GWZLMC'
Title.Alignment = taCenter
Title.Caption = #23703#20301#31181#31867#21517#31216
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'gwjblx'
Title.Alignment = taCenter
Title.Caption = #32423#21035#31867#22411
Visible = True
end>
end
object btn_insert: TButton
Left = 28
Top = 174
Width = 89
Height = 25
Caption = #25554' '#20837'&I'
TabOrder = 2
OnClick = btn_insertClick
end
object btn_delete: TButton
Left = 163
Top = 174
Width = 89
Height = 25
Caption = #21024' '#38500'&D'
TabOrder = 3
OnClick = btn_deleteClick
end
object btn_edit: TButton
Left = 298
Top = 174
Width = 89
Height = 25
Caption = #32534' '#36753'&E'
TabOrder = 4
OnClick = btn_editClick
end
object btn_save: TButton
Left = 433
Top = 174
Width = 89
Height = 25
Caption = #30830' '#35748'&S'
Enabled = False
TabOrder = 5
OnClick = btn_saveClick
end
object btn_cancel: TButton
Left = 568
Top = 174
Width = 89
Height = 25
Caption = #21462' '#28040'&C'
Enabled = False
TabOrder = 6
OnClick = btn_cancelClick
end
object tbl_gwzl: TTable
Active = True
AfterScroll = tbl_gwzlAfterScroll
DatabaseName = 'bzxl_db'
Filtered = True
DefaultIndex = False
IndexName = 'index_gwzl'
TableName = 'gwzl.db'
Left = 192
Top = 312
object tbl_gwzlGWZLMC: TStringField
FieldName = 'GWZLMC'
Size = 60
end
object tbl_gwzlGWZLXH: TSmallintField
FieldName = 'GWZLXH'
end
object tbl_gwzlZYXH: TSmallintField
FieldName = 'ZYXH'
end
object tbl_gwzlzymc: TStringField
FieldKind = fkLookup
FieldName = 'zymc'
LookupDataSet = tbl_zy
LookupKeyFields = 'ZYXH'
LookupResultField = 'ZYMC'
KeyFields = 'ZYXH'
Size = 8
Lookup = True
end
object tbl_gwzlzylbmc: TStringField
FieldKind = fkLookup
FieldName = 'gwlbmc'
LookupDataSet = tbl_gwlb
LookupKeyFields = 'GWLBXH'
LookupResultField = 'GWLBMC'
KeyFields = 'GWLBXH'
Size = 10
Lookup = True
end
object tbl_gwzlGWLBXH: TSmallintField
FieldName = 'GWLBXH'
end
object tbl_gwzlGWJBLXXH: TSmallintField
FieldName = 'GWJBLXXH'
end
object tbl_gwzlgwjblx: TStringField
FieldKind = fkLookup
FieldName = 'gwjblx'
LookupDataSet = tbl_gwjblx
LookupKeyFields = 'GWJBLXXH'
LookupResultField = 'GWJBLX'
KeyFields = 'GWJBLXXH'
Lookup = True
end
end
object tbl_zy: TTable
Active = True
DatabaseName = 'bzxl_db'
Filter = 'zyflag=true'
Filtered = True
TableName = 'zy.db'
Left = 424
Top = 368
end
object tbl_gwlb: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwlb.DB'
Left = 424
Top = 320
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = tbl_gwzl
Left = 192
Top = 272
end
object tbl_gwjblx: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'gwjblx.DB'
Left = 520
Top = 320
end
object tbl_khdx: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'khdx.db'
Left = 288
Top = 376
end
object Query1: TQuery
DatabaseName = 'bzxl_db'
Left = 664
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -