📄 u_gwlb.dfm
字号:
object frm_gwlb: Tfrm_gwlb
Left = 286
Top = 205
BorderStyle = bsDialog
Caption = #23703#20301#31867#21035
ClientHeight = 330
ClientWidth = 567
Color = clBtnFace
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 DBGrid1: TDBGrid
Left = 17
Top = 176
Width = 537
Height = 149
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'GWLBXH'
Title.Alignment = taCenter
Title.Caption = #24207#21495
Width = 124
Visible = True
end
item
Expanded = False
FieldName = 'GWLBMC'
Title.Alignment = taCenter
Title.Caption = #23703#20301#31867#21035
Width = 183
Visible = True
end>
end
object GroupBox1: TGroupBox
Left = 16
Top = 8
Width = 537
Height = 105
TabOrder = 1
object Label2: TLabel
Left = 15
Top = 50
Width = 42
Height = 14
Caption = #19987#19994#65306
end
object Label1: TLabel
Left = 222
Top = 50
Width = 98
Height = 14
Caption = #23703#20301#31867#21035#21517#31216#65306
end
object ComboBox1: TComboBox
Left = 71
Top = 42
Width = 129
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 0
OnChange = ComboBox1Change
end
object Edit1: TEdit
Left = 319
Top = 42
Width = 193
Height = 22
MaxLength = 10
TabOrder = 1
end
end
object btn_insert: TButton
Left = 28
Top = 131
Width = 89
Height = 25
Caption = #25554' '#20837'&I'
TabOrder = 2
OnClick = btn_insertClick
end
object btn_delete: TButton
Left = 135
Top = 131
Width = 89
Height = 25
Caption = #21024' '#38500'&D'
TabOrder = 3
OnClick = btn_deleteClick
end
object btn_edit: TButton
Left = 242
Top = 131
Width = 89
Height = 25
Caption = #32534' '#36753'&E'
TabOrder = 4
OnClick = btn_editClick
end
object btn_save: TButton
Left = 349
Top = 131
Width = 89
Height = 25
Caption = #30830' '#35748'&S'
Enabled = False
TabOrder = 5
OnClick = btn_saveClick
end
object btn_cancel: TButton
Left = 457
Top = 131
Width = 89
Height = 25
Caption = #21462' '#28040'&C'
Enabled = False
TabOrder = 6
OnClick = btn_cancelClick
end
object tbl_gwlb: TTable
Active = True
AfterScroll = tbl_gwlbAfterScroll
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwlb.DB'
Left = 320
Top = 256
object tbl_gwlbGWLBMC: TStringField
FieldName = 'GWLBMC'
Size = 10
end
object tbl_gwlbzymc: TStringField
FieldKind = fkLookup
FieldName = 'zymc'
LookupDataSet = tbl_zy
LookupKeyFields = 'ZYXH'
LookupResultField = 'ZYMC'
KeyFields = 'ZYXH'
Size = 8
Lookup = True
end
object tbl_gwlbZYXH: TSmallintField
FieldName = 'ZYXH'
end
object tbl_gwlbGWLBXH: TSmallintField
FieldName = 'GWLBXH'
end
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = tbl_gwlb
Left = 200
Top = 264
end
object tbl_zy: TTable
Active = True
DatabaseName = 'bzxl_db'
Filter = 'zyflag=true'
Filtered = True
TableName = 'zy.db'
Left = 232
Top = 248
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -