?? f_yhgl.dfm
字號:
object w_yhgl: Tw_yhgl
Left = 230
Top = 150
BorderStyle = bsDialog
Caption = #29992#25143#31649#29702
ClientHeight = 352
ClientWidth = 490
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 94
TextHeight = 13
object gb_1: TGroupBox
Left = 0
Top = 176
Width = 489
Height = 89
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 16
Width = 48
Height = 12
Caption = #29992#25143#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 = 160
Top = 16
Width = 57
Height = 13
Caption = #29992#25143#22995#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 = 320
Top = 16
Width = 60
Height = 13
Caption = #29992#25143#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 = 16
Top = 56
Width = 57
Height = 13
Caption = #29992#25143#26435#38480' '
end
object Label5: TLabel
Left = 248
Top = 56
Width = 66
Height = 13
Caption = #29992#25143#32844#21153' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object e_bh: TEdit
Left = 64
Top = 16
Width = 89
Height = 21
TabOrder = 0
end
object c_xb: TComboBox
Left = 96
Top = 56
Width = 105
Height = 21
ItemHeight = 13
TabOrder = 1
Items.Strings = (
#39640#32423#31649#29702#21592
#19968#33324#29992#25143
#20250#35745#20154#21592)
end
object e_password: TEdit
Left = 392
Top = 16
Width = 89
Height = 21
TabOrder = 2
end
object e_user: TEdit
Left = 224
Top = 16
Width = 89
Height = 21
TabOrder = 3
end
object e_yhzw: TEdit
Left = 344
Top = 56
Width = 97
Height = 21
TabOrder = 4
end
end
object gb_2: TGroupBox
Left = -8
Top = 264
Width = 497
Height = 65
TabOrder = 1
object b_xz: TBitBtn
Left = 32
Top = 24
Width = 57
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 = 104
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 = 432
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 = 352
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 = 192
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 = 272
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 stb: TStatusBar
Left = 0
Top = 333
Width = 490
Height = 19
Panels = <
item
Width = 150
end
item
Width = 150
end
item
Width = 200
end>
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 489
Height = 177
Color = clGradientActiveCaption
DataSource = datas_yhgl
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -10
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
object ado_yhgl: TADOQuery
Active = True
Connection = data1.database1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from username')
Left = 72
Top = 56
object ado_yhgluser_id: TStringField
DisplayLabel = #29992#25143#32534#21495
DisplayWidth = 20
FieldName = 'user_id'
FixedChar = True
Size = 10
end
object ado_yhgluser_name: TStringField
DisplayLabel = #29992#25143#22995#21517
DisplayWidth = 15
FieldName = 'user_name'
FixedChar = True
Size = 10
end
object ado_yhgluser_job: TStringField
DisplayLabel = #32844#21153#21517#31216
DisplayWidth = 14
FieldName = 'user_job'
FixedChar = True
Size = 10
end
object ado_yhgluser_power: TStringField
DisplayLabel = #29992#25143#26435#38480
DisplayWidth = 16
FieldName = 'user_power'
FixedChar = True
Size = 10
end
object ado_yhgluser_password: TStringField
DisplayLabel = #29992#25143#23494#30721
DisplayWidth = 14
FieldName = 'user_password'
FixedChar = True
Size = 10
end
end
object datas_yhgl: TDataSource
DataSet = ado_yhgl
Left = 16
Top = 56
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -