?? f_yhgl.dfm
字號:
object Form4: TForm4
Left = 186
Top = 129
Width = 530
Height = 363
BorderIcons = [biSystemMenu, biMinimize]
Caption = #29992#25143#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object gb_1: TGroupBox
Left = 0
Top = 176
Width = 513
Height = 73
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 40
Width = 24
Height = 12
Caption = #32534#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 120
Top = 40
Width = 42
Height = 13
Caption = #29992#25143#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 256
Top = 40
Width = 28
Height = 13
Caption = #23494#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 376
Top = 40
Width = 28
Height = 13
Caption = #24615#21517
end
object e_bh: TEdit
Left = 48
Top = 40
Width = 65
Height = 21
TabOrder = 0
OnKeyPress = e_bhKeyPress
end
object c_xb: TComboBox
Left = 424
Top = 40
Width = 73
Height = 21
ItemHeight = 13
TabOrder = 1
OnKeyPress = c_xbKeyPress
OnSelect = c_xbSelect
Items.Strings = (
#30007
#22899)
end
object e_password: TEdit
Left = 312
Top = 40
Width = 57
Height = 21
TabOrder = 2
OnKeyPress = e_passwordKeyPress
end
object e_user: TEdit
Left = 184
Top = 40
Width = 65
Height = 21
TabOrder = 3
OnKeyPress = e_userKeyPress
end
end
object gb_2: TGroupBox
Left = 0
Top = 248
Width = 513
Height = 65
TabOrder = 1
object b_xz: TBitBtn
Left = 8
Top = 24
Width = 65
Height = 33
Caption = #22686#21152
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = b_xzClick
end
object b_xg: TBitBtn
Left = 88
Top = 24
Width = 65
Height = 33
Caption = #20462#25913
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = b_xgClick
end
object b_gb: TBitBtn
Left = 440
Top = 24
Width = 57
Height = 33
Caption = #20851#38381
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = b_gbClick
end
object b_qx: TBitBtn
Left = 344
Top = 24
Width = 65
Height = 33
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = b_qxClick
end
object b_bc: TBitBtn
Left = 168
Top = 24
Width = 65
Height = 33
Caption = #20445#23384
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = b_bcClick
end
object b_sc: TBitBtn
Left = 256
Top = 24
Width = 65
Height = 33
Caption = #21024#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = b_scClick
end
end
object DBGrid1: TDBGrid
Left = 8
Top = 0
Width = 505
Height = 169
DataSource = DataSource1
FixedColor = clGradientActiveCaption
Options = [dgTitles, dgIndicator, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
object stb: TStatusBar
Left = 0
Top = 317
Width = 522
Height = 19
Panels = <
item
Width = 150
end
item
Width = 150
end
item
Width = 150
end>
SimplePanel = False
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\DELPHI'#23487#33293#31649#29702#31995#32479'\data\' +
'ssgl.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 416
Top = 48
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from username')
Left = 344
Top = 24
object ADOQuery1bh: TStringField
DisplayLabel = #21592#24037#32534#21495
DisplayWidth = 17
FieldName = 'bh'
FixedChar = True
Size = 10
end
object ADOQuery1username: TStringField
DisplayLabel = #21592#24037#22995#21517
DisplayWidth = 18
FieldName = 'username'
FixedChar = True
Size = 10
end
object ADOQuery1password: TStringField
DisplayLabel = #21592#24037#23494#30721
DisplayWidth = 19
FieldName = 'password'
FixedChar = True
Size = 10
end
object ADOQuery1xb: TStringField
DisplayLabel = #21592#24037#24615#21035
DisplayWidth = 16
FieldName = 'xb'
FixedChar = True
Size = 10
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
OnStateChange = DataSource1StateChange
OnDataChange = DataSource1DataChange
Left = 380
Top = 32
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -