📄 u_stwh.~dfm
字号:
object frm_stwh: Tfrm_stwh
Left = 196
Top = 104
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #35797#39064#32500#25252
ClientHeight = 588
ClientWidth = 715
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object GroupBox2: TGroupBox
Left = 8
Top = 24
Width = 697
Height = 178
TabOrder = 0
object Label3: TLabel
Left = 10
Top = 35
Width = 70
Height = 14
Caption = #19987' '#19994#65306
end
object Label2: TLabel
Left = 311
Top = 35
Width = 70
Height = 14
Caption = #23703#20301#31867#21035#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 = #32771#26680#23545#35937#65306
end
object Label1: TLabel
Left = 10
Top = 138
Width = 70
Height = 14
Caption = #35838' '#30446#65306
end
object Label6: TLabel
Left = 314
Top = 136
Width = 70
Height = 14
Caption = #35797#39064#39064#22411#65306
end
object combo_zy: TComboBox
Left = 81
Top = 27
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 0
OnChange = combo_zyChange
end
object combo_gwlb: TComboBox
Left = 382
Top = 27
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 1
OnChange = combo_gwlbChange
end
object combo_gwzl: TComboBox
Left = 80
Top = 80
Width = 217
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 2
OnChange = combo_gwzlChange
end
object combo_khdx: TComboBox
Left = 384
Top = 80
Width = 265
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 3
OnChange = combo_khdxChange
end
object combo_km: TComboBox
Left = 80
Top = 133
Width = 217
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 4
OnChange = combo_kmChange
end
object combo_sttx: TComboBox
Left = 386
Top = 128
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 5
OnChange = combo_sttxChange
end
end
object GroupBox5: TGroupBox
Left = 8
Top = 205
Width = 697
Height = 137
Caption = #35797#39064#39064#30446
TabOrder = 1
end
object GroupBox6: TGroupBox
Left = 7
Top = 344
Width = 698
Height = 137
Caption = #35797#39064#31572#26696
TabOrder = 2
end
object RadioGroup1: TRadioGroup
Left = 7
Top = 490
Width = 271
Height = 57
Caption = #25484#25569#31243#24230
Columns = 2
ItemIndex = 0
Items.Strings = (
#37325#28857#25484#25569
#19968#33324#25484#25569)
TabOrder = 3
end
object btn_insert: TBitBtn
Left = 586
Top = 491
Width = 95
Height = 27
Caption = #22686#21152
Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object btn_close: TBitBtn
Left = 587
Top = 531
Width = 95
Height = 27
Caption = #20851#38381
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
NumGlyphs = 2
end
object Panel1: TPanel
Left = -885
Top = 567
Width = 1600
Height = 3
BevelOuter = bvLowered
TabOrder = 6
end
object DBNavigator1: TDBNavigator
Left = 328
Top = 507
Width = 224
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 7
end
object RichEdit1: TRichEdit
Left = 24
Top = 360
Width = 185
Height = 89
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'RichEdit1')
ParentFont = False
TabOrder = 8
end
object tbl_xlkm: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'xlkm.db'
Left = 192
Top = 408
end
object tbl_sttx: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'sttx.db'
Left = 256
Top = 416
end
object MainMenu1: TMainMenu
AutoHotkeys = maManual
Left = 600
Top = 16
object N1: TMenuItem
Caption = #25805#20316
object mnu_lr: TMenuItem
Caption = #24405#20837
end
object mnu_close: TMenuItem
Caption = #20851#38381
end
end
end
object tbl_stk: TTable
Active = True
AfterScroll = tbl_stkAfterScroll
DatabaseName = 'bzxl_db'
TableName = 'stkdb.DB'
Left = 335
Top = 464
object tbl_stkSTXH: TIntegerField
FieldName = 'STXH'
end
object tbl_stkZYXH: TSmallintField
FieldName = 'ZYXH'
end
object tbl_stkGWLBXH: TSmallintField
FieldName = 'GWLBXH'
end
object tbl_stkGWZLXH: TSmallintField
FieldName = 'GWZLXH'
end
object tbl_stkKHDXXH: TSmallintField
FieldName = 'KHDXXH'
end
object tbl_stkKMXH: TSmallintField
FieldName = 'KMXH'
end
object tbl_stkTXXH: TSmallintField
FieldName = 'TXXH'
end
object tbl_stkZWCD: TBooleanField
FieldName = 'ZWCD'
end
object tbl_stkTM: TBlobField
FieldName = 'TM'
BlobType = ftParadoxOle
end
object tbl_stkDA: TBlobField
FieldName = 'DA'
BlobType = ftParadoxOle
end
end
object tbl_gwzl: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwzl.DB'
Left = 424
Top = 360
end
object tbl_khdx: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'khdx.db'
Left = 384
Top = 304
end
object tbl_gwlb: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'gwlb.DB'
Left = 496
Top = 360
end
object tbl_zy: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'zy.DB'
Left = 560
Top = 352
end
object DataSource1: TDataSource
DataSet = tbl_stk
Left = 296
Top = 480
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -