exitprompt.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 91 行

unit ExitPrompt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DB, DBTables, ADODB, ExtCtrls, jpeg, shlobj,
  FileCtrl, Grids, Outline, DirOutln, ActiveX, ShellApi,
  inifiles;

type
  TF_ExitPrompt = class(TForm)
    Button1: TButton;
    Button6: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
      bOK: bool;
  end;

var
    F_ExitPrompt: TF_ExitPrompt;
    path:string;
    root:string;
  
const   
    SELDIRHELP   =   1000;
    ininame= 'Config.ini';

  
implementation

uses main, data;

{$R *.dfm}

procedure TF_ExitPrompt.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
    Begin
        key:=0;
        perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TF_ExitPrompt.Button1Click(Sender: TObject);
var
    Currentdir:string;
    strMDBPlace:string;
begin
    try
        Currentdir:=extractfilepath(Application.exename)+'Realty.mdb';
        strMDBPlace := extractfilepath(Application.exename)+datetostr(date)+'Realty.mdb';
        Copyfile(Pchar(Currentdir),pchar(strMDBPlace),false);
    except
        Application.MessageBox('无法创建数据库，详细信息'#13'请与系统管理员联系。','提示',MB_OK + MB_ICONINFORMATION);
        Exit;
    end;


    bOK:=true;
    close ;
end;

procedure TF_ExitPrompt.Button6Click(Sender: TObject);
begin
     bOK:=false;
     close ;
end;

procedure TF_ExitPrompt.Button3Click(Sender: TObject);
begin
    bOK:=true;
    close ;
end;

end.