xymzzjvalim.pas

本文重点研究的是医院西药药房管理系统

unit XyMzZjValiM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls,db,adodb,
  Buttons,comobj, ToolWin;

type
  TXyMzZjVali = class(TForm)
    Panel1: TPanel;
    DBGrid2: TDBGrid;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Panel2: TPanel;
    ToolButton4: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XyMzZjVali: TXyMzZjVali;

implementation

{$R *.DFM}
uses
datamz, Main;

procedure TXyMzZjVali.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datamzf.ZjValiQuery.active:=false;
  XyMzZjVali.release;
end;

procedure TXyMzZjVali.ToolButton1Click(Sender: TObject);
begin
if MainForm.dbedit1.text='' then
  begin
   showmessage('请重新登录!');
  end
else
  begin
   datamzf.ZjValiQuery.Active:=false;
   try
     datamzf.ZjValiQuery.active:=true;
     toolbutton4.Enabled:=true;
   except
     showmessage('操作失败,可能权限不够!');
   end;
 end;


end;

procedure TXyMzZjVali.ToolButton2Click(Sender: TObject);
begin
   try
       datamzf.ZjValiQuery.UpdateBatch(arall);
       toolbutton1.enabled:=true;
       toolbutton2.enabled:=false;
       toolbutton3.enabled:=false;
       toolbutton4.Enabled:=true;
    except
      on E1:EOleException do
       begin
         showmessage(E1.message);
       end;
      on E:EDatabaseError do
       begin
         showmessage(E.message);
       end;
      else
       begin
         showmessage('确认失败!');
       end;
    end;

end;

procedure TXyMzZjVali.ToolButton3Click(Sender: TObject);
begin
 datamzf.ZjValiQuery.CancelBatch;
 toolbutton1.enabled:=true;
 toolbutton2.enabled:=false;
 toolbutton3.enabled:=false;
 toolbutton4.Enabled:=true;
end;

procedure TXyMzZjVali.DBGrid2DblClick(Sender: TObject);
begin
 if datamzf.ZjValiQuery.Active=false then
   exit;
 if datamzf.ZjValiQuery.RecordCount=0 then
   exit;
 if trim(dbgrid2.fields[8].asstring)=trim(mainform.dbedit1.text) then
  begin
   showmessage('确认人不能为输入人!');
   exit;
  end;

 if (dbgrid2.Fields[9].asstring='') and (dbgrid2.fields[0].AsString<>'') then
   begin
     toolbutton1.enabled:=false;
     toolbutton2.enabled:=true;
     toolbutton3.enabled:=true;
     toolbutton4.Enabled:=false;
     datamzf.ZjValiQuery.Edit;
     dbgrid2.fields[9].AsString:=MainForm.dbedit1.text;
   end;


end;

procedure TXyMzZjVali.ToolButton4Click(Sender: TObject);
var ms:integer;
begin
 with datamzf do
  begin
   if ZjValiQuery.Active=false then
    exit;
   if ZjValiQuery.FieldByName('my_id').value>0 then
    exit;
   Del.Parameters.ParamByName('@DelIden').value:=0;
   Del.Parameters.ParamByName('@MyId').value:=
     ZjValiQuery.FieldByName('my_id').value;
   ms:=Application.messagebox('确定删除此纪录?','提示',MB_OKCANCEL);
   if ms<>1 then
    exit;
   try
    Del.ExecProc;
    ZjValiQuery.Active:=false;
    ZjValiQuery.Active:=true;
    toolbutton1.enabled:=true;
    toolbutton2.enabled:=false;
    toolbutton3.enabled:=false;
    toolbutton4.Enabled:=true;
   except
      on E1:EOleException do
       begin
         showmessage(E1.message);
       end;
      on E:EDatabaseError do
       begin
         showmessage(E.message);
       end;
      else
       begin
         showmessage('确认失败!');
       end;
    end;

  end;
end;

end.