📄 u_xlkm.~dfm
字号:
object frm_xlkm: Tfrm_xlkm
Left = 193
Top = 105
BorderStyle = bsDialog
Caption = #20462#29702#20998#38431#35757#32451#35838#30446
ClientHeight = 582
ClientWidth = 923
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
PixelsPerInch = 96
TextHeight = 14
object DBGrid1: TDBGrid
Left = 8
Top = 432
Width = 905
Height = 137
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 = 'KMXH'
Title.Alignment = taCenter
Title.Caption = #35838#30446#24207#21495
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'KMMC'
Title.Alignment = taCenter
Title.Caption = #35838#30446#21517#31216
Width = 607
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'XLSJ'
Title.Alignment = taCenter
Title.Caption = #35757#32451#26102#38388
Width = 72
Visible = True
end>
end
object GroupBox2: TGroupBox
Left = 10
Top = 8
Width = 903
Height = 369
TabOrder = 1
object Label1: TLabel
Left = 10
Top = 141
Width = 70
Height = 14
Caption = #35838#30446#21517#31216#65306
end
object Label2: TLabel
Left = 311
Top = 33
Width = 70
Height = 14
Caption = #23703#20301#31867#21035#65306
end
object Label3: TLabel
Left = 10
Top = 33
Width = 70
Height = 14
Caption = #35757#32451#21306#20998#65306
end
object Label4: TLabel
Left = 10
Top = 88
Width = 70
Height = 14
Caption = #23703#20301#31181#31867#65306
end
object Label5: TLabel
Left = 313
Top = 88
Width = 70
Height = 14
Caption = #23703#20301#31561#32423#65306
end
object Label6: TLabel
Left = 10
Top = 195
Width = 70
Height = 14
Caption = #35757#32451#26102#38388#65306
end
object Label7: TLabel
Left = 118
Top = 192
Width = 42
Height = 14
Caption = #65288#22825#65289
end
object Label8: TLabel
Left = 193
Top = 190
Width = 63
Height = 14
Caption = #26465' '#20214#65306
end
object Label10: TLabel
Left = 12
Top = 245
Width = 63
Height = 14
Caption = #26631' '#20934#65306
end
object Label11: TLabel
Left = 462
Top = 237
Width = 63
Height = 14
Caption = #32771' '#26680#65306
end
object Edit1: TEdit
Left = 81
Top = 137
Width = 456
Height = 22
MaxLength = 60
TabOrder = 0
end
object combo_zy: TComboBox
Left = 81
Top = 25
Width = 145
Height = 22
Style = csDropDownList
DropDownCount = 11
ItemHeight = 14
TabOrder = 1
OnChange = combo_zyChange
end
object combo_gwlb: TComboBox
Left = 382
Top = 25
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 2
OnChange = combo_gwlbChange
end
object combo_gwzl: TComboBox
Left = 80
Top = 80
Width = 217
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 3
OnChange = combo_gwzlChange
end
object combo_khdx: TComboBox
Left = 384
Top = 80
Width = 265
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 4
OnChange = combo_khdxChange
end
object edt_xlsj: TEdit
Left = 77
Top = 188
Width = 44
Height = 22
TabOrder = 5
Text = '1'
end
object edt_tj: TEdit
Left = 257
Top = 182
Width = 493
Height = 22
MaxLength = 60
TabOrder = 6
end
object Memo1: TMemo
Left = 80
Top = 240
Width = 369
Height = 113
Lines.Strings = (
'')
ScrollBars = ssBoth
TabOrder = 7
end
object Memo2: TMemo
Left = 528
Top = 240
Width = 369
Height = 121
ScrollBars = ssBoth
TabOrder = 8
end
object btn_nr: TButton
Left = 775
Top = 179
Width = 105
Height = 25
Caption = #20869' '#23481'...'
TabOrder = 9
OnClick = btn_nrClick
end
object CheckBox1: TCheckBox
Left = 616
Top = 138
Width = 97
Height = 17
Caption = #36873#35757
TabOrder = 10
end
end
object btn_insert: TButton
Left = 30
Top = 392
Width = 89
Height = 25
Caption = #25554' '#20837'&I'
TabOrder = 2
OnClick = btn_insertClick
end
object btn_delete: TButton
Left = 164
Top = 392
Width = 89
Height = 25
Caption = #21024' '#38500'&D'
TabOrder = 3
OnClick = btn_deleteClick
end
object btn_edit: TButton
Left = 298
Top = 392
Width = 89
Height = 25
Caption = #32534' '#36753'&E'
TabOrder = 4
OnClick = btn_editClick
end
object btn_save: TButton
Left = 432
Top = 392
Width = 89
Height = 25
Caption = #30830' '#35748'&S'
Enabled = False
TabOrder = 5
OnClick = btn_saveClick
end
object btn_cancel: TButton
Left = 566
Top = 392
Width = 89
Height = 25
Caption = #21462' '#28040'&C'
Enabled = False
TabOrder = 6
OnClick = btn_cancelClick
end
object BitBtn2: TBitBtn
Left = 740
Top = 389
Width = 113
Height = 25
Caption = #20851' '#38381
TabOrder = 7
Kind = bkClose
end
object tbl_xlkm: TTable
Active = True
AfterScroll = tbl_xlkmAfterScroll
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'xlkm.db'
Left = 232
Top = 456
object tbl_xlkmKMMC: TStringField
FieldName = 'KMMC'
Size = 60
end
object tbl_xlkmZYXH: TSmallintField
FieldName = 'ZYXH'
end
object tbl_xlkmGWLBXH: TSmallintField
FieldName = 'GWLBXH'
end
object tbl_xlkmGWZLXH: TSmallintField
FieldName = 'GWZLXH'
end
object tbl_xlkmKMXH: TSmallintField
FieldName = 'KMXH'
end
object tbl_xlkmKHDXXH: TSmallintField
FieldName = 'KHDXXH'
end
object tbl_xlkmTJ: TStringField
FieldName = 'TJ'
Size = 60
end
object tbl_xlkmBZ: TMemoField
FieldName = 'BZ'
BlobType = ftMemo
Size = 60
end
object tbl_xlkmKH: TMemoField
FieldName = 'KH'
BlobType = ftMemo
Size = 100
end
object tbl_xlkmIFXUANXUN: TBooleanField
FieldName = 'IFXUANXUN'
end
object tbl_xlkmXLSJ: TFloatField
FieldName = 'XLSJ'
end
end
object DataSource1: TDataSource
DataSet = tbl_xlkm
Left = 288
Top = 336
end
object tbl_zy: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'zy.DB'
Left = 528
Top = 320
end
object tbl_gwlb: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwlb.DB'
Left = 496
Top = 320
end
object tbl_gwzl: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwzl.DB'
Left = 464
Top = 312
end
object tbl_khdx: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'khdx.db'
Left = 384
Top = 304
end
object Query1: TQuery
DatabaseName = 'bzxl_db'
Left = 40
Top = 344
end
object tbl_xlkmnr: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'xlkmnr.DB'
Left = 312
Top = 496
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -