mrp_planner.pas

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

unit Mrp_Planner;

Interface

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

Type
  TFrm_Mrp_Planner = Class(TFrm_Base_Outer)
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MaInPlanNERUsable: TIntegerField;
    AdoQry_MainEmployeeName: TStringField;
    Label1: TLabel;
    Lbl_EmployeeCode: TLabel;
    Label3: TLabel;
    Lbl_Name: TLabel;
    Label5: TLabel;
    Lbl_IsNo: TLabel;
//    AdoQry_MainIsStop: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
     function SetDeleteSql:String;Override;
  end;

var
  Frm_Mrp_Planner: TFrm_Mrp_Planner;

implementation
uses Mrp_Planner_D;
{$R *.DFM}

{ TFrm_Bas_Dept }



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

end;

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

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

procedure TFrm_Mrp_Planner.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  Lbl_EmployeeCode.Caption:=AdoQry_Main.fieldbyname('EmployeeCode').AsString;
  Lbl_Name.Caption:=AdoQry_Main.fieldbyname('EmployeeName').AsString;
  If AdoQry_Main.fieldbyname('PlanNERUsable').AsInteger=0 Then
    Lbl_IsNo.Caption:='否'
  Else
    Lbl_IsNo.Caption:='是';
end;

end.