inv_billlistqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_BillListQry: TFrm_Inv_BillListQry
  Left = -46
  Top = 64
  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 = 102
      Caption = '单据月份/录入时间'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 448
    Width = 774
    Height = 32
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 48
      Height = 12
      Caption = '物料标识'
    end
    object DBText1: TDBText
      Left = 80
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCodeName'
      DataSource = DataSource
    end
    object Label9: TLabel
      Left = 496
      Top = 8
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Body: TPanel
    Width = 774
    Height = 351
    inherited DBGridEh: TDBGridEh
      Width = 774
      Height = 351
      OnDblClick = Act_LookExecute
      Columns = <
        Item
          FieldName = 'DateSting'
          PickList.Strings = ()
          Title.Caption = '日期'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHCodeName'
          PickList.Strings = ()
          Title.Caption = '仓库'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Caption = '单据号'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoPoNo'
          PickList.Strings = ()
          Title.Caption = '订单号/行号'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillRemArk'
          PickList.Strings = ()
          Title.Caption = '摘要'
          Width = 118
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Caption = '物料代码'
          Width = 87
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Caption = '物料描述'
          Width = 146
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Caption = '物料标识'
          Width = 273
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Caption = '入库数量'
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OInvBillQty'
          PickList.Strings = ()
          Title.Caption = '出库数量'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Caption = '未税价'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Caption = '未税额'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Caption = '含税价'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Caption = '含税额'
          Width = 68
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 333
    Top = 243
  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 = 313
  end
  inherited DataSource: TDataSource
    Top = 185
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptWide
  end
end