dmsemiunit.dfm

来自「华海成本核算辅助系统是基于用友U8企业资源管理系统开发的一套半成品成本统计分析软」· DFM 代码 · 共 120 行

object DMSemi: TDMSemi
  OldCreateOrder = False
  Left = 221
  Top = 176
  Height = 371
  Width = 556
  object conDatabase: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 24
  end
  object qryTool: TADOQuery
    Connection = conDatabase
    CursorType = ctStatic
    DataSource = dsSum
    Parameters = <>
    SQL.Strings = (
      
        'select *,cast(cinvdefine11 as float) cinvdefine11cast from aa_aa' +
        'tmp_inventory')
    Left = 104
    Top = 24
  end
  object qrySum: TADOQuery
    Connection = conDatabase
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ctypeid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from AA_Aatmp_sum_Inventory where ctypeid =:ctypeid')
    Left = 160
    Top = 24
  end
  object dsTool: TDataSource
    DataSet = qryTool
    Left = 104
    Top = 80
  end
  object dsSum: TDataSource
    DataSet = qrySum
    Left = 160
    Top = 80
  end
  object qryDetail: TADOQuery
    Connection = conDatabase
    CursorType = ctStatic
    DataSource = dsSum
    Parameters = <
      item
        Name = 'ctypeid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from AA_Aatmp_sum_Inventory where ctypeid =:ctypeid')
    Left = 224
    Top = 24
  end
  object dsDetail: TDataSource
    DataSet = qryDetail
    Left = 232
    Top = 80
  end
  object exlrprt: TEXLReport
    About = 'EMS Excel Report(tm) Component Suite for Delphi(R)'
    Bands.BandCount = 6
    Bands.Items = <
      item
        Bands.Range = 'A1:Q3'
        Bands.BandType = 0
      end
      item
        Bands.Range = 'A4:Q4'
        Bands.BandType = 2
      end
      item
        Bands.Range = 'A5:Q5'
        Bands.BandType = 3
      end
      item
        Bands.Range = 'A6:Q6'
        Bands.BandType = 4
      end
      item
        Bands.Range = 'A8:Q8'
        Bands.BandType = 5
      end
      item
        Bands.Range = 'A10:Q10'
        Bands.BandType = 7
      end>
    DataSet = qrySum
    Dictionary = <>
    _Version = '1.30'
    OnFormatCell = exlrprtFormatCell
    Left = 160
    Top = 140
  end
  object exlrpt2: TEXLReport
    About = 'EMS Excel Report(tm) Component Suite for Delphi(R)'
    Dictionary = <>
    _Version = '1.30'
    OnFormatCell = exlrpt2FormatCell
    Left = 200
    Top = 144
  end
  object qryInitData: TADOQuery
    Connection = conDatabase
    CursorType = ctStatic
    Parameters = <>
    Left = 296
    Top = 24
  end
end