unitdatabaseopen.pas

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

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

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

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

var
  frmDataBaseOpen: TfrmDataBaseOpen;

implementation

uses unitJoin, unitFun, unitMain;

{$R *.dfm}

procedure TfrmDataBaseOpen.Button3Click(Sender: TObject);
begin
Close;
end;

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

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

procedure TfrmDataBaseOpen.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 TfrmDataBaseOpen.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
edit1.text:=Opendialog1.FileName;
 if trim(edit1.Text)<>'' then
 begin
 BitBtn1.Enabled:=True;
 end;
end;
end;

procedure TfrmDataBaseOpen.BitBtn1Click(Sender: TObject);
begin
try
 frmMain.ADOTable1.Close;
 frmMain.adoConn.Close; 
 if Pos('.mdb',edit1.text)<=0 then
 begin
  CopyFile(Pchar(edit1.Text + '.mdb'),Pchar(ExtractFilePath(Paramstr(0))+'weight.mdb'),False);
 end
 else
 begin
 CopyFile(Pchar(edit1.Text),Pchar(ExtractFilePath(Paramstr(0))+'weight.mdb'),False);
 end;
 frmMain.adoConn.Open;
 frmMain.ADOTable1.Open;
 frmMain.ADOTable1.Refresh;
 Messagebox(handle,'数据已恢复成功！',pChar(ClientUSN),MB_OK);
 Close;
except
end;
end;

end.