unitcomapy.pas

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

unit unitComapy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, Buttons;

type
  TfrmCompany = class(TForm)
    adoConn: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCompany: TfrmCompany;

implementation

uses unitJoin, unitFun, unitMain;

{$R *.dfm}

procedure TfrmCompany.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
adotable1.Cancel;
adoTable1.Close;
adoConn.Close;
frmCompany:=nil;
Action:=caFree;
except
end;
end;

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

procedure TfrmCompany.FormCreate(Sender: TObject);
var
Connstr:string;
begin
if Not adoconn.Connected then
begin
Connstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Paramstr(0)) +'weight.mdb;Persist Security Info=False;Jet OLEDB:Database Password=qdseashore960501';
adoConn.ConnectionString:=Connstr;
adoconn.Open;
end;
if Not adotable1.Active then
begin
 adotable1.TableName:='dCompany';
 adotable1.Open;
end;
end;

procedure TfrmCompany.BitBtn1Click(Sender: TObject);
begin
Try
if adotable1.Active then
begin
 adoTable1.Edit;
 adotable1.Post;
 Messagebox(handle,'信息已保存成功！系统在下次启动时，将以新的公司名称来运行。',pChar(ClientUSN),MB_OK+MB_ICONINFORMATION);
 ClientUSN:=adotable1.FieldByName('CompanyName').AsString;
 frmMain.Repaint;
 Close;
end;
Except
end;
end;

procedure TfrmCompany.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
    BitBtn1.Enabled:=bcanModify;
    DBEdit1.ReadOnly:=not bcanModify;
    BitBtn2.Enabled:=bcanModify;
 end
 else
 if (bcanModify) and (bcanRead) then
 begin
    BitBtn1.Enabled:=bcanModify;
    DBEdit1.ReadOnly:=not bcanModify;
    BitBtn2.Enabled:=bcanModify;
 end
 else
 if bcanRead then
 begin
    BitBtn1.Enabled:=not bcanModify;
    DBEdit1.ReadOnly:= bcanModify;
    BitBtn2.Enabled:= 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;
end;

end.