📄 gongzichaxun.~dfm
字号:
object Form9: TForm9
Left = 351
Top = 296
Width = 611
Height = 333
Caption = #20225#19994#20154#20107#20449#24687#31649#29702#31995#32479
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Bevel3: TBevel
Left = 297
Top = 192
Width = 16
Height = 97
Shape = bsLeftLine
end
object Bevel2: TBevel
Left = -17
Top = 184
Width = 569
Height = 9
Shape = bsTopLine
end
object Bevel1: TBevel
Left = -33
Top = 48
Width = 569
Height = 9
Shape = bsTopLine
end
object Label2: TLabel
Left = 16
Top = 200
Width = 128
Height = 19
Caption = #35831#36873#25321#26597#35810#26041#24335#65306
FocusControl = ComboBox1
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #21326#25991#20013#23435
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 152
Top = 200
Width = 128
Height = 19
Caption = #35831#36755#20837#26597#35810#20869#23481#65306
FocusControl = Edit1
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #21326#25991#20013#23435
Font.Style = []
ParentFont = False
end
object StaticText1: TStaticText
Left = 160
Top = 8
Width = 260
Height = 34
BevelInner = bvLowered
BevelKind = bkTile
Caption = ' '#21592#24037#24037#36164#26597#35810#31995#32479' '
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #21326#25991#24425#20113
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
end
object Memo1: TMemo
Left = 447
Top = 8
Width = 137
Height = 33
Lines.Strings = (
'Memo1')
TabOrder = 1
Visible = False
end
object DBGrid1: TDBGrid
Left = 16
Top = 56
Width = 569
Height = 121
Color = clCaptionText
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ComboBox1: TComboBox
Left = 8
Top = 232
Width = 129
Height = 27
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #21326#25991#20013#23435
Font.Style = []
ItemHeight = 19
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = #25353#21592#24037#22995#21517#26597#35810
Items.Strings = (
#25353#21592#24037#22995#21517#26597#35810
#25353#25152#22312#37096#38376#26597#35810)
end
object Edit1: TEdit
Left = 160
Top = 232
Width = 105
Height = 27
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #21326#25991#20013#23435
Font.Style = []
ParentFont = False
TabOrder = 4
end
object DBNavigator1: TDBNavigator
Left = 312
Top = 200
Width = 270
Height = 41
DataSource = DataSource1
TabOrder = 5
end
object BitBtn1: TBitBtn
Left = 328
Top = 256
Width = 97
Height = 25
Caption = #24320#22987#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 472
Top = 256
Width = 89
Height = 25
Caption = #20851#38381#31383#21475
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 24
Top = 264
Width = 97
Height = 25
Caption = #24037#36164#20462#25913
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 168
Top = 264
Width = 89
Height = 25
Caption = #24037#36164#25253#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = BitBtn4Click
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 16
Top = 8
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=gongz' +
'iguanli.mdb;Mode=Share Deny None;Extended Properties="";Persist ' +
'Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Regis' +
'try Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type' +
'=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bu' +
'lk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data' +
'base Password="";Jet OLEDB:Create System Database=False;Jet OLED' +
'B:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=' +
'False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:S' +
'FP=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 48
Top = 8
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'gongzixitong'
Left = 88
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -