inv_journalqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_JournalQry: TFrm_Inv_JournalQry
  Left = -23
  Top = 109
  Caption = '物料明细帐'
  ClientHeight = 480
  ClientWidth = 774
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 774
  end
  inherited Pnl_Title: TPanel
    Width = 774
    Caption = '物料明细帐'
  end
  inherited Pnl_Head: TPanel
    Width = 774
    inherited Lbl_Order: TLabel
      Width = 126
      Caption = '单据月份/单据录入时间'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 448
    Width = 774
    Height = 32
    object Label1: TLabel
      Left = 14
      Top = 12
      Width = 36
      Height = 12
      Caption = '摘要：'
    end
    object DBText1: TDBText
      Left = 53
      Top = 10
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'InvBillRemArk'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 774
    Height = 351
    inherited DBGridEh: TDBGridEh
      Width = 774
      Height = 351
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'DateSting'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号/行号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoPoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单号/行号'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '摘要'
          Width = 276
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '入库|数量'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '入库|单价'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '入库|金额'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OInvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出库|数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OInvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出库|单价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OInvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出库|金额'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBlncQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结存|数量'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBlncPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结存|单价'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBlncAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结存|金额'
          Width = 78
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 325
    Top = 195
  end
  inherited ActionList: TActionList
    Top = 176
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.8'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select convert(varchAr(10),InvInBill.InvBillDate,102) As DateSti' +
        'ng'
      '    ,InvInBill.BillTypeCode As BillTypeCode'
      '    ,InvInBill.InvBillNo As InvBillNo'
      '    ,InvInBill.MoNo+InvInBill.PoNo As MoPoNo'
      '    ,InvInBill.InvBillRemArk As InvBillRemArk'
      '    ,InvInBillLine.InvBillQty As InvBillQty'
      '    ,0 As OInvBillQty'
      '    ,0 As InvBlncQty'
      '    ,InvInBillLine.InvBillNoTaxPrice As InvBillNoTaxPrice'
      '    ,InvInBillLine.InvBillNoTaxAmount As InvBillNoTaxAmount'
      '    ,0 As OInvBillNoTaxPrice'
      '    ,0 As OInvBillNoTaxAmount'
      '    ,0 As InvBlncPrice'
      '    ,0 As InvBlncAmount'
      
        '    From InvInBillLine join InvInBill on InvInBillLine.InvBillId' +
        '=InvInBill.InvBillId'
      'Union'
      'Select InvMonthSum.InvMonth As DateSting'
      '    ,'#39'0000'#39' As BillTypeCode'
      '    ,'#39' '#39' As InvBillNo'
      '    ,'#39' '#39' As MoPoNo'
      '    ,'#39'本月合计'#39' As InvBillRemArk'
      '    ,InvMonthSum.InvInQty As InvBillQty'
      '    ,InvMonthSum.InvOutQty As OInvBillQty'
      '    ,InvMonthSum.InvBlncQty As InvBlncQty'
      '    ,InvMonthSum.InvOutPrice As InvBillNoTaxPrice'
      '    ,InvMonthSum.InvInAmount As InvBillNoTaxAmount'
      '    ,InvMonthSum.InvOutPrice As OInvBillNoTaxPrice'
      '    ,InvMonthSum.InvOutAmount As OInvBillNoTaxAmount'
      '    ,InvMonthSum.InvBlncPrice As InvBlncPrice'
      '    ,InvMonthSum.InvBlncAmount As InvBlncAmount'
      '    From InvMonthSum'
      'union'
      
        'Select convert(varchAr(10),InvOutBill.InvBillDate,102) As DateSt' +
        'ing'
      '    ,InvOutBill.BillTypeCode As BillTypeCode'
      '    ,InvOutBill.InvBillNo As InvBillNo'
      '    ,InvOutBill.MoNo+InvOutBill.PoNo As MoPoNo'
      '    ,InvOutBill.InvBillRemArk As InvBillRemArk'
      '    ,InvOutBillLine.InvBillQty As InvBillQty'
      '    ,0 As OInvBillQty'
      '    ,0 As InvBlncQty'
      '    ,0 As InvBillNoTaxPrice'
      '    ,0 As InvBillNoTaxAmount'
      '    ,InvOutBillLine.InvBillNoTaxPrice As OInvBillNoTaxPrice'
      '    ,InvOutBillLine.InvBillNoTaxAmount As OInvBillNoTaxAmount'
      '    ,0 As InvBlncPrice'
      '    ,0 As InvBlncAmount'
      
        '    From InvOutBillLine join InvOutBill on InvOutBillLine.InvBil' +
        'lId=InvOutBill.InvBillId'
      ''
      ' '
      ' ')
    Top = 177
  end
  inherited DataSource: TDataSource
    Top = 185
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptNArrow
  end
end