inv_opadjustbill.pas

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

unit Inv_OpAdjustBill;

Interface

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

Type
  TFrm_Inv_OpAdjustBill = Class(TFrm_Base_Entry_Head)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_OpAdjustBill: TFrm_Inv_OpAdjustBill;

implementation

uses Inv_OpAdjustBill_B, Base_Entry_Body;

{$R *.DFM}
procedure TFrm_Inv_OpAdjustBill.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  Pnl_Title.Caption:='委外加工材料结存调整单';
  with  AdoQry_Head do
  begin
    Close;
    sql.Text:='select o.opBillid,v.VendorName as VendorName1,o.VendorCode,o.VendorCode+'' ''+v.VendorName as VendorName,'+
              'o.opBillno,v.Vendortaxrate_Percent,c.currencyName as currencyName,'+
              'o.opBillDate,'+
              'e.EmployeeName as EmployeeName,'+
              'o.opBillRemArk '+
              'from opAdjustBill o '+
              'left join Vendor v on o.VendorCode=v.VendorCode '+
              'left join Employee e on o.EmployeeCode=e.EmployeeCode '+
              'left join currency c on c.currencyCode=v.currencyCode ';
    open;
  end;
  Frm_Entry_Body:=TFrm_Inv_OpAdjustBill_B.Create(self);
end;

end.