rsgl.dfm

一个用vb mysql实现的人事管理信息系统希望对大家有用。

        Height = 23
        Date = 37492.566816435200000000
        Time = 37492.566816435200000000
        DateFormat = dfLong
        TabOrder = 3
      end
      object DBEdit2: TDBEdit
        Left = 309
        Top = 85
        Width = 138
        Height = 23
        DataField = 'Sfzh'
        DataSource = DataSource1
        TabOrder = 4
      end
      object DBEdit3: TDBEdit
        Left = 310
        Top = 18
        Width = 121
        Height = 23
        DataField = 'Xm'
        DataSource = DataSource1
        TabOrder = 5
      end
      object DBComboBox3: TDBComboBox
        Left = 552
        Top = 51
        Width = 105
        Height = 23
        ItemHeight = 15
        Items.Strings = (
          #21338#30740
          #30805#30740
          #22823#26412
          #22823#19987
          #39640#20013
          #21021#20013
          #23567#23398)
        TabOrder = 6
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 551
        Top = 85
        Width = 105
        Height = 23
        KeyField = 'mc'
        ListField = 'mc'
        ListSource = DataSource2
        TabOrder = 7
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 310
        Top = 121
        Width = 105
        Height = 23
        ListField = 'mc'
        ListSource = DataSource3
        TabOrder = 8
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 551
        Top = 121
        Width = 105
        Height = 23
        KeyField = 'mc'
        ListField = 'mc'
        ListSource = DataSource4
        TabOrder = 9
      end
      object DateTimePicker2: TDateTimePicker
        Left = 86
        Top = 121
        Width = 123
        Height = 23
        Date = 37492.566816435200000000
        Time = 37492.566816435200000000
        DateFormat = dfLong
        TabOrder = 10
      end
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 172
      Width = 665
      Height = 85
      Caption = #32852#31995#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label14: TLabel
        Left = 12
        Top = 20
        Width = 60
        Height = 15
        Caption = #23478#24237#20303#22336
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 436
        Top = 58
        Width = 90
        Height = 15
        Caption = #22266#23450#32852#31995#30005#35805
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 216
        Top = 58
        Width = 60
        Height = 15
        Caption = #25163#26426#21495#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 17
        Top = 58
        Width = 48
        Height = 15
        Caption = 'E-mail'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Bevel4: TBevel
        Left = 3
        Top = 44
        Width = 662
        Height = 2
        Shape = bsTopLine
      end
      object Bevel10: TBevel
        Left = 79
        Top = 9
        Width = 2
        Height = 73
      end
      object Bevel11: TBevel
        Left = 210
        Top = 44
        Width = 2
        Height = 40
      end
      object Bevel12: TBevel
        Left = 430
        Top = 45
        Width = 2
        Height = 40
      end
      object Bevel13: TBevel
        Left = 531
        Top = 45
        Width = 2
        Height = 40
      end
      object DBEdit4: TDBEdit
        Left = 88
        Top = 54
        Width = 113
        Height = 23
        DataField = 'Email'
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit5: TDBEdit
        Left = 288
        Top = 54
        Width = 129
        Height = 23
        DataField = 'Sjhm'
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBEdit6: TDBEdit
        Left = 536
        Top = 54
        Width = 121
        Height = 23
        DataField = 'Gdlxdh'
        DataSource = DataSource1
        TabOrder = 2
      end
      object DBEdit7: TDBEdit
        Left = 88
        Top = 16
        Width = 361
        Height = 23
        DataField = 'Jtzz'
        DataSource = DataSource1
        TabOrder = 3
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 329
    Width = 703
    Height = 48
    Align = alClient
    TabOrder = 2
    object Button1: TButton
      Left = 72
      Top = 16
      Width = 89
      Height = 25
      Caption = #22686#21152'(&I)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Button2: TButton
      Left = 208
      Top = 16
      Width = 89
      Height = 25
      Caption = #21024#38500'(&D)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Button3: TButton
      Left = 368
      Top = 16
      Width = 89
      Height = 25
      Caption = #25552#20132'(&X)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Button4: TButton
      Left = 528
      Top = 16
      Width = 89
      Height = 25
      Caption = #36864#20986'(&E)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 168
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'rsgzgl'
    SQL.Strings = (
      'select * from ygzlb')
    Left = 104
    Top = 16
  end
  object Query2: TQuery
    DatabaseName = 'rsgzgl'
    SQL.Strings = (
      'select  mc from jbcsb where lx=2')
    Left = 520
    Top = 161
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 496
    Top = 161
  end
  object Query3: TQuery
    DatabaseName = 'rsgzgl'
    SQL.Strings = (
      'select mc from jbcsb where lx=3')
    Left = 360
    Top = 201
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 336
    Top = 209
  end
  object Query4: TQuery
    DatabaseName = 'rsgzgl'
    SQL.Strings = (
      'select mc from jbcsb where lx=4')
    Left = 584
    Top = 201
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 568
    Top = 209
  end
end