bas200_07.pas.svn-base

来自「开源的网站整站程序,功能强大带采集系统.」· SVN-BASE 代码 · 共 68 行

unit Bas200_07;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, StdCtrls, Buttons, ExtCtrls, Menus;

type
  TBas200_07Form = class(TBas100_01Form)
    Shape1: TShape;
    bbtnSave: TBitBtn;
    bbtnExit: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnSaveClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Bas200_07Form: TBas200_07Form;

implementation

uses CommFun;

{$R *.dfm}

procedure TBas200_07Form.SetInterface;
begin
  bbtnSave.Caption:=GetDBString('COM00005021');  //保存(&S)
  bbtnExit.Caption:=GetDBString('COM00005022');  //取消(&X)
end;

procedure TBas200_07Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
  LoadFromReg(Self); //这行一定放在打开数据集后面，否则无效
end;

procedure TBas200_07Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TBas200_07Form.bbtnSaveClick(Sender: TObject);
begin
  inherited;
//保存(&S)
end;

procedure TBas200_07Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//取消(&C)
  Close;
end;

end.