unit_modesalary.dfm

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

            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
        object BitBtn1: TBitBtn
          Left = 472
          Top = 11
          Width = 88
          Height = 25
          Caption = '打印数据'
          TabOrder = 10
          OnClick = bbdayprintClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0003377777777777777308888888888888807F33333333333337088888888888
            88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
            8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
            8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          NumGlyphs = 2
        end
      end
      object DBGrid1: TDBGrid
        Left = 14
        Top = 72
        Width = 645
        Height = 278
        DataSource = DataSource2
        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 Queryall: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        'select name,sum(qcnum),sum(wasternum),sum(subsalary),sum(dissala' +
        'ry),sum(monthsalary),sum(yuejishi),sum(zongji) from modeallSalar' +
        'y group by name')
    Left = 129
    Top = 187
    object Queryallname: TStringField
      Alignment = taCenter
      DisplayLabel = '  姓 名'
      DisplayWidth = 10
      FieldName = 'name'
      Origin = 'JL2000."modeallSalary.DB".Name'
      Size = 8
    end
    object QueryallSUMOFqcnum: TFloatField
      Alignment = taCenter
      DisplayLabel = '合格品/只'
      DisplayWidth = 9
      FieldName = 'SUM OF qcnum'
      Origin = 'JL2000."modeallSalary.DB".QcNum'
    end
    object QueryallSUMOFwasternum: TFloatField
      Alignment = taCenter
      DisplayLabel = '废品/只'
      DisplayWidth = 7
      FieldName = 'SUM OF wasternum'
      Origin = 'JL2000."modeallSalary.DB".Wasternum'
    end
    object QueryallSUMOFsubsalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '补贴/元'
      DisplayWidth = 8
      FieldName = 'SUM OF subsalary'
      Origin = 'JL2000."modeallSalary.DB".SubSalary'
    end
    object QueryallSUMOFdissalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '扣款/元'
      DisplayWidth = 7
      FieldName = 'SUM OF dissalary'
      Origin = 'JL2000."modeallSalary.DB".DisSalary'
    end
    object QueryallSUMOFmonthsalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '计件工资/元'
      DisplayWidth = 11
      FieldName = 'SUM OF monthsalary'
      Origin = 'JL2000."modeallSalary.DB".MonthSalary'
    end
    object QueryallSUMOFyuejishi: TFloatField
      Alignment = taCenter
      DisplayLabel = '计时工资/元'
      DisplayWidth = 11
      FieldName = 'SUM OF yuejishi'
      Origin = 'JL2000."modeallSalary.DB".Yuejishi'
    end
    object QueryallSUMOFzongji: TFloatField
      Alignment = taCenter
      DisplayLabel = '总计/元'
      DisplayWidth = 10
      FieldName = 'SUM OF zongji'
      Origin = 'JL2000."modeallSalary.DB".Zongji'
    end
  end
  object query1all: TQuery
    DatabaseName = 'JL2000'
    Left = 129
    Top = 243
  end
  object Tableall: TTable
    DatabaseName = 'JL2000'
    TableName = 'modeallSalary.DB'
    Left = 121
    Top = 307
  end
  object Querydaysalary: TQuery
    DatabaseName = 'JL2000'
    Left = 492
    Top = 150
  end
  object Tabledaysalary: TTable
    DatabaseName = 'JL2000'
    FieldDefs = <
      item
        Name = 'Tdate'
        DataType = ftDate
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'QcNum'
        DataType = ftInteger
      end
      item
        Name = 'Wasternum'
        DataType = ftInteger
      end
      item
        Name = 'SubSalary'
        DataType = ftFloat
      end
      item
        Name = 'DisSalary'
        DataType = ftFloat
      end
      item
        Name = 'UnitSalary'
        DataType = ftFloat
      end
      item
        Name = 'DaySalary'
        DataType = ftFloat
      end
      item
        Name = 'Jsrgz'
        DataType = ftFloat
      end
      item
        Name = 'Heji'
        DataType = ftFloat
      end>
    StoreDefs = True
    TableName = 'modeSalaryDay.DB'
    Left = 500
    Top = 198
    object TabledaysalaryTdate: TDateField
      Alignment = taCenter
      DisplayLabel = '   日  期'
      DisplayWidth = 11
      FieldName = 'Tdate'
    end
    object TabledaysalaryName: TStringField
      Alignment = taCenter
      DisplayLabel = '   姓 名'
      DisplayWidth = 11
      FieldName = 'Name'
      Size = 8
    end
    object TabledaysalaryQcNum: TIntegerField
      Alignment = taCenter
      DisplayLabel = '合格品/只'
      DisplayWidth = 9
      FieldName = 'QcNum'
    end
    object TabledaysalaryWasternum: TIntegerField
      Alignment = taCenter
      DisplayLabel = '废品/只'
      DisplayWidth = 7
      FieldName = 'Wasternum'
    end
    object TabledaysalarySubSalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '补贴/元'
      DisplayWidth = 7
      FieldName = 'SubSalary'
    end
    object TabledaysalaryDisSalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '扣款/元'
      DisplayWidth = 7
      FieldName = 'DisSalary'
    end
    object TabledaysalaryUnitSalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '加工单价/元'
      DisplayWidth = 11
      FieldName = 'UnitSalary'
    end
    object TabledaysalaryDaySalary: TFloatField
      Alignment = taCenter
      DisplayLabel = '日计件资/元'
      DisplayWidth = 11
      FieldName = 'DaySalary'
    end
    object TabledaysalaryJsrgz: TFloatField
      Alignment = taCenter
      DisplayLabel = '日计时资/元'
      DisplayWidth = 11
      FieldName = 'Jsrgz'
    end
    object TabledaysalaryHeji: TFloatField
      Alignment = taCenter
      DisplayLabel = ' 合计/元'
      DisplayWidth = 10
      FieldName = 'Heji'
    end
  end
  object DataSource1: TDataSource
    DataSet = Queryall
    Left = 169
    Top = 195
  end
  object DataSource2: TDataSource
    DataSet = Tabledaysalary
    Left = 540
    Top = 198
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 252
    Top = 222
  end
end