📄 unit19.dfm
字号:
object rctc: Trctc
Left = 203
Top = 122
Width = 562
Height = 384
Caption = #20837#22330#20572#36710
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 3
Top = 10
Width = 70
Height = 13
Caption = #21345' '#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 176
Top = 8
Width = 57
Height = 13
Caption = #36710#20301#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 323
Top = 8
Width = 62
Height = 13
Caption = #36710' '#29260#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 3
Top = 37
Width = 70
Height = 13
Caption = #21345#19978#20313#39069#65306
end
object Label4: TLabel
Left = 175
Top = 38
Width = 66
Height = 13
Caption = #20301' '#32622#65306
end
object Label6: TLabel
Left = 323
Top = 36
Width = 62
Height = 13
Caption = #36710#31867#22411#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 2
Top = 64
Width = 79
Height = 13
Caption = #23458#25143#36164#26009#65306
end
object cardid: TEdit
Left = 80
Top = 4
Width = 81
Height = 21
MaxLength = 8
TabOrder = 0
OnKeyPress = cardidKeyPress
end
object car_addressid: TComboBox
Left = 238
Top = 4
Width = 67
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = car_addressidChange
end
object carid: TEdit
Left = 387
Top = 4
Width = 78
Height = 21
MaxLength = 10
TabOrder = 2
OnExit = caridExit
end
object money: TEdit
Left = 80
Top = 31
Width = 81
Height = 21
TabStop = False
ReadOnly = True
TabOrder = 3
end
object car_address: TEdit
Left = 239
Top = 30
Width = 66
Height = 21
TabStop = False
ReadOnly = True
TabOrder = 4
end
object carclass: TComboBox
Left = 387
Top = 30
Width = 78
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 5
end
object stopok: TBitBtn
Left = 480
Top = 2
Width = 64
Height = 49
Caption = #20837#22330
Default = True
ModalResult = 1
TabOrder = 6
OnClick = stopokClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DBGrid1: TDBGrid
Left = 7
Top = 88
Width = 538
Height = 249
DataSource = ds_customers
ReadOnly = True
TabOrder = 7
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
object adot_customers: TADOTable
Active = True
Connection = DataModule11.ccsj
CursorType = ctStatic
TableName = 'customers'
Left = 156
Top = 155
end
object ds_customers: TDataSource
DataSet = ADOQuery2
Left = 204
Top = 155
end
object adot_card: TADOTable
Connection = DataModule11.ccsj
CursorType = ctStatic
TableName = 'stopcard'
Left = 92
Top = 99
end
object adot_caraddress: TADOTable
Active = True
Connection = DataModule11.ccsj
CursorType = ctStatic
TableName = 'caradd'
Left = 92
Top = 75
end
object adoq_car: TADOQuery
Connection = DataModule11.ccsj
Parameters = <>
Left = 148
Top = 83
end
object ADOQuery2: TADOQuery
Connection = DataModule11.ccsj
Parameters = <>
Left = 204
Top = 107
end
object adot_carstop: TADOTable
Active = True
Connection = DataModule11.ccsj
CursorType = ctStatic
TableName = 'carstop'
Left = 116
Top = 155
end
object adot_carclass: TADOTable
Active = True
Connection = DataModule11.ccsj
CursorType = ctStatic
TableName = 'carclass'
Left = 132
Top = 123
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -