f_storein.dfm

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

    SQL.Strings = (
      'DELETE t_stointemp.*'
      'FROM t_stointemp')
    Left = 320
    Top = 168
  end
  object Atblstoin: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    IndexName = 'istno'
    TableName = 't_stoin'
    Left = 456
    Top = 56
  end
  object DataSource5: TDataSource
    DataSet = Atblvstotemp
    Left = 104
    Top = 152
  end
  object Atblvstotemp: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 'v_storevtemp'
    Left = 136
    Top = 152
  end
  object DataSource6: TDataSource
    Left = 232
    Top = 128
  end
  object Atblstore: TADOTable
    Connection = dmRainbowMIS.adopos
    IndexFieldNames = 'spbh'
    MasterFields = 'spbh'
    MasterSource = DataSource5
    TableName = 't_store'
    Left = 272
    Top = 128
  end
  object ADOQuery2: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'INSERT INTO t_store (bmh,clabel,spbh,dqsl)'
      
        'SELECT [t_stointemp].[cinceptbra],  [t_stointemp].[clabel],[t_st' +
        'ointemp].[spbh], [t_stointemp].[sl]'
      
        'FROM t_stointemp LEFT JOIN t_store ON ([t_stointemp].[clabel]=[t' +
        '_store].[clabel]) AND ([t_stointemp].[spbh]=[t_store].[spbh])'
      
        'WHERE ((([t_store].[spbh]) Is Null) and [t_store].[spbh] is null' +
        ')')
    Left = 288
    Top = 168
  end
  object DataSource7: TDataSource
    DataSet = Atblstoin
    Left = 424
    Top = 56
  end
  object ADOTable1: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    TableName = 't_label'
    Left = 480
    Top = 160
  end
  object DataSource8: TDataSource
    DataSet = ADOTable1
    Left = 448
    Top = 160
  end
  object ADOTable2: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 'v_stinch'
    Left = 288
    Top = 200
  end
  object ADOQuery3: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'update t_stointemp,t_store'
      'set t_store.dqsl=t_store.dqsl+t_stointemp.sl'
      
        'WHERE t_stointemp.spbh=t_store.spbh And t_stointemp.clabel=t_sto' +
        're.clabel')
    Left = 352
    Top = 168
  end
  object ppDBPipeline1: TppDBPipeline
    DataSource = DataSource1
    UserName = 'DBPipeline1'
    Left = 224
    Top = 232
    object ppDBPipeline1ppField1: TppField
      FieldAlias = 'cstinno'
      FieldName = 'cstinno'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object ppDBPipeline1ppField2: TppField
      FieldAlias = 'cdate'
      FieldName = 'cdate'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 1
    end
    object ppDBPipeline1ppField3: TppField
      FieldAlias = 'csendbra'
      FieldName = 'csendbra'
      FieldLength = 6
      DisplayWidth = 6
      Position = 2
    end
    object ppDBPipeline1ppField4: TppField
      FieldAlias = 'cinceptbra'
      FieldName = 'cinceptbra'
      FieldLength = 6
      DisplayWidth = 6
      Position = 3
    end
    object ppDBPipeline1ppField5: TppField
      FieldAlias = 'spbh'
      FieldName = 'spbh'
      FieldLength = 23
      DisplayWidth = 23
      Position = 4
    end
    object ppDBPipeline1ppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'sl'
      FieldName = 'sl'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 5
    end
    object ppDBPipeline1ppField7: TppField
      FieldAlias = 'freno'
      FieldName = 'freno'
      FieldLength = 4
      DisplayWidth = 4
      Position = 6
    end
    object ppDBPipeline1ppField8: TppField
      FieldAlias = 'cuser'
      FieldName = 'cuser'
      FieldLength = 10
      DisplayWidth = 10
      Position = 7
    end
    object ppDBPipeline1ppField9: TppField
      FieldAlias = 'clabel'
      FieldName = 'clabel'
      FieldLength = 16
      DisplayWidth = 16
      Position = 8
    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 = 100000
    PrinterSetup.mmPaperWidth = 110000
    PrinterSetup.PaperSize = 256
    Units = utMMThousandths
    DeviceType = 'Printer'
    ShowCancelDialog = False
    ShowPrintDialog = False
    Left = 256
    Top = 232
    Version = '6.02'
    mmColumnWidth = 0
    DataPipelineName = 'ppDBPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 19050
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #20837#24211#21333
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 12
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4826
        mmLeft = 35983
        mmTop = 1852
        mmWidth = 12827
        BandType = 0
      end
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Caption = #21333#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 2646
        mmTop = 14288
        mmWidth = 10541
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = #21457#36135#26041#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 39423
        mmTop = 9525
        mmWidth = 14023
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        Caption = #25910#36135#26041#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 2381
        mmTop = 9525
        mmWidth = 14023
        BandType = 0
      end
      object ppLabel7: TppLabel
        UserName = 'Label7'
        Caption = #21830#21697#32534#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 39423
        mmTop = 14288
        mmWidth = 14055
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'
        Caption = #25968#37327
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 64823
        mmTop = 14288
        mmWidth = 7027
        BandType = 0
      end
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        DataField = 'cstinno'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 15610
        mmTop = 14288
        mmWidth = 22490
        BandType = 0
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        DataField = 'csendbra'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 54769
        mmTop = 9525
        mmWidth = 17198
        BandType = 0
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        DataField = 'cinceptbra'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 18256
        mmTop = 9525
        mmWidth = 17198
        BandType = 0
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Weight = 0.75
        mmHeight = 1058
        mmLeft = 1588
        mmTop = 18521
        mmWidth = 76200
        BandType = 0
      end
    end
    object ppDetailBand1: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 5821
      mmPrintPosition = 0
      object ppDBText6: TppDBText
        UserName = 'DBText6'
        DataField = 'spbh'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 39423
        mmTop = 529
        mmWidth = 18521
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText7'
        DataField = 'sl'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 4022
        mmLeft = 60590
        mmTop = 529
        mmWidth = 17198
        BandType = 4
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Pen.Style = psDashDot
        Weight = 0.75
        mmHeight = 265
        mmLeft = 36777
        mmTop = 5292
        mmWidth = 41275
        BandType = 4
      end
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 5821
      mmPrintPosition = 0
      object ppLabel5: TppLabel
        UserName = 'Label5'
        Caption = #26085#26399':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 40746
        mmTop = 794
        mmWidth = 8731
        BandType = 8
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = #36755#21333#21592':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 2381
        mmTop = 794
        mmWidth = 12435
        BandType = 8
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        DataField = 'cuser'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 17198
        mmTop = 794
        mmWidth = 17198
        BandType = 8
      end
      object ppDBText5: TppDBText
        UserName = 'DBText5'
        DataField = 'cdate'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 4022
        mmLeft = 51065
        mmTop = 794
        mmWidth = 17198
        BandType = 8
      end
    end
    object ppSummaryBand1: TppSummaryBand
      mmBottomOffset = 0
      mmHeight = 5556
      mmPrintPosition = 0
      object ppLabel9: TppLabel
        UserName = 'Label9'
        Caption = #23567#35745':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 47625
        mmTop = 1058
        mmWidth = 8731
        BandType = 7
      end
      object ppDBCalc1: TppDBCalc
        UserName = 'DBCalc1'
        DataField = 'sl'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 57679
        mmTop = 1058
        mmWidth = 17198
        BandType = 7
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Weight = 0.75
        mmHeight = 1058
        mmLeft = 1852
        mmTop = 529
        mmWidth = 76200
        BandType = 7
      end
    end
  end
  object atblslday: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_slday'
    Left = 384
    Top = 232
  end
end