pm_pc_check_h.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 59 行

unit Pm_Pc_Check_H;

Interface

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

Type
  TFrm_Pm_Pc_Check_H = Class(TFrm_Base_Check_Head)
    AdoQry_HeadPcNo: TStringField;
    AdoQry_HeadVendorCode: TStringField;
    AdoQry_HeadVendorName: TStringField;
    AdoQry_HeadPCTaxRate_Percent: TIntegerField;
    AdoQry_HeadPCStatus: TIntegerField;
    AdoQry_HeadCurrencyCode: TStringField;
    AdoQry_HeadCurrencyName: TStringField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadPCDate: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }   
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Pm_Pc_Check_H: TFrm_Pm_Pc_Check_H;

implementation
uses Pm_Pc_Check_B;
{$R *.DFM}

{ TFrm_Pm_Pc_Check_H }

procedure TFrm_Pm_Pc_Check_H.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:='Select pc.PcNo'
    +',pc.VendorCode'
    +',pc.PCDate'
    +',Vendor.VendorName'
    +',pc.PCTaxRate_Percent'
    +',pc.PCStatus'
    +',pc.CurrencyCode'
    +',Currency.CurrencyName'
    +',pc.RemArk'
    +' From pc Join Vendor On pc.VendorCode=Vendor.VendorCode'
    +' Join Currency On pc.CurrencyCode=Currency.CurrencyCode';

  OrderByFields:='PcNo';
  GetData;
  Frm_Check_Body:=TFrm_Pm_Pc_Check_B.Create(Application);
end;

end.