pm_buyer.pas

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

unit Pm_Buyer;

Interface

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

Type
  TFrm_Pm_Buyer = Class(TFrm_Base_Outer)
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainBUYERUsable: TIntegerField;
    AdoQry_MainEmployeeName: TStringField;
//    AdoQry_MainIsStop: TStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
     function SetDeleteSql:String;Override;
  end;

var
  Frm_Pm_Buyer: TFrm_Pm_Buyer;

implementation
uses Pm_Buyer_D;
{$R *.DFM}

{ TFrm_Bas_Dept }

function TFrm_Pm_Buyer.SetDeleteSql: String;
begin
  Result:='delete from Buyer where EmployeeCode='+''''+AdoQry_Main.fieldbyname('EmployeeCode').asstring+'''';
end;

procedure TFrm_Pm_Buyer.FormCreate(Sender: TObject);
begin
  inherited;
  Dbgrideh.Columns[0].FieldName:='EmployeeCode';
  Dbgrideh.Columns[1].FieldName:='EmployeeName';
  Dbgrideh.Columns[2].FieldName:='BUYERUsable';
end;

procedure TFrm_Pm_Buyer.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
   SelectFromSQL:='select Buyer.*,Employee.EmployeeName from Buyer  join Employee  ON Buyer.EmployeeCode=Employee.EmployeeCode ';
   OrderByFields:='EmployeeCode';
   AdoQry_Main.Connection:=AdOConnection;
   GetData;
  Frm_Sys_Detail:=TFrm_Pm_Buyer_D.Create(Application);
end;

end.