📄 drive_card.~dfm
字号:
object frm_Drive_Card: Tfrm_Drive_Card
Left = 78
Top = 190
Width = 728
Height = 480
Caption = #39550#29031#31649#29702
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel3: TPanel
Left = 0
Top = 0
Width = 720
Height = 28
Align = alTop
BevelOuter = bvNone
Color = clCream
TabOrder = 0
object Label2: TLabel
Left = 20
Top = 6
Width = 96
Height = 15
Alignment = taCenter
Caption = #9670#39550#29031#31649#29702#9670
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 28
Width = 720
Height = 143
Align = alTop
TabOrder = 1
object Edit1: TLabeledEdit
Left = 87
Top = 16
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #39550#39542#35777#21495#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 0
OnMouseUp = Edit1MouseUp
end
object Edit7: TLabeledEdit
Left = 87
Top = 66
Width = 121
Height = 21
EditLabel.Width = 39
EditLabel.Height = 13
EditLabel.Caption = #31821#36143#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 1
end
object Edit3: TLabeledEdit
Left = 572
Top = 16
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #36523#20221#35777#21495#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 2
end
object labeleditsex: TLabeledEdit
Left = 87
Top = 41
Width = 58
Height = 21
EditLabel.Width = 39
EditLabel.Height = 13
EditLabel.Caption = #24615#21035#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 3
end
object Edit9: TLabeledEdit
Left = 87
Top = 91
Width = 606
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #23478#24237#22320#22336#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 4
end
object Edit10: TLabeledEdit
Left = 87
Top = 116
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #21457#35777#21333#20301#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 5
end
object Edit8: TLabeledEdit
Left = 329
Top = 66
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #32852#31995#30005#35805#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 6
end
object Edit2: TLabeledEdit
Left = 329
Top = 16
Width = 121
Height = 21
EditLabel.Width = 78
EditLabel.Height = 13
EditLabel.Caption = #39550#39542#21592#21517#31216#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 7
end
object Edit5: TLabeledEdit
Left = 329
Top = 41
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #20986#29983#26085#26399#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 8
end
object Edit6: TLabeledEdit
Left = 572
Top = 41
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #39550#29031#31867#22411#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 9
end
object Edit11: TLabeledEdit
Left = 329
Top = 116
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #21457#35777#26085#26399#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 10
end
object Edit12: TLabeledEdit
Left = 572
Top = 116
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #26377#25928#26085#26399#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 11
end
object Edit13: TLabeledEdit
Left = 572
Top = 65
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #30331#35760#26085#26399#65306
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 12
end
object DateTimePicker1: TDateTimePicker
Left = 434
Top = 41
Width = 17
Height = 21
CalAlignment = dtaLeft
Date = 38096.4218780208
Time = 38096.4218780208
DateFormat = dfShort
DateMode = dmComboBox
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Kind = dtkDate
ParseInput = False
TabOrder = 13
OnChange = DateTimePicker1Change
end
object DateTimePicker2: TDateTimePicker
Left = 676
Top = 116
Width = 17
Height = 21
CalAlignment = dtaLeft
Date = 38096.4218780208
Time = 38096.4218780208
DateFormat = dfShort
DateMode = dmComboBox
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Kind = dtkDate
ParseInput = False
TabOrder = 14
OnChange = DateTimePicker2Change
end
object DateTimePicker3: TDateTimePicker
Left = 435
Top = 116
Width = 17
Height = 21
CalAlignment = dtaLeft
Date = 38096.4218780208
Time = 38096.4218780208
DateFormat = dfShort
DateMode = dmComboBox
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Kind = dtkDate
ParseInput = False
TabOrder = 15
OnChange = DateTimePicker3Change
end
object Edit4: TComboBox
Left = 88
Top = 41
Width = 120
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ItemHeight = 13
TabOrder = 16
Items.Strings = (
#30007
#22899)
end
end
object ToolBar1: TToolBar
Left = 0
Top = 171
Width = 720
Height = 29
ButtonHeight = 21
Caption = 'ToolBar1'
Color = clCream
ParentColor = False
TabOrder = 2
object Cmd_Add: TSpeedButton
Left = 0
Top = 2
Width = 66
Height = 21
Caption = #22686#21152
OnClick = Cmd_AddClick
end
object Cmd_Delete: TSpeedButton
Left = 66
Top = 2
Width = 66
Height = 21
Caption = #21024#38500
OnClick = Cmd_DeleteClick
end
object Cmd_Edit: TSpeedButton
Left = 132
Top = 2
Width = 66
Height = 21
Caption = #20462#25913
OnClick = Cmd_EditClick
end
object Cmd_Save: TSpeedButton
Left = 198
Top = 2
Width = 66
Height = 21
Caption = #20445#23384
Enabled = False
OnClick = Cmd_SaveClick
end
object Cmd_Rush: TSpeedButton
Left = 264
Top = 2
Width = 66
Height = 21
Caption = #21047#26032
OnClick = Cmd_RushClick
end
object Cmd_Report: TSpeedButton
Left = 330
Top = 2
Width = 66
Height = 21
Caption = #25253#34920
OnClick = Cmd_ReportClick
end
object Edit_ID: TEdit
Left = 396
Top = 2
Width = 62
Height = 21
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
end
object SpeedButton5: TSpeedButton
Left = 458
Top = 2
Width = 66
Height = 21
Visible = False
end
object SpeedButton2: TSpeedButton
Left = 524
Top = 2
Width = 66
Height = 21
Visible = False
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 200
Width = 720
Height = 253
Align = alClient
DataSource = frm_Data.Data_Pro_Drive_Card
FixedColor = clSkyBlue
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = 'Drive_ID'
Title.Caption = #39550#39542#35777#21495
Visible = True
end
item
Expanded = False
FieldName = 'Drive_Man'
Title.Caption = #39550#39542#21592#21517#31216
Visible = True
end
item
Expanded = False
FieldName = 'SH_Card'
Title.Caption = #36523#20221#35777#21495
Visible = True
end
item
Expanded = False
FieldName = 'Old_Date'
Title.Caption = #20986#29983#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'SEX'
Title.Caption = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = 'Drive_Card_Type'
Title.Caption = #39550#29031#31867#22411
Visible = True
end
item
Expanded = False
FieldName = 'JG'
Title.Caption = #31821#36143
Visible = True
end
item
Expanded = False
FieldName = 'Telphone'
Title.Caption = #32852#31995#30005#35805
Visible = True
end
item
Expanded = False
FieldName = 'Address'
Title.Caption = #23478#24237#22320#22336
Visible = True
end
item
Expanded = False
FieldName = 'Send_Mond'
Title.Caption = #21457#35777#21333#20301
Visible = True
end
item
Expanded = False
FieldName = 'Send_Date'
Title.Caption = #21457#35777#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'Value_Date'
Title.Caption = #26377#25928#26085#26399
Visible = True
end>
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = True
Active = True
ControlUseTrueXPStyle = True
BtnRoundArc = 5
BtnOutLineBorderColor = 7552000
BtnInnerBorderMoveColor = 3257087
BtnInnerBorderFocusColor = 15183500
BtnSurfaceNormalColor = 16251903
BtnSurfaceDownColor = 14608359
BtnSurfaceBottomLineColor = 14608359
BtnSurfaceDownBottomLineColor = 15199215
RdoChkControlChkColor = 41472
ComboBoxChkColor = 9201994
ComboboxSurfaceMoveColor = 16771030
ControlDisabledBorderColor = 11913158
Left = 232
Top = 280
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -