📄 u_xlcj1.~dfm
字号:
Visible = True
end
item
Expanded = False
FieldName = 'GWZLMC'
Title.Alignment = taCenter
Title.Caption = #23703#20301#31181#31867#21517#31216
Width = 217
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'KHDATE'
Title.Alignment = taCenter
Title.Caption = #26085#26399
Width = 65
Visible = True
end
item
Expanded = False
FieldName = 'KMMC'
Title.Alignment = taCenter
Title.Caption = #35838#30446#21517#31216
Width = 168
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CJ'
Title.Alignment = taCenter
Title.Caption = #25104#32489
Width = 69
Visible = True
end>
end
end
object GroupBox5: TGroupBox
Left = 560
Top = 1
Width = 145
Height = 344
TabOrder = 2
object btn_close_bz: TBitBtn
Left = 19
Top = 254
Width = 113
Height = 30
Caption = #36820' '#22238
TabOrder = 0
Kind = bkClose
end
object btn_lr_bz: TBitBtn
Left = 19
Top = 76
Width = 113
Height = 30
Caption = #24405' '#20837
TabOrder = 1
OnClick = btn_lr_bzClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
57705557757777775FF7555555555555000755555555555F777F555555555550
87075555555555F7577F5555555555088805555555555F755F75555555555033
805555555555F755F75555555555033B05555555555F755F75555555555033B0
5555555555F755F75555555555033B05555555555F755F75555555555033B055
55555555F755F75555555555033B05555555555F755F75555555555033B05555
555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
5555F777F7555555555501900555555555557777755555555555099055555555
5555777755555555555550055555555555555775555555555555}
NumGlyphs = 2
end
end
end
object tbs_dw: TTabSheet
Caption = #21333#20301#25104#32489
ImageIndex = 1
object Panel1: TPanel
Left = 14
Top = 10
Width = 529
Height = 131
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clGradientInactiveCaption
TabOrder = 0
object Label3: TLabel
Left = 19
Top = 60
Width = 42
Height = 14
Caption = #35838#30446#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 19
Top = 100
Width = 42
Height = 14
Caption = #25104#32489#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 18
Top = 21
Width = 42
Height = 14
Caption = #26085#26399#65306
end
object combo_km_dw: TComboBox
Left = 64
Top = 51
Width = 385
Height = 22
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 0
ParentFont = False
TabOrder = 0
end
object combo_cj_dw: TComboBox
Left = 67
Top = 91
Width = 105
Height = 22
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
ItemIndex = 0
ParentFont = False
TabOrder = 1
Text = #21512#26684
Items.Strings = (
#21512#26684
#19981#21512#26684)
end
object DateTimePicker3: TDateTimePicker
Left = 64
Top = 13
Width = 187
Height = 22
Date = 38128.876365914350000000
Format = 'yyyy'#24180'M'#26376'd'#26085
Time = 38128.876365914350000000
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 14
Top = 152
Width = 529
Height = 193
TabOrder = 1
object DBGrid2: TDBGrid
Left = 8
Top = 16
Width = 513
Height = 169
DataSource = DataSource3
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 = 'KHDATE'
Title.Alignment = taCenter
Title.Caption = #26085#26399
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'KMMC'
Title.Alignment = taCenter
Title.Caption = #35838#30446#21517#31216
Width = 359
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CJ'
Title.Alignment = taCenter
Title.Caption = #25104#32489
Visible = True
end>
end
end
object GroupBox7: TGroupBox
Left = 560
Top = 1
Width = 145
Height = 344
TabOrder = 2
object btn_close_dw: TBitBtn
Left = 19
Top = 249
Width = 113
Height = 30
Caption = #36820' '#22238
TabOrder = 0
Kind = bkClose
end
object btn_lr_dw: TBitBtn
Left = 19
Top = 71
Width = 113
Height = 30
Caption = #24405' '#20837
TabOrder = 1
OnClick = btn_lr_dwClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
57705557757777775FF7555555555555000755555555555F777F555555555550
87075555555555F7577F5555555555088805555555555F755F75555555555033
805555555555F755F75555555555033B05555555555F755F75555555555033B0
5555555555F755F75555555555033B05555555555F755F75555555555033B055
55555555F755F75555555555033B05555555555F755F75555555555033B05555
555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
5555F777F7555555555501900555555555557777755555555555099055555555
5555777755555555555550055555555555555775555555555555}
NumGlyphs = 2
end
end
end
end
object TreeView2: TTreeView
Left = 16
Top = 40
Width = 121
Height = 97
Enabled = False
Indent = 19
TabOrder = 2
Visible = False
end
object Query1: TQuery
DatabaseName = 'bzxl_db'
Left = 96
Top = 136
end
object tbl_grxlcj: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'grxlcj.DB'
Left = 248
Top = 312
object tbl_grxlcjDWDM: TStringField
FieldName = 'DWDM'
Size = 32
end
object tbl_grxlcjXM: TStringField
FieldName = 'XM'
Size = 8
end
object tbl_grxlcjKMXH: TSmallintField
FieldName = 'KMXH'
end
object tbl_grxlcjCJ: TStringField
FieldName = 'CJ'
Size = 8
end
object tbl_grxlcjKHDATE: TDateField
FieldName = 'KHDATE'
end
object tbl_grxlcjKMMC: TStringField
FieldName = 'KMMC'
Size = 60
end
end
object DataSource1: TDataSource
DataSet = tbl_grxlcj
Left = 247
Top = 274
end
object tbl_dwlb: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'dwlb.DB'
Left = 48
Top = 144
end
object tbl_bzxlcj: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'bzxlcj.db'
Left = 408
Top = 272
object tbl_bzxlcjDWDM: TStringField
FieldName = 'DWDM'
end
object tbl_bzxlcjZYXH: TSmallintField
FieldName = 'ZYXH'
end
object tbl_bzxlcjGWLBXH: TSmallintField
FieldName = 'GWLBXH'
end
object tbl_bzxlcjGWZLXH: TSmallintField
FieldName = 'GWZLXH'
end
object tbl_bzxlcjKHDATE: TDateField
FieldName = 'KHDATE'
end
object tbl_bzxlcjKMXH: TSmallintField
FieldName = 'KMXH'
end
object tbl_bzxlcjCJ: TStringField
FieldName = 'CJ'
Size = 6
end
object tbl_bzxlcjKMMC: TStringField
FieldName = 'KMMC'
Size = 60
end
object tbl_bzxlcjGWZLMC: TStringField
FieldName = 'GWZLMC'
Size = 60
end
object tbl_bzxlcjZYMC: TStringField
FieldName = 'ZYMC'
end
end
object tbl_dwxlcj: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'dwxlcj.DB'
Left = 512
Top = 288
object tbl_dwxlcjDWDM: TStringField
FieldName = 'DWDM'
end
object tbl_dwxlcjKHDATE: TDateField
FieldName = 'KHDATE'
end
object tbl_dwxlcjKMXH: TSmallintField
FieldName = 'KMXH'
end
object tbl_dwxlcjCJ: TStringField
FieldName = 'CJ'
Size = 6
end
object tbl_dwxlcjKMMC: TStringField
FieldName = 'KMMC'
Size = 60
end
end
object DataSource2: TDataSource
DataSet = tbl_bzxlcj
Left = 363
Top = 284
end
object DataSource3: TDataSource
DataSet = tbl_dwxlcj
Left = 386
Top = 225
end
object tbl_jbxx: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'jbxx.DB'
Left = 265
Top = 50
end
object tbl_zy: TTable
Active = True
DatabaseName = 'bzxl_db'
Filter = 'check=true and bzzy=true'
Filtered = True
TableName = 'zy.DB'
Left = 401
Top = 106
end
object tbl_gwzl: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwzl.DB'
Left = 300
Top = 91
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -