mrp_qry_informaltotalmrp_vd.pas

一个MRPII系统源代码版本

unit Mrp_Qry_InformalTotalMrp_vd;

Interface

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

Type
  TFrm_Mrp_Qry_InformalTotalMrp_vd = Class(TFrm_Base_Qry)
    AdoQry_MaInvendorCode: TStringField;
    AdoQry_MaInvendorName: TStringField;
    AdoQry_MaInvendorshortName: TStringField;
    AdoQry_MaInvendorAddress: TStringField;
    AdoQry_MaInvendoremail: TStringField;
    AdoQry_MaInvendortel: TStringField;
    AdoQry_MaInvendorfax: TStringField;
    AdoQry_MaInvendorbank: TStringField;
    AdoQry_MaInvendorUsable: TIntegerField;
    AdoQry_MaInvendorbankaccno: TStringField;
    AdoQry_MaInvendortaxrate_Percent: TIntegerField;
    AdoQry_MaInvendortaxno: TStringField;
    AdoQry_MaInvendorcontact: TStringField;
    AdoQry_MaInvendorowner: TStringField;
    AdoQry_MaInvendorceo: TStringField;
    AdoQry_MaInvendorcreatetime: TDateTimeField;
    AdoQry_MaInvendormodifytime: TDateTimeField;
    AdoQry_MaInvendordisabletime: TDateTimeField;
    AdoQry_MaincurrencyCode: TStringField;
    AdoQry_MaincurrencyName: TStringField;
    AdoQry_MaincurrencyCodeName: TStringField;
    AdoQry_MaInvendorremArk: TStringField;
    AdoQry_MaInvendorQFund: TFloatField;
    AdoQry_MaInvendorCredit: TFloatField;
    AdoQry_MaInvendorWebPage: TStringField;
    AdoQry_MaInvendorClass1: TStringField;
    AdoQry_MaInvendorClass2: TStringField;
    AdoQry_MaInvendorClass3: TStringField;
    AdoQry_MaInvendorClass4: TStringField;
    AdoQry_MaInvendorClass5: TStringField;
    AdoQry_MaInvendorflag: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure Act_LookExecute(Sender: TObject);
  private
    { Private declarations }
  public
    ItemCode:string;
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_InformalTotalMrp_vd: TFrm_Mrp_Qry_InformalTotalMrp_vd;

implementation

uses Mrp_Qry_UpRightMrp_D_vd,Sys_Global;

{$R *.DFM}

{ TFrm_Mrp_Qry_InformalTotalMrp_vd }

procedure TFrm_Mrp_Qry_InformalTotalMrp_vd.initform(
  AdOConnection: TAdOConnection; ReadOnly: boolean);
begin
  inherited;
  SelectFromSQL:='Select Vendor.VendorCode,'+
                        'Vendor.VendorName,'+
                        'Vendorflag=Vendor.VendorCode+'' ''+Vendor.VendorName,'+
                        'Vendor.VendorshortName,'+
                        'Vendor.VendorAddress,'+
                        'Vendor.Vendoremail,'+
                        'Vendor.VendorUsable,'+
                        'Vendor.Vendortel,'+
                        'Vendor.Vendorfax,'+
                        'Vendor.Vendorbank,'+
                        'Vendor.Vendorbankaccno,'+
                        'Vendor.Vendortaxrate_Percent,'+
                        'Vendor.Vendortaxno,'+
                        'Vendor.Vendorcontact,'+
                        'Vendor.Vendorowner,'+
                        'Vendor.Vendorceo,'+
                        'Vendor.Vendorcreatetime,'+
                        'Vendor.Vendormodifytime,'+
                        'Vendor.Vendordisabletime,'+
                        'Vendor.currencyCode,'+
                        'currency.currencyName,'+
                        'Vendor.currencyCode+'+''' '''+'+currency.currencyName as currencyCodeName, '+
                        'Vendor.VendorremArk,'+
                        'Vendor.VendorQFund,'+
                        'Vendor.VendorCredit,'+
                        'Vendor.VendorWebPage,'+
                        'Vendor.VendorClass1,'+
                        'Vendor.VendorClass2,'+
                        'Vendor.VendorClass3,'+
                        'Vendor.VendorClass4,'+
                        'Vendor.VendorClass5 '+
                 'from Vendor '+
                 ' left join currency  on Vendor.currencyCode=currency.currencyCode ';
   conditionuserDefine:='VendorCode in(select po.VendorCode from po,poline where po.pono=poline.pono and poline.ItemCode='+quotedstr(ItemCode)+')';
  //当前排序字段
  OrderByFields:='VendorCode';
  lbl_Order.Caption:='供应商代码';

  GetData;

end;

procedure TFrm_Mrp_Qry_InformalTotalMrp_vd.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_InformalTotalMrp_vd:=nil;
end;

procedure TFrm_Mrp_Qry_InformalTotalMrp_vd.Act_LookExecute(
  Sender: TObject);
begin
  inherited;
  Qry_Vendor(dbconnect,AdoQry_Main.fieldbyname('VendorCode').asstring);
 {with AdoQry_tmp do
  begin
     Close;
     sql.clear;
     sql.Add('select * from Vendor where VendorCode='+quotedstr(AdoQry_Main.fieldbyname('VendorCode').asstring));
     open;
    try
     with TFrm_Mrp_Qry_UpRightMrp_D_vd.Create(self) do
       begin
       Caption:='当前供应商基本资料';
       edit1.Text:=fieldbyname('VendorName').asstring;
       edit5.Text:=fieldbyname('VendorAddress').asstring;
       edit3.Text:=fieldbyname('VendorshortName').asstring;
       edit4.Text:=fieldbyname('Vendoremail').asstring;
       edit2.Text:=fieldbyname('Vendorfax').asstring;
       edit21.Text:=fieldbyname('Vendortel').asstring;
       maskedit1.Text:=fieldbyname('Vendorcreatetime').asstring;
       maskedit2.Text:=fieldbyname('Vendormodifytime').asstring;
       edit6.Text:=fieldbyname('Vendorbank').asstring;
       edit7.Text:=fieldbyname('Vendorbankaccno').asstring;
       edit18.Text:=floattostr(fieldbyname('Vendortaxrate_Percent').asfloat);
       edit19.Text:=fieldbyname('Vendortaxno').asstring;
       edit20.Text:=fieldbyname('Vendorcontact').asstring;
       edit11.Text:=fieldbyname('Vendorowner').asstring;
       edit12.Text:=fieldbyname('Vendorceo').asstring;
       edit8.Text:=fieldbyname('VendorremArk').asstring;
       showmodal;
     end;
    finally
    Frm_Mrp_Qry_UpRightMrp_D_vd.Free;
     end;
  end;}
end;


end.