pm_pchistory.pas

一个MRPII系统源代码版本

unit Pm_PcHistory;


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_Pm_PcHistory = Class(TFrm_Base_Qry)
    AdoQry_MainPcNo: TStringField;
    AdoQry_MaInvendorCodeName: TStringField;
    AdoQry_MainPCDate: TDateTimeField;
    AdoQry_MainPCTaxRate_Percent: TIntegerField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainEmployeeCodeName: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
    AdoQry_MainChgType: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Pm_PcHistory: TFrm_Pm_PcHistory;

implementation
uses Pm_PcHistory_C, Sys_Global;
{$R *.DFM}

{ TFrm_Pm_PcHistory }

procedure TFrm_Pm_PcHistory.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
begin
  inherited;
  SelectFromSQL:='Select PcHistory.PcNo'
    +',PcHistory.VendorCode+'' ''+Vendor.VendorName As VendorCodeName'
    +',PcHistory.PCDate'
    +',PcHistory.PCTaxRate_Percent'
    +',Currency.CurrencyName'
    +',PcHistory.RemArk'
    +',PcHistory.ChgEmployeeCode+'' ''+Employee.EmployeeName As EmployeeCodeName'
    +',PcHistory.ChgTime'
    +',PcHistory.ChgType'
    +' From PcHistory Join Vendor On PcHistory.VendorCode=Vendor.VendorCode'
    +' Join Currency On PcHistory.CurrencyCode=Currency.CurrencyCode'
    +' Join Employee On PcHistory.ChgEmployeeCode=Employee.EmployeeCode';
  OrderByFields:='pcno,ChgTime';
  Frm_Sys_Condition:=TFrm_Pm_PcHistory_C.Create(Self);
  Act_Filter.Execute;
  GetData;
end;

end.