ap_qry_purchasepaymentpdetail.pas

一个MRPII系统源代码版本

unit Ap_Qry_PurchasePaymentPDetail;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, jpeg;

Type
  TFrm_Ap_Qry_PurchasePaymentPDetail = Class(TFrm_Base_Qry)
    AdoQry_MaInvendorCode: TStringField;
    AdoQry_MaInvendorB: TStringField;
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainEmployeeCodeName: TStringField;
    AdoQry_MaincurrencyCode: TStringField;
    AdoQry_MaincurrencyCodemame: TStringField;
    AdoQry_MainPaydate: TDateTimeField;
    AdoQry_MainPayremArk: TStringField;
    AdoQry_MainPayAmount: TFloatField;
    AdoQry_MainPayModeB: TStringField;
    AdoQry_MainPayBillno: TStringField;
    AdoQry_MainRemArkNo: TStringField;
    AdoQry_MainPayModeCode: TStringField;
    AdoQry_MainPayInputdate: TDateTimeField;
    AdoQry_MainPayAmountC: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Act_PreviewExecute(Sender: TObject);
    procedure Act_PrintExecute(Sender: TObject);
    procedure Act_ExcelExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;    
  end;

var
  Frm_Ap_Qry_PurchasePaymentPDetail: TFrm_Ap_Qry_PurchasePaymentPDetail;

implementation

{$R *.DFM}

{ TFrm_Ap_Qry_PurchasePaymentPDetail }

procedure TFrm_Ap_Qry_PurchasePaymentPDetail.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
begin
  inherited;
  SelectFromSql:='select PayJournal.VendorCode'
                        +',PayJournal.VendorCode+'' ''+Vendor.VendorName as VendorB'
                        +',PayJournal.Paydate'
                        +',PayJournal.PayInputdate'
                        +',PayJournal.EmployeeCode '
                        +',PayJournal.EmployeeCode+'' ''+Employee.EmployeeName  as EmployeeCodeName'
                        +',PayJournal.currencyCode'
                        +',PayJournal.currencyCode+'' ''+currency.currencyName as currencyCodemame'
                        +',PayJournal.PayAmount'
                        +',PayJournal.PayAmountC'
                        +',PayJournal.PayModeCode'
                        +',PayJournal.PayModeCode+'' ''+PayMode.PayModeName as PayModeB'
                        +',PayJournal.PayBillno'
                        +',PayJournal.RemArkNo '
                        +',PayJournal.PayremArk'
                +' from PayJournal'
                +' join Vendor on PayJournal.VendorCode=Vendor.VendorCode'
                +' join PayMode on PayJournal.PayModeCode=PayMode.PayModeCode '
                +' join Employee on PayJournal.EmployeeCode=Employee.EmployeeCode'
                +' join currency on PayJournal.currencyCode=currency.currencyCode';

  OrderByFields:='VendorCode,Paydate';
  PriceFields:='PayAmount,PayAmountC,';
  Getdata;
end;

procedure TFrm_Ap_Qry_PurchasePaymentPDetail.FormCreate(Sender: TObject);
begin
  inherited;
  Pnl_Title.Caption:='采购付款明细表';
  Lbl_Condition.Caption :='全部';
  Lbl_Order.Caption :='供应商代码/付款日期';
end;

procedure TFrm_Ap_Qry_PurchasePaymentPDetail.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_PurchasePaymentPDetail:=nil;
end;

procedure TFrm_Ap_Qry_PurchasePaymentPDetail.Act_PreviewExecute(
  Sender: TObject);
begin
  If AdoQry_Main.IsEmpty then Exit;
  inherited;

end;

procedure TFrm_Ap_Qry_PurchasePaymentPDetail.Act_PrintExecute(
  Sender: TObject);
begin
  If AdoQry_Main.IsEmpty then Exit;
  inherited;

end;

procedure TFrm_Ap_Qry_PurchasePaymentPDetail.Act_ExcelExecute(
  Sender: TObject);
begin
  If AdoQry_Main.IsEmpty then Exit;
  inherited;

end;

end.