dfm_sale.dfm

仓库管理系统 仓库管理系统

    end
    object DBEdit1: TDBEdit
      Left = 475
      Top = 6
      Width = 73
      Height = 24
      Color = clInfoBk
      DataField = 'sl'
      DataSource = DataSource3
      Enabled = False
      TabOrder = 3
      OnExit = DBEdit1Exit
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit2: TDBEdit
      Left = 616
      Top = 7
      Width = 65
      Height = 24
      Color = clInfoBk
      DataField = 'zl'
      DataSource = DataSource3
      TabOrder = 4
      OnExit = DBEdit2Exit
      OnKeyPress = DBEdit2KeyPress
    end
  end
  object Atblsaledet: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_saledet'
    Left = 448
    Top = 96
  end
  object DataSource1: TDataSource
    Left = 416
    Top = 96
  end
  object Atbldefault: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    TableName = 't_default'
    Left = 448
    Top = 128
  end
  object DataSource2: TDataSource
    DataSet = Atbldefault
    Left = 416
    Top = 128
  end
  object Atblstemp: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    BeforePost = AtblstempBeforePost
    AfterPost = AtblstempAfterPost
    BeforeDelete = AtblstempBeforeDelete
    AfterDelete = AtblstempAfterDelete
    TableName = 't_saletemp'
    Left = 128
    Top = 88
    object Atblstempcname: TWideStringField
      FieldName = 'cname'
    end
    object Atblstempbmh: TWideStringField
      FieldName = 'bmh'
      Size = 6
    end
    object Atblstemprq: TDateTimeField
      FieldName = 'rq'
    end
    object Atblstempsj: TDateTimeField
      FieldName = 'sj'
    end
    object Atblstempjyh: TWideStringField
      FieldName = 'jyh'
      Size = 15
    end
    object Atblstempyyyh: TWideStringField
      FieldName = 'yyyh'
      Size = 8
    end
    object Atblstempskyh: TWideStringField
      FieldName = 'skyh'
      Size = 8
    end
    object Atblstempspbh: TWideStringField
      FieldName = 'spbh'
      Size = 23
    end
    object Atblstempsl: TIntegerField
      FieldName = 'sl'
    end
    object Atblstemplsj: TFloatField
      FieldName = 'lsj'
      currency = True
    end
    object Atblstempsjje: TFloatField
      FieldName = 'sjje'
      currency = True
    end
    object Atblstempzke: TFloatField
      FieldName = 'zke'
      currency = True
    end
    object Atblstempclabel: TWideStringField
      FieldName = 'clabel'
      Size = 16
    end
    object Atblstempzl: TFloatField
      FieldName = 'zl'
      Precision = 2
    end
  end
  object DataSource3: TDataSource
    DataSet = Atblstemp
    Left = 96
    Top = 88
  end
  object DataSource4: TDataSource
    Left = 416
    Top = 192
  end
  object Atblstore: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_store'
    Left = 448
    Top = 192
  end
  object AQryware: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vspbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vlabel'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vbmh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT [t_store].[bmh], [t_store].[clabel], [t_store].[spbh], [t' +
        '_store].[dqsl], [t_ware].[lsj], [t_ware].[flh], t_spec.cname'
      'FROM t_store, t_ware, t_spec'
      
        'WHERE [t_store].[clabel]=[t_ware].[clabel] And  [t_store].[spbh]' +
        '=[t_ware].[spbh] and t_ware.flh=t_spec.cstyle'
      
        'And [t_store].[spbh]=:vspbh And [t_store].[clabel]=:vlabel And [' +
        't_store].[bmh]=:vbmh')
    Left = 288
    Top = 136
  end
  object DataSource5: TDataSource
    DataSet = AQryware
    Left = 256
    Top = 136
  end
  object DataSource6: TDataSource
    DataSet = Atblman
    Left = 256
    Top = 168
  end
  object Atblman: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 'man'
    Left = 288
    Top = 168
  end
  object DataSource7: TDataSource
    DataSet = Aqrysum
    Left = 256
    Top = 104
  end
  object Aqrysum: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'select sum(t_saletemp.sl) as ssl,sum(t_saletemp.sjje) as sssje'
      'from t_saletemp')
    Left = 288
    Top = 104
  end
  object DataSource8: TDataSource
    Left = 320
    Top = 104
  end
  object Aqryid: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <
      item
        Name = 'vdate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0:00:00'
      end>
    SQL.Strings = (
      'select jyh from t_saledet'
      'where rq=:vdate'
      'order by jyh')
    Left = 352
    Top = 104
  end
  object Aqryapp: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      
        'INSERT INTO t_saledet ( bmh, rq, sj, jyh, yyyh, skyh, spbh, sl, ' +
        'lsj, sjje, zke, clabel )'
      
        'SELECT [t_saletemp].[bmh], [t_saletemp].[rq], [t_saletemp].[sj],' +
        ' [t_saletemp].[jyh], [t_saletemp].[yyyh], [t_saletemp].[skyh], [' +
        't_saletemp].[spbh], [t_saletemp].[sl], [t_saletemp].[lsj], [t_sa' +
        'letemp].[sjje], [t_saletemp].[zke], [t_saletemp].[clabel]'
      'FROM t_saletemp')
    Left = 184
    Top = 104
  end
  object Aqrylose: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      
        'UPDATE t_store, t_saletemp SET t_store.dqsl = [t_store].[dqsl]-[' +
        't_saletemp].[sl]'
      
        'WHERE [t_store]![bmh]=[t_saletemp]![bmh] And [t_store]![spbh]=[t' +
        '_saletemp]![spbh] and [t_store]![clabel]=[t_saletemp]![clabel]')
    Left = 184
    Top = 136
  end
  object Aqrydel: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'delete * from t_saletemp')
    Left = 184
    Top = 168
  end
  object ppDBPipeline1: TppDBPipeline
    DataSource = DataSource3
    UserName = 'DBPipeline1'
    Left = 528
    Top = 224
    object ppDBPipeline1ppField1: TppField
      FieldAlias = 'cname'
      FieldName = 'cname'
      FieldLength = 20
      DisplayWidth = 20
      Position = 0
    end
    object ppDBPipeline1ppField2: TppField
      FieldAlias = 'bmh'
      FieldName = 'bmh'
      FieldLength = 6
      DisplayWidth = 6
      Position = 1
    end
    object ppDBPipeline1ppField3: TppField
      FieldAlias = 'rq'
      FieldName = 'rq'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 2
    end
    object ppDBPipeline1ppField4: TppField
      FieldAlias = 'sj'
      FieldName = 'sj'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 3
    end
    object ppDBPipeline1ppField5: TppField
      FieldAlias = 'jyh'
      FieldName = 'jyh'
      FieldLength = 15
      DisplayWidth = 15
      Position = 4
    end
    object ppDBPipeline1ppField6: TppField
      FieldAlias = 'yyyh'
      FieldName = 'yyyh'
      FieldLength = 8
      DisplayWidth = 8
      Position = 5
    end
    object ppDBPipeline1ppField7: TppField
      FieldAlias = 'skyh'
      FieldName = 'skyh'
      FieldLength = 8
      DisplayWidth = 8
      Position = 6
    end
    object ppDBPipeline1ppField8: TppField
      FieldAlias = 'spbh'
      FieldName = 'spbh'
      FieldLength = 23
      DisplayWidth = 23
      Position = 7
    end
    object ppDBPipeline1ppField9: TppField
      Alignment = taRightJustify
      FieldAlias = 'sl'
      FieldName = 'sl'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 8
    end
    object ppDBPipeline1ppField10: TppField
      Alignment = taRightJustify
      FieldAlias = 'lsj'
      FieldName = 'lsj'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 9
    end
    object ppDBPipeline1ppField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'sjje'
      FieldName = 'sjje'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 10
    end
    object ppDBPipeline1ppField12: TppField
      Alignment = taRightJustify
      FieldAlias = 'zke'
      FieldName = 'zke'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 11
    end
    object ppDBPipeline1ppField13: TppField
      FieldAlias = 'clabel'
      FieldName = 'clabel'
      FieldLength = 16
      DisplayWidth = 16
      Position = 12
    end
    object ppDBPipeline1ppField14: TppField
      Alignment = taRightJustify
      FieldAlias = 'zl'
      FieldName = 'zl'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 13
    end
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = ppDBPipeline1
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'Custom'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 102000
    PrinterSetup.mmPaperWidth = 120000
    PrinterSetup.PaperSize = 256
    Units = utMillimeters
    DeviceType = 'Printer'
    ModalCancelDialog = False
    ShowCancelDialog = False
    ShowPrintDialog = False
    Left = 560
    Top = 224
    Version = '6.02'
    mmColumnWidth = 203200
    DataPipelineName = 'ppDBPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 34131
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #21830#21697
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4092
        mmLeft = 4233
        mmTop = 28310
        mmWidth = 7056
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = #25968#37327
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 45244
        mmTop = 28310
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        Caption = #21333#20215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 55827
        mmTop = 28310
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        Caption = #25240#25187
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4092
        mmLeft = 66675
        mmTop = 28310
        mmWidth = 7056
        BandType = 0
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = #23454#25910#39069
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 77258
        mmTop = 28310
        mmWidth = 10541
        BandType = 0
      end
      object ppLabel7: TppLabel
        UserName = 'Label7'
        Caption = #21333#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 4233
        mmTop = 23019
        mmWidth = 8996
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'
        Caption = #24215#21495':'
        Font.Charset = DEFAULT_CHARSET