xymzlossvalim.pas

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

unit XyMzLossValiM;

interface

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

type
  TXyMzLossVali = class(TForm)
    Panel1: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    DBGrid2: TDBGrid;
    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
  XyMzLossVali: TXyMzLossVali;

implementation

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

procedure TXyMzLossVali.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datamzf1.LossValiQuery.active:=false;
  XyMzLossVali.release;
end;

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


end;

procedure TXyMzLossVali.ToolButton2Click(Sender: TObject);
begin
   try
       datamzf1.LossValiQuery.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 TXyMzLossVali.ToolButton3Click(Sender: TObject);
begin
 datamzf1.LossValiQuery.CancelBatch;
 toolbutton1.enabled:=true;
 toolbutton2.enabled:=false;
 toolbutton3.enabled:=false;
 toolbutton4.Enabled:=true;

end;

procedure TXyMzLossVali.DBGrid2DblClick(Sender: TObject);
begin
 if datamzf1.LossValiQuery.Active=false then
   exit;
 if datamzf1.LossValiQuery.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;
     datamzf1.LossValiQuery.Edit;
     dbgrid2.fields[9].AsString:=MainForm.dbedit1.text;
   end;


end;

procedure TXyMzLossVali.ToolButton4Click(Sender: TObject);
var ms:integer;
begin

 if datamzf1.LossValiQuery.Active=false then
  exit;
 if datamzf1.LossValiQuery.FieldByName('my_id').value.ISNULL then
  exit;
 with datamzf do
  begin
   Del.Parameters.ParamByName('@DelIden').value:=2;
   Del.Parameters.ParamByName('@MyId').value:=
     datamzf1.LossValiQuery.FieldByName('my_id').value;
   ms:=Application.messagebox('确定删除此纪录?','提示',MB_OKCANCEL);
   if ms<>1 then
    exit;
   try
    Del.ExecProc;
    datamzf1.LossValiQuery.Active:=false;
    datamzf1.LossValiQuery.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.