unit3.dfm

劳保管理 ACCESS数据库 作为设计的一个参考

          Width = 401
          Height = 224
          TabOrder = 2
          object Label25: TLabel
            Left = 32
            Top = 8
            Width = 48
            Height = 12
            Caption = '员工编号'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label30: TLabel
            Left = 32
            Top = 64
            Width = 48
            Height = 12
            Caption = '员工姓名'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object edit12: TEdit
            Left = 32
            Top = 32
            Width = 73
            Height = 20
            TabOrder = 0
          end
          object Edit13: TEdit
            Left = 32
            Top = 80
            Width = 73
            Height = 20
            TabOrder = 1
          end
          object BitBtn4: TBitBtn
            Left = 32
            Top = 120
            Width = 75
            Height = 25
            Caption = '更改部门'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = BitBtn4Click
          end
          object DBGrid5: TDBGrid
            Left = 136
            Top = 1
            Width = 264
            Height = 222
            Align = alRight
            DataSource = DataSource5
            Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 3
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clBlue
            TitleFont.Height = -12
            TitleFont.Name = '宋体'
            TitleFont.Style = []
          end
          object BitBtn5: TBitBtn
            Left = 32
            Top = 168
            Width = 75
            Height = 25
            Caption = '删除员工'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            OnClick = BitBtn5Click
          end
        end
      end
      object Panel12: TPanel
        Left = 0
        Top = 351
        Width = 651
        Height = 62
        Align = alTop
        TabOrder = 3
        object DBGrid3: TDBGrid
          Left = 1
          Top = 1
          Width = 649
          Height = 60
          Align = alClient
          DataSource = DataSource7
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
      object Panel13: TPanel
        Left = 0
        Top = 327
        Width = 651
        Height = 24
        Align = alTop
        TabOrder = 4
        object Label38: TLabel
          Left = 272
          Top = 8
          Width = 78
          Height = 13
          Caption = '员工基本资料'
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = '员工主库'
      ImageIndex = 6
      OnShow = TabSheet7Show
      object DBGrid17: TDBGrid
        Left = 168
        Top = 0
        Width = 483
        Height = 388
        Align = alRight
        DataSource = DataSource17
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
      object Button1: TButton
        Left = 48
        Top = 0
        Width = 75
        Height = 25
        Caption = '所有员工'
        TabOrder = 1
        OnClick = Button1Click
      end
      object StatusBar1: TStatusBar
        Left = 0
        Top = 388
        Width = 651
        Height = 19
        Panels = <
          item
            Alignment = taCenter
            Text = '人数：'
            Width = 50
          end
          item
            Alignment = taCenter
            Width = 50
          end
          item
            Alignment = taCenter
            Text = '男：'
            Width = 30
          end
          item
            Alignment = taCenter
            Width = 50
          end
          item
            Alignment = taCenter
            Text = '女：'
            Width = 30
          end
          item
            Alignment = taCenter
            Width = 50
          end
          item
            Alignment = taCenter
            Width = 50
          end>
        SimplePanel = False
      end
      object DBGrid23: TDBGrid
        Left = 0
        Top = 64
        Width = 169
        Height = 324
        DataSource = DataSource22
        Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 3
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnCellClick = DBGrid23CellClick
      end
      object BitBtn27: TBitBtn
        Left = 48
        Top = 32
        Width = 75
        Height = 25
        Caption = '打印名单'
        TabOrder = 4
        OnClick = BitBtn27Click
      end
    end
    object TabSheet8: TTabSheet
      Caption = '数据合并'
      ImageIndex = 8
      object Panel29: TPanel
        Left = 0
        Top = 0
        Width = 651
        Height = 407
        Align = alClient
        TabOrder = 0
        object Label32: TLabel
          Left = 16
          Top = 12
          Width = 52
          Height = 13
          Caption = '源数据库'
        end
        object Edit39: TEdit
          Left = 72
          Top = 8
          Width = 369
          Height = 21
          TabOrder = 0
        end
        object Button2: TButton
          Left = 448
          Top = 8
          Width = 49
          Height = 20
          Caption = '查找...'
          TabOrder = 1
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 520
          Top = 8
          Width = 80
          Height = 20
          Caption = '开始合并数据'
          TabOrder = 2
          OnClick = Button3Click
        end
      end
    end
    object TabSheet10: TTabSheet
      Caption = '使用帮助'
      ImageIndex = 9
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 651
        Height = 407
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object Table1: TTable
    DatabaseName = 'lklb'
    IndexName = 'bmmc'
    TableName = 'bm'
    Left = 8
  end
  object Table2: TTable
    DatabaseName = 'lklb'
    IndexName = 'gzmc'
    TableName = 'gz'
    Left = 48
  end
  object Table3: TTable
    OnPostError = Table3PostError
    DatabaseName = 'lklb'
    IndexName = 'bmbh'
    TableName = 'lkyg'
    Left = 80
  end
  object Table4: TTable
    DatabaseName = 'lklb'
    IndexName = 'bmbh'
    TableName = 'ffjl'
    Left = 112
  end
  object Query1: TQuery
    DatabaseName = 'lklb'
    Left = 152
  end
  object DataSource1: TDataSource
    Left = 248
  end
  object Query2: TQuery
    DatabaseName = 'lklb'
    RequestLive = True
    SQL.Strings = (
      'select * from ffjl')
    Left = 184
    object Query2lbmc: TStringField
      DisplayLabel = '劳保名称'
      FieldName = 'lbmc'
      Origin = 'LKLB.ffjl.lbmc'
      Size = 12
    end
    object Query2ffrq: TDateTimeField
      DisplayLabel = '上次发放'
      DisplayWidth = 10
      FieldName = 'ffrq'
      Origin = 'LKLB.ffjl.ffrq'
    end
    object Query2ffzq: TSmallintField
      DisplayLabel = '发放周期'
      FieldName = 'ffzq'
      Origin = 'LKLB.ffjl.ffzq'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 216
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 460
    Top = 98
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 492
    Top = 98
  end
  object DataSource5: TDataSource
    DataSet = Query5
    Left = 524
    Top = 98
  end
  object DataSource6: TDataSource
    DataSet = Query6
    Left = 556
    Top = 98
  end
  object DataSource7: TDataSource
    DataSet = Query7
    Left = 596
    Top = 98
  end
  object Query3: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select xm,ygbh,bmbh from lkyg')
    Left = 460
    Top = 130
    object Query3bmbh: TStringField
      DisplayLabel = '部门编号'
      FieldName = 'bmbh'
      Origin = 'LKLB.lkyg.bmbh'
      Size = 3
    end
    object Query3xm: TStringField
      DisplayLabel = '姓名'
      FieldName = 'xm'
      Origin = 'LKLB.lkyg.xm'
      Size = 8
    end
    object Query3ygbh: TStringField
      DisplayLabel = '员工编号'
      FieldName = 'ygbh'
      Origin = 'LKLB.lkyg.ygbh'
      Size = 6
    end
  end
  object Query4: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 492
    Top = 130
    object Query4bmbh: TStringField
      FieldName = 'bmbh'
      Origin = 'LKLB.bm.bmbh'
      Size = 3
    end
    object Query4bmmc: TStringField
      FieldName = 'bmmc'
      Origin = 'LKLB.bm.bmmc'
      Size = 24
    end
  end
  object Query5: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 524
    Top = 130
    object Query5bmbh: TStringField
      FieldName = 'bmbh'
      Origin = 'LKLB.bm.bmbh'
      Size = 3
    end
    object Query5bmmc: TStringField
      FieldName = 'bmmc'
      Origin = 'LKLB.bm.bmmc'
      Size = 24
    end
  end
  object Query6: TQuery
    AfterPost = Query6AfterPost
    DatabaseName = 'lklb'
    RequestLive = True
    SQL.Strings = (
      'select * from lkyg')
    Left = 556
    Top = 130
    object Query6xm: TStringField
      DisplayLabel = '姓名'
      FieldName = 'xm'
      Origin = 'LKLB.lkyg.xm'
      Size = 8
    end
    object Query6xmdm: TStringField
      DisplayLabel = '姓名拼音'
      FieldName = 'xmdm'
      Origin = 'LKLB.lkyg.xmdm'
      Size = 4
    end
    object Query6xb: TStringField
      DisplayLabel = '性别'
      FieldName = 'xb'
      Origin = 'LKLB.lkyg.xb'
      Size = 2
    end
    object Query6gzfgg: TStringField
      DisplayLabel = '工作服'
      FieldName = 'gzfgg'
      Origin = 'LKLB.lkyg.gzfgg'
      Size = 3
    end
    object Query6mygg: TStringField
      DisplayLabel = '棉衣'
      FieldName = 'mygg'
      Origin = 'LKLB.lkyg.mygg'
      Size = 3
    end
    object Query6cygg: TStringField
      DisplayLabel = '衬衣'
      FieldName = 'cygg'
      Origin = 'LKLB.lkyg.cygg'
      Size = 3
    end
    object Query6bwx: TStringField
      DisplayLabel = '白网鞋'
      FieldName = 'bwx'
      Origin = 'LKLB.lkyg.bwx'
      Size = 4
    end
    object Query6bjx: TStringField
      DisplayLab