unitfrmpara.~pas

Ole编程

unit UnitfrmPara;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UnitglbType;

type
  TfrmPara = class(TForm)
    Label1: TLabel;
    edtParaName: TEdit;
    edtCellNum: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    btnOk: TButton;
    btnCancle: TButton;
    edtTableNum: TEdit;
    procedure btnCancleClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    rowNum: integer;
    opt: string;
  end;

var
  frmPara: TfrmPara;

implementation

{$R *.dfm}

procedure TfrmPara.btnCancleClick(Sender: TObject);
begin
  self.Close;
end;

procedure TfrmPara.btnOkClick(Sender: TObject);
begin
  //rowNum为记录号  
  //给指定的记录赋值
  appPara.appPara[rowNum].fieldName := edtParaName.Text;
  appPara.appPara[rowNum].tableNum := strtoint(edtTableNum.Text);
  appPara.appPara[rowNum].cellNum := strtoint(edtCellNum.Text);
  //如果是添加操作，参数记录数加1
  if opt = 'add' then
  begin
    appPara.recordNum := rowNum;
  end;
  self.Close;
end;

end.