📄 mrcpthcx.dfm
字号:
object cpthcx: Tcpthcx
Left = 107
Top = 268
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #36864#36135#20449#24687
ClientHeight = 295
ClientWidth = 718
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object GroupBox1: TGroupBox
Left = 2
Top = 2
Width = 588
Height = 287
Caption = #36820#36135#20449#24687#19968#35272
TabOrder = 0
object DBGrid1: TDBGrid
Left = 6
Top = 13
Width = 575
Height = 260
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'cpbh'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #20135#21697#32534#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cpmc'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #20135#21697#21517#31216
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cpxh'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #20135#21697#22411#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cpbs'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #20135#21697#26631#35782
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'rdate'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21806#20986#26085#26399
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'jsr'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21806#20986#20154
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'tdate'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #36864#36135#26085#26399
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'tui'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #36864#36135#32463#25163#20154
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'dan'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21333#20301
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'shuliang'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #25968#37327
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cx'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #24212#29992#36710#22411
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cd'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #20135#22320
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'khbh'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #23458#25143#32534#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'khqc'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #23458#25143#20840#31216
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'lxdh'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #32852#31995#30005#35805
Width = 100
Visible = True
end>
end
end
object GroupBox2: TGroupBox
Left = 594
Top = 2
Width = 122
Height = 119
Caption = #26597#35810#20449#24687#26694
TabOrder = 1
object Label1: TLabel
Left = 45
Top = 54
Width = 20
Height = 19
Caption = '||'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object ComboBox1: TComboBox
Left = 13
Top = 27
Width = 95
Height = 20
ItemHeight = 12
TabOrder = 0
Text = 'ComboBox1'
OnClick = ComboBox1Click
Items.Strings = (
#20135#21697#32534#21495
#20135#21697#21517#31216
#20135#21697#22411#21495
#23458#25143#32534#21495
#23458#25143#20840#31216
#21806#20986#20154
#36864#36135#32463#25163#20154)
end
object Edit1: TEdit
Left = 13
Top = 82
Width = 95
Height = 20
TabOrder = 1
Text = 'Edit1'
OnExit = BitBtn1Click
OnKeyPress = Edit1KeyPress
end
end
object GroupBox3: TGroupBox
Left = 594
Top = 128
Width = 121
Height = 161
Caption = #25805#20316#26639
TabOrder = 2
object BitBtn1: TBitBtn
Left = 25
Top = 41
Width = 75
Height = 25
Caption = #26597' '#35810
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 25
Top = 78
Width = 75
Height = 25
Caption = #21047' '#26032
TabOrder = 1
OnClick = BitBtn2Click
end
object BitBtn4: TBitBtn
Left = 25
Top = 114
Width = 75
Height = 25
Caption = #36864' '#20986
TabOrder = 2
OnClick = BitBtn4Click
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 256
Top = 160
end
object Table1: TTable
DatabaseName = 'user'
TableName = 'chanth'
Left = 288
Top = 152
object Table1id: TAutoIncField
FieldName = 'id'
end
object Table1cpbh: TStringField
FieldName = 'cpbh'
end
object Table1cpmc: TStringField
FieldName = 'cpmc'
Size = 60
end
object Table1cpxh: TStringField
FieldName = 'cpxh'
Size = 40
end
object Table1cpbs: TStringField
FieldName = 'cpbs'
Size = 40
end
object Table1rdate: TDateTimeField
FieldName = 'rdate'
end
object Table1jsr: TStringField
FieldName = 'jsr'
Size = 40
end
object Table1tdate: TDateTimeField
FieldName = 'tdate'
end
object Table1tui: TStringField
FieldName = 'tui'
Size = 40
end
object Table1dan: TStringField
FieldName = 'dan'
Size = 8
end
object Table1shuliang: TStringField
FieldName = 'shuliang'
end
object Table1cx: TStringField
FieldName = 'cx'
Size = 40
end
object Table1cd: TStringField
FieldName = 'cd'
Size = 40
end
object Table1khbh: TStringField
FieldName = 'khbh'
end
object Table1khqc: TStringField
FieldName = 'khqc'
Size = 80
end
object Table1lxdh: TStringField
FieldName = 'lxdh'
Size = 30
end
object Table1pi: TFloatField
FieldName = 'pi'
end
object Table1ling: TFloatField
FieldName = 'ling'
end
object Table1je: TFloatField
FieldName = 'je'
end
object Table1ying: TFloatField
FieldName = 'ying'
end
object Table1shi: TFloatField
FieldName = 'shi'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -