ygzbxxwh.dfm

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

        Top = 125
        Width = 105
        Height = 23
        DataField = 'Ssbm'
        DataSource = DataSource1
        Enabled = False
        KeyField = 'mc'
        ListField = 'mc'
        ListSource = DataSource2
        TabOrder = 6
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 310
        Top = 165
        Width = 105
        Height = 23
        DataField = 'Zw'
        DataSource = DataSource1
        Enabled = False
        KeyField = 'mc'
        ListField = 'mc'
        ListSource = DataSource3
        TabOrder = 7
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 551
        Top = 165
        Width = 105
        Height = 23
        DataField = 'Zc'
        DataSource = DataSource1
        Enabled = False
        KeyField = 'mc'
        ListField = 'mc'
        ListSource = DataSource4
        TabOrder = 8
      end
      object DateTimePicker2: TDateTimePicker
        Left = 86
        Top = 165
        Width = 131
        Height = 23
        Date = 0.566816435202782000
        Time = 0.566816435202782000
        DateFormat = dfLong
        Enabled = False
        TabOrder = 9
      end
      object Edit1: TEdit
        Left = 88
        Top = 15
        Width = 89
        Height = 23
        TabOrder = 10
        OnKeyPress = Edit1KeyPress
      end
      object DBImage1: TDBImage
        Left = 512
        Top = 8
        Width = 145
        Height = 145
        PopupMenu = PopupMenu1
        TabOrder = 11
      end
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 260
      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 Bevel14: TBevel
        Left = 282
        Top = 45
        Width = 2
        Height = 40
      end
      object DBEdit4: TDBEdit
        Left = 88
        Top = 54
        Width = 113
        Height = 23
        DataField = 'Email'
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit5: TDBEdit
        Left = 288
        Top = 54
        Width = 129
        Height = 23
        DataField = 'Sjhm'
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit6: TDBEdit
        Left = 536
        Top = 54
        Width = 121
        Height = 23
        DataField = 'Gdlxdh'
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit7: TDBEdit
        Left = 88
        Top = 16
        Width = 361
        Height = 23
        DataField = 'Jtzz'
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 3
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 411
    Width = 819
    Height = 46
    Align = alBottom
    TabOrder = 2
    object Button1: TButton
      Left = 24
      Top = 16
      Width = 89
      Height = 25
      Caption = #26597#35810'(&Q)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 136
      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
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 368
      Top = 16
      Width = 89
      Height = 25
      Caption = #25552#20132'(&X)'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 592
      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
    object Button5: TButton
      Left = 248
      Top = 16
      Width = 89
      Height = 25
      Caption = #20462#25913'(&E)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 480
      Top = 16
      Width = 89
      Height = 25
      Caption = #24110#21161'(&H)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Button6Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 120
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 600
    Top = 329
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 536
    Top = 329
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 664
    Top = 329
  end
  object ADOQuery1: TADOQuery
    Connection = dmain.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <
      item
        Name = '?'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '1'
      end>
    SQL.Strings = (
      'select * from ygzlb where ygh=:ygh and yxbz=1')
    Left = 88
    Top = 16
  end
  object ADOQuery2: TADOQuery
    Connection = dmain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select  mc from jbcsb where lx=2')
    Left = 568
    Top = 328
  end
  object ADOQuery3: TADOQuery
    Connection = dmain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select mc from jbcsb where lx=3')
    Left = 496
    Top = 328
  end
  object ADOQuery4: TADOQuery
    Connection = dmain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select mc from jbcsb where lx=4')
    Left = 632
    Top = 328
  end
  object PopupMenu1: TPopupMenu
    Left = 553
    Top = 138
    object N1: TMenuItem
      Caption = #36873#21462
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20445#23384
      OnClick = N2Click
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 504
    Top = 273
  end
end