unit3.dfm

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

            Top = 168
            Width = 121
            Height = 21
            TabOrder = 4
            OnKeyPress = Edit33KeyPress
          end
          object Edit34: TEdit
            Left = 72
            Top = 192
            Width = 121
            Height = 21
            TabOrder = 5
          end
          object BitBtn16: TBitBtn
            Left = 120
            Top = 216
            Width = 75
            Height = 25
            Caption = '删除劳保'
            TabOrder = 6
            OnClick = BitBtn16Click
          end
          object Edit10: TEdit
            Left = 72
            Top = 104
            Width = 121
            Height = 21
            TabOrder = 7
          end
        end
        object Panel10: TPanel
          Left = 0
          Top = 1
          Width = 240
          Height = 253
          Align = alRight
          BevelOuter = bvLowered
          TabOrder = 2
          object Label24: TLabel
            Left = 8
            Top = 8
            Width = 52
            Height = 13
            Caption = '增加工种'
          end
          object Label27: TLabel
            Left = 8
            Top = 32
            Width = 52
            Height = 13
            Caption = '工种名称'
          end
          object Label28: TLabel
            Left = 8
            Top = 80
            Width = 52
            Height = 13
            Caption = '劳保用品'
          end
          object Label29: TLabel
            Left = 8
            Top = 56
            Width = 52
            Height = 13
            Caption = '工种编号'
          end
          object Label31: TLabel
            Left = 8
            Top = 208
            Width = 52
            Height = 13
            Caption = '发放周期'
          end
          object BitBtn7: TBitBtn
            Left = 96
            Top = 224
            Width = 89
            Height = 25
            Caption = '增加劳保用品'
            TabOrder = 0
            OnClick = BitBtn7Click
          end
          object Edit17: TEdit
            Left = 80
            Top = 24
            Width = 121
            Height = 21
            TabOrder = 1
          end
          object Edit18: TEdit
            Left = 80
            Top = 48
            Width = 121
            Height = 21
            TabOrder = 2
          end
          object Edit19: TEdit
            Left = 80
            Top = 72
            Width = 121
            Height = 21
            TabOrder = 3
          end
          object DBGrid4: TDBGrid
            Left = 80
            Top = 96
            Width = 120
            Height = 102
            DataSource = DataSource23
            Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 4
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = '宋体'
            TitleFont.Style = []
            OnCellClick = DBGrid4CellClick
          end
          object Edit38: TEdit
            Left = 80
            Top = 200
            Width = 121
            Height = 21
            TabOrder = 5
            OnKeyPress = Edit38KeyPress
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '发放记录'
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Panel21: TPanel
        Left = 0
        Top = 0
        Width = 651
        Height = 337
        Align = alTop
        TabOrder = 0
        object Label50: TLabel
          Left = 48
          Top = 8
          Width = 52
          Height = 13
          Caption = '单位名称'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label53: TLabel
          Left = 192
          Top = 8
          Width = 78
          Height = 13
          Caption = '单位职工名单'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label55: TLabel
          Left = 192
          Top = 24
          Width = 78
          Height = 13
          Caption = '姓名拼音字母'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label54: TLabel
          Left = 456
          Top = 8
          Width = 78
          Height = 13
          Caption = '劳保发放记录'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object DBGrid11: TDBGrid
          Left = 1
          Top = 24
          Width = 137
          Height = 313
          DataSource = DataSource11
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnCellClick = DBGrid11CellClick
        end
        object DBGrid12: TDBGrid
          Left = 145
          Top = 64
          Width = 176
          Height = 273
          DataSource = DataSource12
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnCellClick = DBGrid12CellClick
        end
        object Edit23: TEdit
          Left = 184
          Top = 40
          Width = 97
          Height = 21
          TabOrder = 2
          OnChange = Edit23Change
        end
        object DBGrid14: TDBGrid
          Left = 328
          Top = 24
          Width = 322
          Height = 313
          DataSource = DataSource13
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 3
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
      object Panel22: TPanel
        Left = 0
        Top = 336
        Width = 651
        Height = 71
        Align = alBottom
        TabOrder = 1
        object DBGrid15: TDBGrid
          Left = 1
          Top = 8
          Width = 649
          Height = 62
          Align = alBottom
          DataSource = DataSource14
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '劳保发放'
      ImageIndex = 3
      OnShow = TabSheet3Show
      object Panel25: TPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 407
        Align = alLeft
        TabOrder = 0
        object Label72: TLabel
          Left = 8
          Top = 315
          Width = 52
          Height = 13
          Caption = '发放日期'
        end
        object DBGrid18: TDBGrid
          Left = 1
          Top = 1
          Width = 183
          Height = 296
          Align = alTop
          DataSource = DataSource11
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
        object BitBtn17: TBitBtn
          Left = 64
          Top = 344
          Width = 113
          Height = 25
          Caption = '部门劳保用品发放'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BitBtn17Click
        end
        object BitBtn18: TBitBtn
          Left = 64
          Top = 376
          Width = 113
          Height = 25
          Caption = '所有劳保用品汇总'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = BitBtn18Click
        end
        object Edit31: TEdit
          Left = 64
          Top = 312
          Width = 113
          Height = 21
          TabOrder = 3
        end
      end
      object Panel26: TPanel
        Left = 185
        Top = 0
        Width = 336
        Height = 407
        Align = alLeft
        TabOrder = 1
        object Label68: TLabel
          Left = 104
          Top = 272
          Width = 143
          Height = 13
          Caption = '本次所有发放劳保汇总表'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object DBGrid19: TDBGrid
          Left = 1
          Top = 1
          Width = 334
          Height = 128
          Align = alTop
          DataSource = DataSource19
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
        object DBGrid20: TDBGrid
          Left = 1
          Top = 129
          Width = 334
          Height = 136
          Align = alTop
          DataSource = DataSource20
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
        object DBGrid21: TDBGrid
          Left = 1
          Top = 296
          Width = 334
          Height = 110
          Align = alBottom
          DataSource = DataSource21
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 2
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
      object Panel27: TPanel
        Left = 521
        Top = 0
        Width = 172
        Height = 407
        Align = alLeft
        TabOrder = 2
        object Label80: TLabel
          Left = 16
          Top = 360
          Width = 104
          Height = 39
          Caption = '发放初始化，每次发放前使用一次，且只能使用一次！'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object DBGrid22: TDBGrid
          Left = 1
          Top = 1
          Width = 170
          Height = 120
          Align = alTop
          DataSource = DataSource18
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnCellClick = DBGrid22CellClick
        end
        object BitBtn19: TBitBtn
          Left = 11
          Top = 136
          Width = 113
          Height = 25
          Caption = '已经发放部门查询'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BitBtn19Click
        end
        object BitBtn21: TBitBtn
          Left = 11
          Top = 168
          Width = 113
          Height = 25
          Caption = '生成发放记录文件'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = BitBtn21Click
        end
        object BitBtn20: TBitBtn
          Left = 11
          Top = 200
          Width = 113
          Height = 25
          Caption = '生成整体汇总文件'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False