📄 uckdj.dfm
字号:
object frmckdj: Tfrmckdj
Left = 285
Top = 115
AutoScroll = False
Caption = #20986#24211#30331#35760
ClientHeight = 433
ClientWidth = 609
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object TPanel
Left = -8
Top = 0
Width = 609
Height = 217
Color = clGradientActiveCaption
TabOrder = 0
object Label1: TLabel
Left = 40
Top = 48
Width = 80
Height = 20
Caption = #36135#29289#21495#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 40
Top = 88
Width = 84
Height = 20
Caption = #36135#29289#21517#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 40
Top = 128
Width = 100
Height = 20
Caption = #20986#24211#25968#37327#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 328
Top = 88
Width = 100
Height = 20
Caption = #20379#24212#21830#21495#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 40
Top = 176
Width = 84
Height = 20
Caption = #20179#24211#21495#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edhwjg: TLabel
Left = 328
Top = 48
Width = 104
Height = 20
Caption = #36135#29289#20215#26684#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 328
Top = 128
Width = 104
Height = 20
Caption = #20986#24211#26085#26399#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edhum: TEdit
Tag = 1
Left = 136
Top = 88
Width = 121
Height = 21
TabOrder = 0
OnKeyDown = edhumKeyDown
end
object edckh: TEdit
Left = 136
Top = 176
Width = 121
Height = 21
TabOrder = 1
OnKeyDown = edckhKeyDown
end
object edgysm: TEdit
Left = 448
Top = 88
Width = 121
Height = 21
TabOrder = 2
OnKeyDown = edgysmKeyDown
end
object edhujg: TEdit
Left = 448
Top = 48
Width = 121
Height = 21
TabOrder = 3
OnKeyDown = edhujgKeyDown
end
object edrkdate: TDateTimePicker
Left = 448
Top = 128
Width = 121
Height = 25
Date = 38461.689438946800000000
Time = 38461.689438946800000000
TabOrder = 4
OnKeyDown = edrkdateKeyDown
end
object edhus: TEdit
Tag = 2
Left = 136
Top = 128
Width = 121
Height = 21
TabOrder = 5
OnKeyDown = edhusKeyDown
end
object GroupBox1: TGroupBox
Left = 0
Top = -8
Width = 609
Height = 41
TabOrder = 6
object Label4: TLabel
Left = 160
Top = 16
Width = 264
Height = 22
Caption = #20179#24211#36135#29289#31649#29702#31995#32479#20986#24211#30331#35760
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #21326#25991#34892#26999
Font.Style = [fsBold]
ParentFont = False
end
end
object comhwh: TComboBox
Left = 136
Top = 48
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 7
OnKeyDown = comhwhKeyDown
OnSelect = comhwhSelect
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 216
Width = 609
Height = 161
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnDrawColumnCell = DBGrid1DrawColumnCell
Columns = <
item
Expanded = False
FieldName = #36135#29289#21495
Width = 100
Visible = True
end
item
Expanded = False
FieldName = #36135#29289#21517
Width = 107
Visible = True
end
item
Expanded = False
FieldName = #36135#29289#25968
Visible = True
end
item
Expanded = False
FieldName = #36135#29289#20215#26684
Width = 82
Visible = True
end
item
Expanded = False
FieldName = #20379#24212#21830#21495
Width = 130
Visible = True
end
item
Expanded = False
FieldName = #20179#24211#21495
Width = 87
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 376
Width = 625
Height = 33
Color = clSkyBlue
TabOrder = 2
object sbtnxz: TSpeedButton
Left = 128
Top = 0
Width = 89
Height = 33
Caption = #20986#24211
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
DADAADADADADADADADAD444444444444DADA477777777774ADAD488888888084
DADA480080080004ADAD488888888000DADA4800800800B70DAD4888888880B8
0ADA44444444440B70AD4F44F44F440B80DA444444444440B70DDADADADADAD0
B70AADADADADADAD0050DADADADADADA0550ADADADADADADA00D}
OnClick = sbtnxzClick
end
object sbtnexit: TSpeedButton
Left = 368
Top = 0
Width = 89
Height = 33
Caption = #36864#20986
Flat = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FFFFFF00FFFFFF000000000000000000FFFFFF000000000000000000FFFF
FF000000000000000000FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00
FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
0000000000008080800000000000000000008080800000000000FF00FF00FF00
FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
0000FF00FF008080800000000000000000008080800000000000FF00FF00FF00
FF0000000000000000000000000000000000000000000000000000000000FF00
FF00FF00FF008080800080808000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF000000
0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF000000000000000000000000000000000000000000000000008080
8000FF00FF00000000008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00000000000000FF000000FF000000FF000000FF00000000008080
8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00000000000000FF000000FF000000FF000000FF0000000000808080008080
8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF000000000000000000000000000000FF000000000080808000808080008080
8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000000000000000000080808000808080008080
800000000000FF00FF008080800080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
80008080800000000000FF00FF0080808000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
8000808080008080800000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
OnClick = sbtnexitClick
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 408
Width = 609
Height = 25
Panels = <
item
Text = #26412#30028#38754#21487#20197#20986#24211#36135#29289
Width = 500
end
item
Width = 50
end>
end
object DataSource1: TDataSource
DataSet = Table1
Left = 296
Top = 256
end
object Table1: TTable
Active = True
DatabaseName = 'DefaultDD'
TableName = 'hwb'
TableType = ttParadox
Left = 128
Top = 272
object Table1BDEDesigner: TStringField
FieldName = #36135#29289#21495
Size = 10
end
object Table1BDEDesigner2: TStringField
FieldName = #36135#29289#21517
Size = 16
end
object Table1BDEDesigner3: TStringField
FieldName = #36135#29289#25968
Size = 10
end
object Table1BDEDesigner4: TCurrencyField
FieldName = #36135#29289#20215#26684
end
object Table1BDEDesigner5: TStringField
FieldName = #20379#24212#21830#21495
Size = 16
end
object Table1BDEDesigner6: TStringField
FieldName = #20179#24211#21495
Size = 16
end
end
object Query1: TQuery
Active = True
DatabaseName = 'DefaultDD'
DataSource = DataSource1
SQL.Strings = (
'select * from hwb')
Left = 208
Top = 328
end
object Table2: TTable
Active = True
DatabaseName = 'DefaultDD'
TableName = 'crkb'
TableType = ttParadox
Left = 312
Top = 160
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -