📄 cjtjwh.dfm
字号:
object cjtzwhfrm: Tcjtzwhfrm
Left = 104
Top = 62
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #24046#20215#35843#25972#32500#25252
ClientHeight = 461
ClientWidth = 693
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 318
Top = 144
Width = 52
Height = 13
Caption = #36865#36135#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 693
Height = 81
Align = alTop
Caption = #26597#35810#39033
TabOrder = 0
object Label8: TLabel
Left = 16
Top = 30
Width = 65
Height = 13
Caption = #35843#25972#26085#26399#20174
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 190
Top = 30
Width = 13
Height = 13
Caption = #21040
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 16
Top = 56
Width = 65
Height = 13
Caption = #20849#26377#35760#24405#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 342
Top = 32
Width = 52
Height = 13
Caption = #35843#25972#21333#21495
FocusControl = DBEdit4
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object dtp1: TDateTimePicker
Left = 80
Top = 22
Width = 100
Height = 21
CalAlignment = dtaLeft
Date = 37380.4112435532
Time = 37380.4112435532
DateFormat = dfShort
DateMode = dmUpDown
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object dtp2: TDateTimePicker
Left = 210
Top = 22
Width = 100
Height = 21
CalAlignment = dtaLeft
Date = 37380.4112435532
Time = 37380.4112435532
DateFormat = dfShort
DateMode = dmUpDown
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object Button1: TButton
Left = 552
Top = 32
Width = 75
Height = 25
Caption = #25191#34892#26597#35810
TabOrder = 2
OnClick = Button1Click
end
object Edit1: TEdit
Left = 400
Top = 24
Width = 81
Height = 21
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 81
Width = 693
Height = 380
Align = alClient
TabOrder = 1
object Panel1: TPanel
Left = 2
Top = 15
Width = 689
Height = 143
Align = alTop
BorderStyle = bsSingle
TabOrder = 0
object Label1: TLabel
Left = 22
Top = 40
Width = 40
Height = 13
Caption = #35843#25972'ID'
FocusControl = DBEdit1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 22
Top = 88
Width = 52
Height = 13
Caption = #36865#36135#21333#21495
FocusControl = DBEdit2
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 170
Top = 40
Width = 52
Height = 13
Caption = #35843#25972#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 168
Top = 88
Width = 26
Height = 13
Caption = #22791#27880
FocusControl = DBEdit3
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 310
Top = 40
Width = 52
Height = 13
Caption = #35843#25972#21333#21495
FocusControl = DBEdit4
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 454
Top = 40
Width = 39
Height = 13
Caption = #35843#25972#20154
FocusControl = DBEdit5
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 24
Top = 56
Width = 100
Height = 21
DataField = #35843#25972'ID'
DataSource = dm.whcjtzds
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 24
Top = 104
Width = 100
Height = 21
DataField = #36865#36135#21333#21495
DataSource = dm.whcjtzds
TabOrder = 1
end
object DBDateTimeEditEh1: TDBDateTimeEditEh
Left = 168
Top = 56
Width = 100
Height = 21
DataField = #35843#25972#26085#26399
DataSource = dm.whcjtzds
EditButton.Style = ebsUpDownEh
EditButtons = <>
Kind = dtkDateEh
TabOrder = 2
Visible = True
OnChange = DBDateTimeEditEh1Change
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 683
Height = 34
Align = alTop
BevelInner = bvLowered
TabOrder = 3
object DBNavigator1: TDBNavigator
Left = 2
Top = 2
Width = 300
Height = 30
DataSource = dm.whcjtzds
Align = alLeft
Hints.Strings = (
#31532#19968#26465
#21069#19968#26465
#19979#19968#26465
#26368#21518#19968#26465
#22686#21152
#21024#38500
#20462#25913
#20445#23384
#21462#28040
#21047#26032)
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 348
Top = 4
Width = 82
Height = 25
Caption = #25171#21360#24403#21069#21333#25454
TabOrder = 1
OnClick = BitBtn1Click
end
end
object DBEdit3: TDBEdit
Left = 168
Top = 104
Width = 233
Height = 21
DataField = #22791#27880
DataSource = dm.whcjtzds
TabOrder = 4
end
object DBEdit4: TDBEdit
Left = 312
Top = 56
Width = 100
Height = 21
DataField = #35843#25972#21333#21495
DataSource = dm.whcjtzds
TabOrder = 5
end
object DBEdit5: TDBEdit
Left = 456
Top = 56
Width = 100
Height = 21
DataField = #35843#25972#20154
DataSource = dm.whcjtzds
TabOrder = 6
end
end
object GroupBox3: TGroupBox
Left = 2
Top = 158
Width = 689
Height = 220
Align = alClient
Caption = #35843#25972#21333#26126#32454
TabOrder = 1
object Panel2: TPanel
Left = 2
Top = 187
Width = 685
Height = 31
Align = alBottom
BevelInner = bvLowered
TabOrder = 0
object DBNavigator2: TDBNavigator
Left = 2
Top = 2
Width = 300
Height = 27
DataSource = dm.whtzmxds
Align = alLeft
Hints.Strings = (
#31532#19968#26465
#21069#19968#26465
#19979#19968#26465
#26368#21518#19968#26465
#22686#21152
#21024#38500
#20462#25913
#20445#23384
#21462#28040
#21047#26032)
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
end
object DBGridEh1: TDBGridEh
Left = 2
Top = 18
Width = 685
Height = 169
Align = alClient
Ctl3D = False
DataSource = dm.whtzmxds
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
ParentCtl3D = False
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnColExit = DBGridEh1ColExit
OnDrawColumnCell = DBGridEh1DrawColumnCell
OnKeyUp = DBGridEh1KeyUp
Columns = <
item
EditButtons = <>
FieldName = #35843#25972'ID'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #26448#26009#32534#30721
Footers = <>
Width = 107
end
item
EditButtons = <>
FieldName = #26448#26009#21517#31216
Footers = <>
Width = 131
end
item
EditButtons = <>
FieldName = #31867#22411
Footers = <>
ReadOnly = True
Width = 76
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
ReadOnly = True
Width = 29
end
item
EditButtons = <>
FieldName = #26448#26009#35268#26684
Footers = <>
ReadOnly = True
Width = 56
end
item
EditButtons = <>
FieldName = #35843#25972#25968#37327
Footers = <>
Width = 58
end
item
EditButtons = <>
FieldName = #35843#25972#21333#20215
Footers = <>
Width = 60
end
item
EditButtons = <>
FieldName = #35843#25972#37329#39069
Footers = <>
Width = 61
end
item
EditButtons = <>
FieldName = #22791#27880
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #31867#22411'ID'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #36865#36135#21333#21495
Footers = <>
end>
end
object DBGridEh3: TDBGridEh
Left = 13
Top = 51
Width = 108
Height = 131
DataSource = dm.whclbmds
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
ImeName = #29579#30721#20116#31508#22411
Options = [dgEditing, dgTabs, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
OnDblClick = DBGridEh3DblClick
Columns = <
item
EditButtons = <>
FieldName = #26448#26009#32534#30721
Footers = <>
Width = 130
end>
end
end
end
object frReport1: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
Left = 480
Top = 90
ReportForm = {18000000}
end
object frDBDataSet1: TfrDBDataSet
DataSource = dm.whcjtzds
Left = 520
Top = 90
end
object frDBDataSet2: TfrDBDataSet
DataSource = dm.whtzmxds
Left = 560
Top = 90
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -