unitsulfsalary.~dfm

此代码为企业原料管理代码

              33333333337F7F33333333333309033333333333337373333333333333303333
              333333333337F333333333333330333333333333333733333333}
            NumGlyphs = 2
          end
          object bbdaynext: TBitBtn
            Left = 568
            Top = 40
            Width = 73
            Height = 25
            Caption = '下一条'
            TabOrder = 9
            OnClick = bbdaynextClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
              333333333337F33333333333333033333333333333373F333333333333090333
              33333333337F7F33333333333309033333333333337373F33333333330999033
              3333333337F337F33333333330999033333333333733373F3333333309999903
              333333337F33337F33333333099999033333333373333373F333333099999990
              33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
              33333333337F7F33333333333309033333333333337F7F333333333333090333
              33333333337F7F33333333333309033333333333337F7F333333333333090333
              33333333337F7F33333333333300033333333333337773333333}
            NumGlyphs = 2
          end
          object Panel8: TPanel
            Left = 7
            Top = 15
            Width = 177
            Height = 50
            BevelInner = bvLowered
            TabOrder = 10
            object Panel5: TPanel
              Left = 1
              Top = 2
              Width = 174
              Height = 25
              Caption = '请输入职工姓名'
              TabOrder = 0
            end
            object ename: TEdit
              Left = 105
              Top = 27
              Width = 71
              Height = 20
              TabOrder = 1
              OnEnter = enameEnter
            end
            object Panel9: TPanel
              Left = 1
              Top = 27
              Width = 104
              Height = 21
              TabOrder = 2
              object CheckBoxdicname: TCheckBox
                Left = 8
                Top = 2
                Width = 97
                Height = 17
                Caption = '使用字典输入'
                Checked = True
                State = cbChecked
                TabOrder = 0
              end
            end
          end
        end
        object DBGrid1: TDBGrid
          Left = 16
          Top = 72
          Width = 641
          Height = 291
          DataSource = DataSource4
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 676
      Height = 27
      Align = alTop
      BevelInner = bvLowered
      BiDiMode = bdRightToLeft
      Caption = '硫化车间职工工资统计'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = '宋体'
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 0
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1all
    Left = 56
    Top = 288
  end
  object Query1all: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from sulfcard')
    Left = 24
    Top = 288
  end
  object DataSource3: TDataSource
    DataSet = Queryall
    Left = 56
    Top = 200
  end
  object Queryall: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        'select name,sum(qcnum),sum(wasternum),sum(subsalary),sum(dissala' +
        'ry),sum(monthsalary),sum(yuejishi),sum(zongji) from SulfCardSala' +
        'ry group by name')
    Left = 24
    Top = 200
    object Queryallname: TStringField
      Alignment = taCenter
      DisplayLabel = '   姓 名'
      DisplayWidth = 10
      FieldName = 'name'
      Origin = 'SULFCARD."SulfCardSalary.DB".Name'
      Size = 8
    end
    object QueryallSUMOFqcnum: TFloatField
      Alignment = taCenter
      DisplayLabel = '合格品/只'
      DisplayWidth = 9
      FieldName = 'SUM OF qcnum'
      Origin = 'SULFCARD."SulfCardSalary.DB".QcNum'
    end
    object QueryallSUMOFwasternum: TFloatField
      Alignment = taCenter
      DisplayLabel = '废品/只'
      DisplayWidth = 7
      FieldName = 'SUM OF wasternum'
      Origin = 'SULFCARD."SulfCardSalary.DB".Wasternum'
    end
    object QueryallSUMOFsubsalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '补贴/元'
      DisplayWidth = 7
      FieldName = 'SUM OF subsalary'
      Origin = 'SULFCARD."SulfCardSalary.DB".SubSalary'
    end
    object QueryallSUMOFdissalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '扣款/元'
      DisplayWidth = 7
      FieldName = 'SUM OF dissalary'
      Origin = 'SULFCARD."SulfCardSalary.DB".DisSalary'
    end
    object QueryallSUMOFmonthsalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '计件工资/元'
      DisplayWidth = 11
      FieldName = 'SUM OF monthsalary'
      Origin = 'SULFCARD."SulfCardSalary.DB".MonthSalary'
    end
    object QueryallSUMOFyuejishi: TFloatField
      Alignment = taCenter
      DisplayLabel = '计时工资/元'
      DisplayWidth = 11
      FieldName = 'SUM OF yuejishi'
      Origin = 'JL2000."SulfCardSalary.DB".Yuejishi'
    end
    object QueryallSUMOFzongji: TFloatField
      Alignment = taCenter
      DisplayLabel = '合计/元'
      DisplayWidth = 10
      FieldName = 'SUM OF zongji'
      Origin = 'JL2000."SulfCardSalary.DB".Zongji'
    end
  end
  object DataSource2: TDataSource
    DataSet = Tableall
    Left = 56
    Top = 248
  end
  object Tableall: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardSalary.DB'
    Left = 24
    Top = 248
  end
  object Tabledaysalary: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardSalaryDay.db'
    Left = 525
    Top = 211
    object TabledaysalaryTdate: TDateField
      Alignment = taCenter
      DisplayLabel = '  日 期'
      DisplayWidth = 10
      FieldName = 'Tdate'
    end
    object TabledaysalaryName: TStringField
      Alignment = taCenter
      DisplayLabel = '  姓 名'
      DisplayWidth = 8
      FieldName = 'Name'
      Size = 8
    end
    object TabledaysalaryQcNum: TIntegerField
      DisplayLabel = '合格品/只'
      DisplayWidth = 9
      FieldName = 'QcNum'
    end
    object TabledaysalaryWasternum: TIntegerField
      DisplayLabel = '废品/只'
      DisplayWidth = 7
      FieldName = 'Wasternum'
    end
    object TabledaysalarySubSalary: TFloatField
      DisplayLabel = '补贴/元'
      DisplayWidth = 7
      FieldName = 'SubSalary'
    end
    object TabledaysalaryDisSalary: TFloatField
      DisplayLabel = '扣款/元'
      DisplayWidth = 7
      FieldName = 'DisSalary'
    end
    object TabledaysalaryUnitSalary: TFloatField
      DisplayLabel = '加工单价/元'
      DisplayWidth = 11
      FieldName = 'UnitSalary'
    end
    object TabledaysalaryDaySalary: TFloatField
      DisplayLabel = '计件日工资/元'
      DisplayWidth = 10
      FieldName = 'DaySalary'
    end
    object TabledaysalaryJsrgz: TFloatField
      DisplayLabel = '计时日工资/元'
      FieldName = 'Jsrgz'
    end
    object TabledaysalaryHeji: TFloatField
      DisplayLabel = ' 合计/元'
      FieldName = 'Heji'
    end
  end
  object DataSource4: TDataSource
    DataSet = Tabledaysalary
    Left = 565
    Top = 211
  end
  object Querydaysalary: TQuery
    DatabaseName = 'JL2000'
    Left = 525
    Top = 179
  end
  object DataSource5: TDataSource
    DataSet = Querydaysalary
    Left = 565
    Top = 179
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 237
    Top = 183
  end
end