unitdanwei.pas

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

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

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

type
  TfrmDanWei = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    adoConn: TADOConnection;
    dsWuPin: TDataSource;
    tDanWei: TADOTable;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    BitBtn6: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDanWei: TfrmDanWei;

implementation

uses unitJoin, unitMain;

{$R *.dfm}

procedure TfrmDanWei.FormClose(Sender: TObject; var Action: TCloseAction);
var
objFun:TFun;
begin
try
objFun:=TFun.Create;
objFun.MainfromDictIni;
objFun.Free;
tDanWei.Cancel;
tDanWei.Close;
adoConn.Close;
frmDanWei:=nil;
action:=caFree;
except
end;
end;

procedure TfrmDanWei.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 tDanwei.Active then
begin
tDanWei.TableName:='dDanWei';
tDanwei.Open;
end;
end;

procedure TfrmDanWei.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;
  BitBtn2.Enabled:= bcanModify;
  BitBtn3.Enabled:= bcanModify;
  BitBtn4.Enabled:= bcanModify;
  BitBtn5.Enabled:= bcanModify;
  dbedit1.ReadOnly:=Not bcanModify;
  dbedit2.ReadOnly:=Not bcanModify;
  DBNavigator1.Enabled:=bcanModify;
  DBGrid1.ReadOnly:= Not bcanModify;
 end
 else
 if (bcanModify) and (bcanRead) then
 begin
  BitBtn1.Enabled:= bcanModify;
  BitBtn2.Enabled:=Not bcanModify;
  BitBtn3.Enabled:=bcanModify;
  BitBtn4.Enabled:=  bcanModify;
  BitBtn5.Enabled:= bcanModify;
  dbedit1.ReadOnly:=Not bcanModify;
  dbedit2.ReadOnly:=Not bcanModify;
  DBNavigator1.Enabled:=bcanModify;
  DBGrid1.ReadOnly:= Not bcanModify;
 end
 else
 if bcanRead then
 begin
  BitBtn1.Enabled:=Not bcanRead;
  BitBtn2.Enabled:=Not bcanRead;
  BitBtn3.Enabled:=Not bcanRead;
  BitBtn4.Enabled:=Not bcanRead;
  BitBtn5.Enabled:=Not bcanRead;
  dbedit1.ReadOnly:=bcanRead;
  dbedit2.ReadOnly:=bcanRead;
  DBNavigator1.Enabled:=Not bcanRead;
  DBGrid1.ReadOnly:=bcanRead;
 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 TfrmDanWei.BitBtn6Click(Sender: TObject);
begin
Close;
end;

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

procedure TfrmDanWei.BitBtn2Click(Sender: TObject);
begin
if tDanWEi.Active then
begin
 if MessageBox(handle,'确实要删除当前记录吗?(不可恢复)',pChar(ClientUSN),MB_OKCANCEL+MB_ICONINFORMATION)=ID_OK then
 begin
 tDanWei.Delete;
 tDanWei.Refresh;
 end;
end;
end;

procedure TfrmDanWei.BitBtn5Click(Sender: TObject);
begin
try
if tDanWei.Active then
begin
tDanWei.Edit;
tDanWei.Post;
tDanWei.Refresh;
end;
except
MessageBox(handle,'数据操作失败！您可能违反了数据的唯一性！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

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

procedure TfrmDanWei.BitBtn4Click(Sender: TObject);
begin
try
 if tDanWei.Active then
begin
tDanWei.Cancel;
tDanWei.Refresh;
end;
except
 MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

end.