pm_fakepc_d2.pas

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

unit Pm_FakePc_D2;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, StdCtrls, ExtEdit, Db, AdODB;

Type
  TFrm_Pm_FakePc_D2 = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Extedt_PoTermName1: TExtEdit;
    Extedt_PoTermName2: TExtEdit;
    Extedt_PoTermName3: TExtEdit;
    Extedt_PoTermName4: TExtEdit;
    Extedt_PoTermName5: TExtEdit;
    Extedt_PoTermName6: TExtEdit;
    Extedt_PoTermName7: TExtEdit;
    Extedt_PoTermName8: TExtEdit;
    procedure btn_okClick(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    old_PoTermName: Array [1..8] of string;
  end;

var
  Frm_Pm_FakePc_D2: TFrm_Pm_FakePc_D2;

implementation

{$R *.DFM}

procedure TFrm_Pm_FakePc_D2.btn_okClick(Sender: TObject);
begin
  inherited;
  modalResult:=mrok;
end;

procedure TFrm_Pm_FakePc_D2.btn_CancelClick(Sender: TObject);
var
  I:integer;
begin
  For I:=10 to Frm_Pm_FakePc_D2.ControlCount-1 do
  begin
    tedit(Frm_Pm_FakePc_D2.Controls[i]).text:=Frm_Pm_FakePc_D2.old_PoTermName[I-9];
  end;
  inherited;
end;

end.