📄 u_sjzdsc.dfm
字号:
object frm_sjzdsc: Tfrm_sjzdsc
Left = 254
Top = 132
BorderStyle = bsDialog
Caption = #35797#21367#29983#25104
ClientHeight = 479
ClientWidth = 609
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
PixelsPerInch = 96
TextHeight = 14
object BitBtn2: TBitBtn
Left = 403
Top = 432
Width = 110
Height = 28
Caption = #20851#38381
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
Kind = bkClose
end
object OleContainer1: TOleContainer
Left = 176
Top = 424
Width = 89
Height = 33
AutoActivate = aaManual
Caption = 'OleContainer1'
Enabled = False
TabOrder = 1
Visible = False
end
object GroupBox2: TGroupBox
Left = 312
Top = 2
Width = 289
Height = 409
TabOrder = 2
object Label2: TLabel
Left = 23
Top = 51
Width = 70
Height = 14
Caption = #29983#25104#26041#26696#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 23
Top = 169
Width = 70
Height = 14
Caption = #35797#21367#22871#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 23
Top = 277
Width = 70
Height = 14
Caption = #29983#25104#26102#38388#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object ComboBox1: TComboBox
Left = 93
Top = 46
Width = 154
Height = 22
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 246
Top = 46
Width = 25
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
333333333777733333333333FBFBFB3333333333333333333333}
NumGlyphs = 2
end
object edt_sjts: TEdit
Left = 93
Top = 161
Width = 49
Height = 23
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
MaxLength = 2
ParentFont = False
ReadOnly = True
TabOrder = 2
Text = '1'
end
object UpDown1: TUpDown
Left = 142
Top = 161
Width = 16
Height = 23
Associate = edt_sjts
Min = 1
Max = 10
Position = 1
TabOrder = 3
end
object DateTimePicker1: TDateTimePicker
Left = 93
Top = 266
Width = 138
Height = 23
Date = 37512.000000000000000000
Format = 'yyyy-MM-dd'
Time = 37512.000000000000000000
DateFormat = dfLong
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParseInput = True
ParentFont = False
TabOrder = 4
end
object btn_ok: TBitBtn
Left = 88
Top = 341
Width = 110
Height = 28
Caption = #30830' '#23450
Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btn_okClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object GroupBox4: TGroupBox
Left = 7
Top = 2
Width = 298
Height = 470
Caption = #32771#26680#23545#35937
TabOrder = 3
object TreeView1: TTreeView
Left = 9
Top = 18
Width = 280
Height = 439
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
HideSelection = False
Indent = 19
MultiSelect = True
MultiSelectStyle = [msControlSelect, msShiftSelect, msSiblingOnly]
ParentFont = False
ParentShowHint = False
ReadOnly = True
RowSelect = True
ShowHint = False
TabOrder = 0
end
end
object tbl_khdx: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'khdx.DB'
Left = 144
Top = 232
end
object tbl_gwzl: TTable
Active = True
DatabaseName = 'bzxl_db'
Filter = 'check=true'
Filtered = True
TableName = 'gwzl.DB'
Left = 120
Top = 192
end
object tbl_gwlb: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwlb.DB'
Left = 80
Top = 168
end
object tbl_zy: TTable
Active = True
DatabaseName = 'bzxl_db'
Filter = 'check=true and zyflag=true'
Filtered = True
TableName = 'zy.DB'
Left = 64
Top = 120
end
object tbl_sjscfa: TTable
Active = True
DatabaseName = 'bzxl_db'
IndexFieldNames = 'FANAME'
TableName = 'sjscfa.DB'
Left = 440
Top = 32
end
object tbl_sjk: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'sjk.db'
Left = 400
Top = 368
end
object tbl_sjscfanr: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'sjscfanr.db'
Left = 560
Top = 64
end
object tbl_stk: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'stkdb.DB'
Left = 224
Top = 232
end
object Query1: TQuery
DatabaseName = 'bzxl_db'
Left = 378
Top = 287
end
object Query2: TQuery
DatabaseName = 'bzxl_db'
Left = 442
Top = 287
end
object tbl_sttx: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'sttx.db'
Left = 490
Top = 175
end
object tbl_tmp_stlb: TTable
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'tmp_sjsc_stlb.DB'
Left = 522
Top = 287
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -