unitumanage.pas

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

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

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


type
  TfrmUManage = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    dbedtID: TDBEdit;
    Label2: TLabel;
    dbedtUSN: TDBEdit;
    Label3: TLabel;
    dbedtPWD: TDBEdit;
    Label4: TLabel;
    GroupBox4: TGroupBox;
    adoConn: TADOConnection;
    dsUser: TDataSource;
    dsLv: TDataSource;
    adotbUser: TADOTable;
    adotbLv: TADOTable;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox5: TGroupBox;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    adotbLvDict: TADOTable;
    dsLvDict: TDataSource;
    edtPWDC: TEdit;
    GroupBox6: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox7: TGroupBox;
    Label5: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    Label6: TLabel;
    Label7: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    adoLvOper: TADOQuery;
    BitBtn9: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUManage: TfrmUManage;

implementation

uses unitJoin;

{$R *.dfm}

procedure TfrmUManage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotbUser.Cancel;
adotbLv.Cancel;
adotbUser.Close;
adotbLv.Close;
adotbLvDict.Close;
adoConn.Close;
frmUManage:=nil;
Action:=caFree;
end;

procedure TfrmUManage.BitBtn4Click(Sender: TObject);
begin
try
if (Trim(dbedtPWD.Text)<>Trim(edtPWDC.Text)) then
begin
MessageBox(handle,'确认密码不符！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
adotbLv.Cancel;
adotbLv.Refresh;
Exit;
end;
if MessageBox(handle,'确定要保存操作的记录吗？',pChar(ClientUSN),MB_OKCANCEL+MB_ICONINFORMATION)=ID_OK then
begin
if adotbUser.Active then                                                                     
begin
adotbUser.Edit;
adotbUser.Post;
adotbUser.Refresh;
end;
end
else
   if adotbLv.Active then
  begin
   adotbLv.Cancel;
   adotbLv.Refresh;
  end;
dbedtID.Enabled:=false;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmUManage.BitBtn1Click(Sender: TObject);
begin
try
dbedtID.Enabled:=true;
if adotbUser.Active then
adotbUser.Insert;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmUManage.BitBtn5Click(Sender: TObject);
begin
try
if adotbLv.Active then
adotbLv.Insert;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmUManage.BitBtn8Click(Sender: TObject);
begin
try
if MessageBox(handle,'确定要保存操作的记录吗？',pChar(ClientUSN),MB_OKCANCEL+MB_ICONINFORMATION)=ID_OK then
begin
  if adotbLv.Active then
  begin
  adotbLv.Edit;
  adotbLv.post;
  adotbLv.Refresh;
  end;
end
else
   if adotbLv.Active then
  begin
   adotbLv.Cancel;
   adotbLv.Refresh;
  end;
  adotbLv.Edit;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmUManage.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 bcanRead then
 begin
 dbedtID.ReadOnly:=Not bcanModify;
 dbedtUSN.ReadOnly:=Not bcanModify;
 dbedtPWD.ReadOnly:=Not bcanModify;
 edtPWDC.ReadOnly:=Not bcanModify;
 DBGrid1.ReadOnly:=Not bcanModify;
 DBGrid2.ReadOnly:=Not bcanModify;
 BitBtn1.Enabled:=  bcanModify;
 BitBtn2.Enabled:=  bcanModify;
 BitBtn3.Enabled:=  bcanModify;
 BitBtn4.Enabled:=  bcanModify;
 BitBtn5.Enabled:=  bcanModify;
 BitBtn6.Enabled:=  bcanModify;
 BitBtn7.Enabled:=  bcanModify;
 BitBtn8.Enabled:=  bcanModify;
 DBLookupComboBox1.ReadOnly:= Not bcanModify;
 DBCheckBox1.ReadOnly:= Not bcanModify;
 DBCheckBox2.ReadOnly:= Not bcanModify;
 DBCheckBox3.ReadOnly:= Not bcanModify;
 end
 else
 if bcanModify then
 begin
 dbedtID.ReadOnly:= bcanModify;
 dbedtUSN.ReadOnly:= bcanModify;
 dbedtPWD.ReadOnly:= bcanModify;
 edtPWDC.ReadOnly:= bcanModify;
 DBGrid1.ReadOnly:= bcanModify;
 DBGrid2.ReadOnly:= bcanModify;
 BitBtn1.Enabled:=Not  bcanModify;
 BitBtn2.Enabled:=Not  bcanModify;
 BitBtn3.Enabled:=Not  bcanModify;
 BitBtn4.Enabled:=Not  bcanModify;
 BitBtn5.Enabled:=Not  bcanModify;
 BitBtn6.Enabled:=Not bcanModify;
 BitBtn7.Enabled:=Not  bcanModify;
 BitBtn8.Enabled:=Not  bcanModify;
 DBLookupComboBox1.ReadOnly:= bcanModify;
 DBCheckBox1.ReadOnly:= bcanModify;
 DBCheckBox2.ReadOnly:=  bcanModify;
 DBCheckBox3.ReadOnly:=  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;

procedure TfrmUManage.BitBtn2Click(Sender: TObject);
begin
try
if (Trim(dbedtPWD.Text)<>Trim(edtPWDC.Text)) then
begin
MessageBox(handle,'确认密码不符！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
adotbLv.Cancel;
adotbLv.Refresh;
Exit;
end;
if adotbUser.Active then
adotbUser.Edit;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmUManage.DBLookupComboBox1CloseUp(Sender: TObject);
begin
adotbLv.Edit;
adotbLv.FieldByName('frmName').AsString:= adotbLvDict.FieldByName('name').AsString;
DBGrid2.Refresh;
end;

procedure TfrmUManage.BitBtn6Click(Sender: TObject);
begin
try
if adotbLv.Active then
adotbLv.Edit;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmUManage.BitBtn3Click(Sender: TObject);
var
 strU,sql:string;
begin
if adotbUser.Active then
begin
if MessageBox(handle,'确定要删除当前操作的记录吗？(不可恢复)',pChar(ClientUSN),MB_OKCancel+MB_ICONINFORMATION)=ID_OK then
begin
 strU:=Trim(dbedtID.Text);
 try
 sql:='delete * from uLevel where uManage=' + quotedstr(strU);
 adoLvOper.Close;
 adoLvOper.SQL.Clear;
 adoLvOper.SQL.Add(sql);
 adoLvOper.ExecSQL;
 except
 MessageBox(handle,'删除该用户的权限时发生错误！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
 end;
 adotbUser.Delete;
 adotbUser.Refresh;
end;
end;
end;

procedure TfrmUManage.FormCreate(Sender: TObject);
var
 Connstr:string;
begin
dbedtID.Enabled:=False;
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 adotbUser.Active then
begin
adotbUser.Open;
end;
if  NOt adotbLv.Active then
begin
adotbLv.Open;
end;
if not adotbLvDict.Active then
begin
adotbLvDict.Open;
end;
end;

procedure TfrmUManage.BitBtn7Click(Sender: TObject);
begin
if adotbLv.Active then
begin
  if MessageBox(handle,'确定要删除当前操作的记录吗？(不可恢复)',pChar(ClientUSN),MB_OKCancel+MB_ICONINFORMATION)=ID_OK then
   begin
     adotbLv.Delete;
     adotbLv.Refresh;
   end;
end;
end;

procedure TfrmUManage.BitBtn9Click(Sender: TObject);
begin
Close;
end;

end.