setcomunit.pas

三层的通用架构

unit SetCOMUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids, DBGrids, DB, DBClient;

type
  TSetCOMForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClientDataSet1BeforeDelete(DataSet: TDataSet);
    procedure DBGrid1EditButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    TheUserName: string;
  end;

var
  SetCOMForm: TSetCOMForm;

implementation

uses
  MainUnit;

{$R *.dfm}

procedure TSetCOMForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  SetCOMForm := nil;
end;

procedure TSetCOMForm.Button1Click(Sender: TObject);
begin
  TheMainForm.SetCOMSet(TheUserName);
  Close;
end;

procedure TSetCOMForm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TSetCOMForm.ClientDataSet1BeforeDelete(DataSet: TDataSet);
begin
  if ClientDataSet1.RecordCount = 10 then
    Abort;
end;

procedure TSetCOMForm.DBGrid1EditButtonClick(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    InitialDir := ExtractFilePath(ClientDataSet1.FieldByName('DLL').AsString);
    FileName := ExtractFileName(ClientDataSet1.FieldByName('DLL').AsString);
    FilterIndex := 2;
    if (FileName = '') or (UpperCase(ExtractFileExt(FileName)) = '.DLL') then
      FilterIndex := 1;
    if Execute then
    begin
      ClientDataSet1.Edit;
      ClientDataSet1.FieldValues['DLL'] := FileName;
      ClientDataSet1.Post;
    end;
  end;
end;

end.