ydbomback.dfm

详细的ERP设计资料

inherited YDBOMBackFrom: TYDBOMBackFrom
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #29289#26009#36824#21407
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 12
  inherited ToolBar: TToolBar
    Width = 800
    ButtonWidth = 55
    object ToolButton4: TToolButton
      Left = 0
      Top = 2
      Action = PrintPreviewAction
    end
    object ToolButton5: TToolButton
      Left = 55
      Top = 2
      Action = PrintAction
    end
    object ToolButton11: TToolButton
      Left = 110
      Top = 2
      Width = 8
      Caption = 'ToolButton11'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 118
      Top = 2
      Action = ExportAction
    end
    object ToolButton12: TToolButton
      Left = 173
      Top = 2
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 181
      Top = 2
      Action = FiltrateAction
    end
    object ToolButton1: TToolButton
      Left = 236
      Top = 2
      Action = CustomizeViewAction
    end
    object ToolButton8: TToolButton
      Left = 291
      Top = 2
      Action = RefreshAction
    end
    object ToolButton13: TToolButton
      Left = 346
      Top = 2
      Width = 8
      Caption = 'ToolButton13'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 354
      Top = 2
      Action = ExitAction
    end
  end
  inherited Panel1: TPanel
    Top = 205
    Width = 800
    Height = 348
    object Splitter1: TSplitter [0]
      Left = 0
      Top = 0
      Width = 800
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    inherited PageControl: TPageControl
      Top = 321
      Width = 800
      Height = 27
      inherited TabSheet1: TTabSheet
        Caption = #20837#24211#20135#21697#29289#26009#36824#21407#24773#20917
      end
    end
    inherited DBGrid: TQLDBGrid
      Top = 3
      Width = 800
      Height = 318
      OnCellClick = DBGridCellClick
      FooterRowCount = 1
      Columns = <
        item
          Expanded = False
          FieldName = #29289#26009#21517#31216
          Title.Alignment = taCenter
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25968#37327
          Title.Alignment = taCenter
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21333#20301
          Title.Alignment = taCenter
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21333#20215
          Title.Alignment = taCenter
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25104#26412
          Title.Alignment = taCenter
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26631#20934#25968#37327
          Title.Alignment = taCenter
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26631#20934#21333#20215
          Title.Alignment = taCenter
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26631#20934#21333#20301
          Title.Alignment = taCenter
          Width = 70
          Visible = True
        end>
    end
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 41
    Width = 800
    Height = 164
    Align = alTop
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 211
      Top = 22
      Width = 48
      Height = 12
      Caption = #32467#26463#26085#26399
    end
    object Label4: TLabel
      Left = 19
      Top = 22
      Width = 48
      Height = 12
      Caption = #24320#22987#26085#26399
    end
    object DateTimePicker1: TDateTimePicker
      Left = 74
      Top = 18
      Width = 100
      Height = 20
      CalAlignment = dtaLeft
      Date = 37596.1952293866
      Time = 37596.1952293866
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
      OnChange = DateTimePicker1Change
    end
    object DateTimePicker2: TDateTimePicker
      Left = 272
      Top = 18
      Width = 100
      Height = 20
      CalAlignment = dtaLeft
      Date = 37596.1954960764
      Time = 37596.1954960764
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
      OnChange = DateTimePicker2Change
    end
    object BitBtn2: TBitBtn
      Left = 400
      Top = 16
      Width = 75
      Height = 25
      Caption = #25191#34892#32467#26524
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object QLDBGrid1: TQLDBGrid
      Left = 2
      Top = 47
      Width = 796
      Height = 115
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGridCellClick
      OnDblClick = DBGridDblClick
      OnTitleClick = DBGridTitleClick
      AlternateColor = 15399421
      CurrencyView.CurrencyTitle = False
      CurrencyView.DigitAlignment = taCenter
      CurrencyView.DigitWidth = 9
      CurrencyView.IntegerSeparateColor = clRed
      CurrencyView.SeparateColor = clSilver
      CurrencyView.ThousandSeparateColor = clGray
      CurrencyView.TitleLines = False
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      OptionsEx = [dgAllowDelete, dgAllowInsert]
      Columns = <
        item
          Expanded = False
          FieldName = 'GoodsID'
          Title.Alignment = taCenter
          Title.Caption = #24207#21495
          Width = 89
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'goods'
          Title.Alignment = taCenter
          Title.Caption = #20837#24211#20135#21697#21517#31216
          Width = 313
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'code'
          Title.Alignment = taCenter
          Title.Caption = #29983#20135#35745#21010#32534#21495
          Width = 193
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quantity'
          Title.Alignment = taCenter
          Title.Caption = #20837#24211#25968#37327
          Width = 171
          Visible = True
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 107
    Top = 229
  end
  inherited DataSource: TDataSource
    DataSet = adsMaster
    Left = 86
    Top = 298
  end
  object adsMaster: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    CommandText = 
      'select'#13#10'd.name as ['#29289#26009#21517#31216'], GoalQuantity as ['#25968#37327'],'#13#10'f.name as   ['#21333#20301 +
      '], pricebase as ['#21333#20215'],'#13#10'a.Amount as ['#25104#26412'],  GoalQuantity as ['#26631#20934#25968#37327']' +
      ','#13#10'pricebase as ['#26631#20934#21333#20215'], g.name as ['#26631#20934#21333#20301']'#13#10'from YDProductplanDeta' +
      'il a'#13#10'left outer join dagoods d on d.id=a.goodsid'#13#10'left outer jo' +
      'in msunit g on g.id=a.GoalunitID'#13#10'left outer join msunit f on f.' +
      'id=a.PackunitID'#13#10'where Quantity<>0 and 1=2'#13#10
    Parameters = <>
    Left = 172
    Top = 308
    object adsMasterDSDesigner: TStringField
      FieldName = #29289#26009#21517#31216
      Size = 30
    end
    object adsMasterDSDesigner2: TBCDField
      FieldName = #25968#37327
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsMasterDSDesigner3: TStringField
      FieldName = #21333#20301
    end
    object adsMasterDSDesigner4: TBCDField
      FieldName = #21333#20215
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsMasterDSDesigner5: TBCDField
      FieldName = #25104#26412
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsMasterDSDesigner6: TBCDField
      FieldName = #26631#20934#25968#37327
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsMasterDSDesigner7: TBCDField
      FieldName = #26631#20934#21333#20215
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsMasterDSDesigner8: TStringField
      FieldName = #26631#20934#21333#20301
    end
  end
  object ADOQuery: TADOQuery
    Connection = CommonData.acnConnection
    Parameters = <>
    Left = 368
    Top = 224
  end
  object DataSource1: TDataSource
    DataSet = Adsgoodsin
    Left = 198
    Top = 130
  end
  object Adsgoodsin: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    CommandText = 
      'select GoodsID, b.name as goods,'#13#10'a.OriginID,c.code,  sum(isnull' +
      '(Quantity,0))'#13#10'as Quantity from (                               ' +
      '     '#13#10'select b.date,a.ID ,a.GoodsID,A.GoodsSpec, a.Quantity ,'#13#10 +
      'a.PackUnitID,a.QuantityPcs ,a.PriceBase ,               '#13#10'a.Amou' +
      'nt , a.GoalUnitID, a.GoalQuantity ,b.OriginID     '#13#10'from YDGoods' +
      'InDetail a                                  '#13#10'left outer join YD' +
      'GoodsInMaster b on b.ID=a.MasterID    '#13#10'where OriginID<>0 ) as a' +
      '                                '#13#10'left outer join Dagoods b on b' +
      '.id=a.Goodsid'#13#10'left outer join YDProductPlanMaster c on c.id=a.O' +
      'riginID'#13#10'where 1=21'#13#10'group by GoodsID,b.name,c.code,a.OriginID'
    Parameters = <>
    Left = 252
    Top = 132
    object AdsgoodsinGoodsID: TIntegerField
      FieldName = 'GoodsID'
    end
    object Adsgoodsingoods: TStringField
      FieldName = 'goods'
      Size = 30
    end
    object AdsgoodsinOriginID: TIntegerField
      FieldName = 'OriginID'
    end
    object Adsgoodsincode: TStringField
      FieldName = 'code'
    end
    object AdsgoodsinQuantity: TBCDField
      FieldName = 'Quantity'
      DisplayFormat = '#,#.00'
      Precision = 32
      Size = 5
    end
  end
end