?? unit1.~dfm
字號:
Height = 17
Caption = 'DBCheckBox1'
DataField = 'QX3'
DataSource = DataSource1
Enabled = False
TabOrder = 5
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBCheckBox4: TDBCheckBox
Left = 75
Top = 172
Width = 97
Height = 17
Caption = 'DBCheckBox1'
DataField = 'QX4'
DataSource = DataSource1
Enabled = False
TabOrder = 6
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBCheckBox5: TDBCheckBox
Left = 75
Top = 196
Width = 97
Height = 17
Caption = 'DBCheckBox1'
DataField = 'QX5'
DataSource = DataSource1
Enabled = False
TabOrder = 7
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBComboBox1: TDBComboBox
Left = 75
Top = 76
Width = 48
Height = 20
DataField = 'QXDJ'
DataSource = DataSource1
Enabled = False
ItemHeight = 12
Items.Strings = (
'0'
'1'
'2'
'3'
'4'
'5')
TabOrder = 8
end
object Panel4: TPanel
Left = 188
Top = 217
Width = 160
Height = 27
BevelOuter = bvLowered
TabOrder = 9
Visible = False
object Button9: TButton
Left = 4
Top = 3
Width = 75
Height = 21
Caption = #27491#30830
TabOrder = 0
OnClick = Button9Click
end
object Button10: TButton
Left = 80
Top = 3
Width = 75
Height = 21
Caption = #25918#24323
TabOrder = 1
OnClick = Button10Click
end
end
object Button7: TButton
Left = 267
Top = 196
Width = 75
Height = 21
Caption = #20462#25913
TabOrder = 10
OnClick = Button7Click
end
object Button4: TButton
Left = 267
Top = 156
Width = 75
Height = 21
Caption = #26356#26032#33756#21333
TabOrder = 11
OnClick = Button4Click
end
object B1: TButton
Left = 272
Top = 8
Width = 75
Height = 21
Caption = #26435#38480'1'
TabOrder = 12
end
object B2: TButton
Left = 272
Top = 32
Width = 75
Height = 21
Caption = #26435#38480'2'
TabOrder = 13
end
object B3: TButton
Left = 272
Top = 56
Width = 75
Height = 21
Caption = #26435#38480'3'
TabOrder = 14
end
object Button8: TButton
Left = 240
Top = 112
Width = 107
Height = 21
Caption = #25511#21046#19979#19968#27493#25805#20316
TabOrder = 15
OnClick = Button8Click
end
end
object TabSheet3: TTabSheet
Caption = #26435#38480'4'
ImageIndex = 2
end
object TabSheet4: TTabSheet
Caption = #26435#38480'5'
ImageIndex = 3
end
end
object DBGrid1: TDBGrid
Left = 3
Top = 1
Width = 169
Height = 277
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = #29992#25143#32534#30721
Title.Alignment = taCenter
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #29992#25143#21517#31216
Title.Alignment = taCenter
Width = 70
Visible = True
end>
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='#23398#29983#19982#20465#20048#37096'.' +
'mdb;Persist Security Info=True'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 8
Top = 64
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
AfterScroll = ADOTable1AfterScroll
TableName = #29992#25143#26435#38480
Left = 40
Top = 64
object ADOTable1DSDesigner: TWideStringField
FieldName = #29992#25143#32534#30721
Size = 5
end
object ADOTable1DSDesigner2: TWideStringField
FieldName = #29992#25143#21517#31216
Size = 10
end
object ADOTable1DSDesigner3: TWideStringField
FieldName = #29992#25143#23494#30721
Size = 10
end
object ADOTable1DSDesigner4: TDateTimeField
FieldName = #27880#20876#26085#26399
end
object ADOTable1DSDesigner5: TBlobField
FieldName = #29992#25143#29031#29255
end
object ADOTable1QX1: TBooleanField
FieldName = 'QX1'
end
object ADOTable1QX2: TBooleanField
FieldName = 'QX2'
end
object ADOTable1QX3: TBooleanField
FieldName = 'QX3'
end
object ADOTable1QX4: TBooleanField
FieldName = 'QX4'
end
object ADOTable1QX5: TBooleanField
FieldName = 'QX5'
end
object ADOTable1QXDJ: TIntegerField
FieldName = 'QXDJ'
end
object ADOTable1qx: TWideStringField
FieldName = 'qx'
Size = 50
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 72
Top = 64
end
object PopupMenu1: TPopupMenu
Left = 372
Top = 71
object N1: TMenuItem
Caption = #26356#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = '-'
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
object N4: TMenuItem
Caption = '-'
end
object N5: TMenuItem
Caption = #31896#36148
OnClick = N5Click
end
object N7: TMenuItem
Caption = '-'
end
object N6: TMenuItem
Caption = #28165#38500
OnClick = N6Click
end
end
object OPD1: TOpenPictureDialog
Filter =
'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
'ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*' +
'.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp'
Left = 372
Top = 39
end
object MainMenu1: TMainMenu
Left = 376
Top = 104
object N11: TMenuItem
Caption = #21151#33021'1'
end
object N21: TMenuItem
Caption = #21151#33021'2'
end
object N31: TMenuItem
Caption = #21151#33021'3'
object AAAAA1: TMenuItem
Caption = 'AAAAA'
end
object N10: TMenuItem
Caption = '-'
end
object BBBBB1: TMenuItem
Caption = 'BBBBB'
end
end
object X1: TMenuItem
Caption = #21151#33021'X'
object N41: TMenuItem
Caption = #21151#33021'4'
end
object N8: TMenuItem
Caption = '-'
end
object N51: TMenuItem
Caption = #21151#33021'5'
end
end
object N9: TMenuItem
Caption = #20851#38381
OnClick = N9Click
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -