企业管理

开发平台：
Delphi

f_yhgl.dfm：源码内容
							object w_yhgl: Tw_yhgl
  Left = 244
  Top = 164
  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 = (
        #31649#29702#21592
        #19968#33324#29992#25143)
    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: TIntegerField
      DisplayLabel = #29992#25143#32534#21495
      FieldName = 'user_id'
    end
    object ado_yhgluser_name: TStringField
      DisplayLabel = #29992#25143#22995#21517
      FieldName = 'user_name'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_job: TStringField
      DisplayLabel = #29992#25143#32844#20301
      FieldName = 'user_job'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_power: TStringField
      DisplayLabel = #29992#25143#26435#38480
      FieldName = 'user_power'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_password: TStringField
      DisplayLabel = #29992#25143#23494#30721
      FieldName = 'user_password'
      FixedChar = True
      Size = 10
    end
  end
  object datas_yhgl: TDataSource
    DataSet = ado_yhgl
    Left = 16
    Top = 56
  end
end

						