ap_enter_nopayinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Enter_NoPayInvoice: TFrm_Ap_Enter_NoPayInvoice
  Left = -9
  Top = 126
  Caption = '未核销采购发票'
  ClientHeight = 581
  ClientWidth = 800
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = '未核销采购发票'
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 144
      Caption = '客户代码,发票日期,发票号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 555
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Width = 800
    Height = 458
    inherited Image3: TImage
      Width = 800
      Height = 458
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 458
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'ApInvOICENO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票号'
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvOICEDATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票日期'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CURRENCYCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvOICEAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '总金额'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceAmountC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本位币总金额'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvOICETAX'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '税额'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApPayedAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '已核销金额'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建挡人员代码'
          Width = 106
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建挡人员名称'
          Width = 108
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvOICEINPUTDATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建挡日期'
          Width = 78
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 613
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 448
    Top = 0
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100'
    SQL.Strings = (
      'select  ApInvoice.*'
      
        '      , Employee.EmployeeName ,Vendor.VendorName,Currency.Curren' +
        'cyName'
      '                 from ApInvoice '
      
        '                  left join Employee on Employee.EmployeeCode=Ap' +
        'Invoice.EmployeeCode '
      
        '                  left join Vendor on ApInvoice.VendorCode=Vendo' +
        'r.VendorCode'
      
        '                  left join Currency on ApInvoice.CurrencyCode=C' +
        'urrency.CurrencyCode')
    Left = 480
    Top = 1
    object AdoQry_MainApInvOICEID: TFloatField
      FieldName = 'ApInvOICEID'
      ReadOnly = True
    end
    object AdoQry_MainApInvOICENO: TStringField
      FieldName = 'ApInvOICENO'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApInvOICEDATE: TDateTimeField
      FieldName = 'ApInvOICEDATE'
      Origin = 'ApInvoice'
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'ApInvoice'
      Size = 12
    end
    object AdoQry_MainCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Origin = 'ApInvoice'
      Size = 3
    end
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'ApInvoice'
      Size = 30
    end
    object AdoQry_MainApInvOICEINPUTDATE: TDateTimeField
      FieldName = 'ApInvOICEINPUTDATE'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApInvOICEAmount: TFloatField
      FieldName = 'ApInvOICEAmount'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApInvOICETAX: TFloatField
      FieldName = 'ApInvOICETAX'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApPayedAmount: TFloatField
      FieldName = 'ApPayedAmount'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApPayFlag: TIntegerField
      FieldName = 'ApPayFlag'
    end
    object AdoQry_MainApInvoiceRemArk: TStringField
      FieldName = 'ApInvoiceRemArk'
      Origin = 'ApInvoice'
      Size = 160
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainExchRate: TFloatField
      FieldName = 'ExchRate'
      Origin = 'ApInvoice'
    end
    object AdoQry_MaInvendorName: TStringField
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_MainCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_MainApInvoiceType: TIntegerField
      FieldName = 'ApInvoiceType'
    end
    object AdoQry_MainApInvoiceAmountC: TFloatField
      FieldName = 'ApInvoiceAmountC'
    end
    object AdoQry_MainApInvoiceTaxC: TFloatField
      FieldName = 'ApInvoiceTaxC'
    end
    object AdoQry_MainApPayedAmountC: TFloatField
      FieldName = 'ApPayedAmountC'
    end
    object AdoQry_MainISCredence: TIntegerField
      FieldName = 'ISCredence'
    end
  end
  inherited DataSource: TDataSource
    Left = 512
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 576
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 544
    Top = 1
  end
end