unithuopin.pas

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

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

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


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

var
  frmHuoPin: TfrmHuoPin;

implementation

uses unitJoin, unitMain;

{$R *.dfm}

procedure TfrmHuoPin.BitBtn6Click(Sender: TObject);
begin
Close;
end;

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

procedure TfrmHuoPin.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 tHuoPin.Active then
begin
tHuoPin.Open;
end;
end;

procedure TfrmHuoPin.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 TfrmHuoPin.BitBtn1Click(Sender: TObject);
begin
try
if tHuoPin.Active then
begin
tHuoPin.Insert;
end;
except
MessageBox(handle,'数据操作失败！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

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

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

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

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

end.