📄 cheliang.dfm
字号:
object CheLiangForm: TCheLiangForm
Left = 177
Top = 114
BorderStyle = bsDialog
Caption = '车辆管理'
ClientHeight = 287
ClientWidth = 642
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Icon.Data = {
0000010002002020100000000000E80200002600000010101000000000002801
00000E0300002800000020000000400000000100040000000000800200000000
0000000000000000000000000000000000000000800000800000008080008000
0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000003888738337700000000000000000038FBFFFB788B8837700000000000
0788FBFFFBFFF7FF8B8883700000000007FBFFFBFFFBFF7BFFFB888700000000
007FFBFFFBFFFB7FFBFFFBF3700000000007FFFBFFFBFFF7FFFBFF7777000000
0007FBFFFBFFFBF7FB7777FFF800000000007FFBFFFBFFF777FBFFFBF8000000
00007BFFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
000007FFFBFFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
0000066660FFFBFFFBFFFBFFF80000666000066660FBFFFBFFFBFFFBF8000666
66000006660FFBFFFBFFFBFFF8000E6666066660660FFFFFFFFBFFFBF8000E66
66066660660000000FFFFBFFF8000EE6660666606607777777FBFFFBF8000EE6
660EEEE6660FFBFFFBFFFBFFF80000EEE0770E6660FBFFFBFFFBFFFBF8000000
00000EEE60FFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
0000077777777777777777777700000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFFFFFFFFFFFFE003FFFF00007FFC00
001FF800000FF8000007FC000003FE000001FE000001FF000001FF000001FF80
0001FF800001FF800001C7000001830000010000000100000001000000010000
00010000000180000001C7000001FF800001FF800001FF800001FF800001FF80
0001FF800001FFFFFFFFFFFFFFFF280000001000000020000000010004000000
0000C00000000000000000000000000000000000000000000000000080000080
000000808000800000008000800080800000C0C0C000808080000000FF0000FF
000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
00000000000000087B77088800000008FFFBF0B7880000008BFFFB0FB7800000
8FFBFF0F0080000008FFFB80FB700000000BFFFBFF7000000660FBFFFB700660
0060FFFBFF700E60E06000FFFB700EE00EE0FFFBFF700000000FFBFFFB700000
08FBFFFBFF7000000888888888800000000000000000FFFF0000F00F0000E003
0000E0010000F0000000F0000000F8000000F800000090000000000000000000
00000000000098000000F8000000F8000000FFFF0000}
KeyPreview = True
OldCreateOrder = True
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 14
object ButtonClose: TButton
Left = 570
Top = 256
Width = 63
Height = 25
Caption = '关闭(&C)'
ModalResult = 2
TabOrder = 0
OnClick = ButtonCloseClick
end
object DBGrid1: TDBGrid
Left = 5
Top = 30
Width = 632
Height = 217
DataSource = DataSourceChe
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'Cardnumber'
Title.Alignment = taCenter
Title.Caption = '车牌号'
Width = 111
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Cartype'
Title.Alignment = taCenter
Title.Caption = '车型号'
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Enginenumber'
Title.Alignment = taCenter
Title.Caption = '发动机号'
Width = 106
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Carnumber'
Title.Alignment = taCenter
Title.Caption = '车架号'
Width = 135
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Carcolor'
PickList.Strings = (
'黑色'
'红色'
'灰色')
Title.Alignment = taCenter
Title.Caption = '车身颜色'
Width = 74
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 256
Width = 540
Height = 25
DataSource = DataSourceChe
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Hints.Strings = (
'最前一条'
'最后一条'
'下一条'
'上一条'
'插入'
'删除'
'编辑'
'提交修改'
'放弃修改'
'数据刷新')
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object ComboBoxArea: TComboBox
Left = 192
Top = 2
Width = 73
Height = 22
ItemHeight = 14
TabOrder = 3
Text = '京'
OnExit = ComboBoxAreaExit
Items.Strings = (
'京'
'沪'
'津'
'冀'
'鲁'
'豫')
end
object CheckBoxArea: TCheckBox
Left = 8
Top = 8
Width = 177
Height = 17
Caption = '自动添加车牌号地区代码'
TabOrder = 4
end
object TableChe: TTable
BeforePost = TableCheBeforePost
TableName = 'carinfo'
TableType = ttParadox
Left = 296
Top = 65528
object TableCheCardnumber: TStringField
FieldName = 'Cardnumber'
Size = 7
end
object TableCheCartype: TStringField
FieldName = 'Cartype'
OnChange = TableCheCartypeChange
Size = 8
end
object TableCheEnginenumber: TStringField
FieldName = 'Enginenumber'
Size = 10
end
object TableCheCarnumber: TStringField
FieldName = 'Carnumber'
Size = 10
end
object TableCheCarcolor: TStringField
FieldName = 'Carcolor'
OnChange = TableCheCarcolorChange
Size = 8
end
end
object DataSourceChe: TDataSource
DataSet = TableChe
Left = 352
Top = 65528
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -