📄 mc_ztgl_kt.dfm
字号:
Width = 42
Height = 12
AutoSize = True
DataField = #39184#39278#37096#38376
DataSource = TLCYGLXT.KT_FJTHSET
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBText6: TDBText
Left = 304
Top = 14
Width = 42
Height = 12
AutoSize = True
DataField = #26381#21153#36153
DataSource = TLCYGLXT.KT_FJTHSET
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBText7: TDBText
Left = 416
Top = 38
Width = 42
Height = 12
AutoSize = True
DataField = #31616#35201#35828#26126
DataSource = TLCYGLXT.KT_FJTHSET
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBText8: TDBText
Left = 304
Top = 38
Width = 42
Height = 12
AutoSize = True
DataField = #29366#24577
DataSource = TLCYGLXT.KT_FJTHSET
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 357
Top = 14
Width = 60
Height = 12
Caption = #23481#32435#20154#25968#65306
end
object DBText9: TDBText
Left = 416
Top = 14
Width = 42
Height = 12
AutoSize = True
DataField = #23481#32435#20154#25968
DataSource = TLCYGLXT.KT_FJTHLXSET
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 8
Top = 110
Width = 84
Height = 12
Caption = #31354#38386#25151#21488#21015#34920#65306
end
object Bevel1: TBevel
Left = 1
Top = 104
Width = 472
Height = 2
Shape = bsTopLine
end
object Edit1: TEdit
Left = 224
Top = 77
Width = 129
Height = 20
TabOrder = 0
OnEnter = Edit1Enter
OnExit = Edit1Exit
OnKeyPress = Edit1KeyPress
end
object BitBtn1: TBitBtn
Left = 360
Top = 75
Width = 99
Height = 25
Caption = #30830#23450'[&K]'
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DBGrid1: TDBGrid
Left = 8
Top = 128
Width = 457
Height = 161
Hint = #36873#25321#36716#25442#30446#26631
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = BitBtn1Click
Columns = <
item
Expanded = False
FieldName = #32534#21495
Visible = True
end
item
Expanded = False
FieldName = #25151#21488#21517#31216
Width = 118
Visible = True
end
item
Expanded = False
FieldName = #39184#39278#37096#38376
Width = 150
Visible = True
end
item
Expanded = False
FieldName = #26381#21153#36153
Width = 88
Visible = True
end>
end
object BitBtn2: TBitBtn
Left = 144
Top = 302
Width = 137
Height = 25
Caption = #25918#24323#36716#25442#21488#21495'[&Q]'
TabOrder = 3
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object Table1: TTable
DatabaseName = 'CYGLDATE'
Filter = #29366#24577'='#39#31354#38386#39
Filtered = True
TableName = 'dbo.'#25151#38388#21488#21495#20449#24687#34920
Left = 56
Top = 16
object Table1BDEDesigner: TIntegerField
FieldName = #32534#21495
Required = True
end
object Table1BDEDesigner2: TStringField
FieldName = #25151#21488#21517#31216
Required = True
FixedChar = True
Size = 30
end
object Table1BDEDesigner3: TStringField
FieldName = #31867#22411#35828#26126
FixedChar = True
end
object Table1BDEDesigner4: TStringField
FieldName = #39184#39278#37096#38376
FixedChar = True
end
object Table1BDEDesigner5: TFloatField
FieldName = #26381#21153#36153
end
object Table1BDEDesigner6: TStringField
FieldName = #31616#35201#35828#26126
FixedChar = True
Size = 30
end
object Table1BDEDesigner7: TStringField
FieldName = #29366#24577
FixedChar = True
Size = 10
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 112
Top = 24
end
object Query1: TQuery
DatabaseName = 'CYGLDATE'
Left = 24
Top = 24
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -