unitdatabasesave.pas

绿色衡器称重系统(串口）

unit unitDataBaseSave;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
//             该系统源码归青岛东亚电子衡器有限公司版权所有
//                                  Author:HaiBin
//      Email:[e-mail]     DateTime:2005.06.22
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
interface

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

type
  TfrmDataBaseSave = class(TForm)
    Label1: TLabel;
    SaveDialog1: TSaveDialog;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDataBaseSave: TfrmDataBaseSave;

implementation

uses unitFun, unitJoin;

{$R *.dfm}

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

procedure TfrmDataBaseSave.FormShow(Sender: TObject);
var
objFun:TFun;
bcanRead,bcanDelete,bcanModify:boolean;
begin
objFun:=TFun.Create;
if objFun.CheckUserLv(userID,Name,bcanRead,bcanDelete,bCanModify) then
begin
  if (bcanModify) and (bcanRead) and (bcanDelete)then
 begin
    Button1.Enabled:=bcanModify;
    BitBtn2.Enabled:=bcanModify;
 end
 else
 if (bcanModify) and (bcanRead) then
 begin
   Button1.Enabled:=bcanModify;
    BitBtn2.Enabled:=bcanModify;
 end
 else
 if bcanRead then
 begin
    Button1.Enabled:=not bcanModify;
    BitBtn2.Enabled:=not bcanModify;
 end
 else
 begin
 MessageBox(handle,'对不起，你没有权限操作此功能!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
 Close;
 end;
end
else
begin
MessageBox(handle,'对不起，你没有权限操作此功能!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
Close;
end;
BitBtn1.Enabled:=false;
end;

procedure TfrmDataBaseSave.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TfrmDataBaseSave.BitBtn1Click(Sender: TObject);
begin
try
 if Pos('.mdb',edit1.text)<=0 then
 begin
  CopyFile(pChar(ExtractFilePath(Paramstr(0))+'weight.mdb'),Pchar(edit1.Text + '.mdb'),false);
 end
 else
 begin
 CopyFile(pChar(ExtractFilePath(Paramstr(0))+'weight.mdb'),Pchar(edit1.Text ),false);
 end;
  Messagebox(handle,'数据已备份成功！',pChar(ClientUSN),MB_OK);
  Close;
except
end;
end;

procedure TfrmDataBaseSave.Button1Click(Sender: TObject);
begin
if Savedialog1.Execute then
 begin
 edit1.text:=Savedialog1.FileName;
 if trim(edit1.Text)<>'' then
 begin
 BitBtn1.Enabled:=True;
 end;
 end;
end;

end.