xymzquitm.~pas

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

unit XyMzQuitM;

interface

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

type
  TXyMzQuit = class(TForm)
    Panel1: TPanel;
    DBGrid3: TDBGrid;
    DBGrid1: TDBGrid;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    Panel2: TPanel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    ImageList1: TImageList;
    Panel3: TPanel;
    Panel4: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    ReBtn: TBitBtn;
    VaBtn: TBitBtn;
    CaBtn: TBitBtn;
    procedure ReBtnClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
    procedure CaBtnClick(Sender: TObject);
    procedure VaBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XyMzQuit: TXyMzQuit;

implementation

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

procedure TXyMzQuit.ReBtnClick(Sender: TObject);
begin
 if (dbedit1.Text='')or
    (dbedit1.Text=null) then
 begin
   showmessage('复核用户应该先登录!');
   exit;
 end;
 if dbedit1.Text=MainForm.dbedit1.Text then
 begin
   showmessage('确认用户与复核用户不能是同一个人!');
   exit;
 end;
 
  datamzf1.XyMzXmQuitSource.Enabled:=false;
  datamzf1.XyMzQuitSource.Enabled:=false;
  datamzf1.XyMzXmQuitQuery.active:=false;
  datamzf1.XyMzXmQuitQuery.Parameters.ParamByName('hjid').Value :=
      edit1.text;
  datamzf1.XyMzQuitQuery.active:=false;
  datamzf1.XyMzQuitQuery.Parameters.ParamByName('hjid').Value :=
      edit1.text;
  datamzf1.XyMzQuitQuery1.active:=false;
  datamzf1.XyMzQuitQuery1.Parameters.ParamByName('hjid').Value :=
      edit1.text;
  try
    datamzf1.XyMzXmQuitQuery.Active:=true;
    datamzf1.XyMzQuitQuery.active:=true;
    datamzf1.XyMzQuitQuery1.Active:=true;
    if (datamzf1.XyMzXmQuitQuery.RecordCount<=0) or
       (datamzf1.XyMzQuitQuery.RecordCount<=0) then
     begin
       showmessage('未发现相关纪录!');
       datamzf1.XyMzXmQuitQuery.Active:=false;
       datamzf1.XyMzQuitQuery.active:=false;
       datamzf1.XyMzQuitQuery1.Active:=false;
       edit1.SetFocus;
       exit;
     end;
     datamzf1.XyMzXmQuitSource.Enabled:=true;
     datamzf1.XyMzQuitSource.Enabled:=true;
     Cabtn.Enabled:=true;
     Vabtn.enabled:=true;
     Rebtn.enabled:=false;
     edit1.Enabled:=false;
     Vabtn.SetFocus;
  except
     on E1:EOleException do
        showmessage(E1.message);
     on E:EadoError do
        showmessage(E.message);
     else
        showmessage('发现异常,操作被取消!');
  end;
end;

procedure TXyMzQuit.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
   #13:
     if Rebtn.Enabled=true then
        rebtn.SetFocus;
   #48..#57:;
   #8:;
   else
    key:=#0;
  end
end;

procedure TXyMzQuit.Edit1Change(Sender: TObject);
var
p:pchar;
s:string[20];
begin
 s:=edit1.text;
 p:=@s;
 if strlen(p)>0 then
    rebtn.enabled:=true
 else
    rebtn.enabled:=false;

end;

procedure TXyMzQuit.CaBtnClick(Sender: TObject);
var
ms:integer;
begin
 ms:=Application.messagebox('确定放弃退此处方?','提示',MB_OKCANCEL);
 if ms=1 then
  begin
   datamzf1.XyMzXmQuitQuery.Active:=false;
   datamzf1.XyMzQuitQuery.active:=false;
   datamzf1.XyMzQuitQuery1.Active:=false;
   Cabtn.Enabled:=false;
   Vabtn.enabled:=false;
   Rebtn.enabled:=true;
   edit1.Enabled:=true;
   edit1.SetFocus;
  end;
end;

procedure TXyMzQuit.VaBtnClick(Sender: TObject);
var
ms:integer;
begin
 ms:=Application.messagebox('确定退此处方?','提示',MB_OKCANCEL);
 if ms=1 then
  begin
    Cabtn.Enabled:=false;
    Vabtn.enabled:=false;
    Rebtn.enabled:=true;
    edit1.Enabled:=true;
    edit1.SetFocus;
    with datamzf1.XyMzQuitQuery1 do
       begin
         First;
         while not eof do
          begin
           edit;
           FieldByName('quit_hj_id').value:=1;
           fieldByName('quit_fh').value:=dbedit1.text;
           next;
          end;
      end;
    datamzf.XyMzValiConnection.BeginTrans;
    try
       datamzf1.XyMzQuitQuery1.UpdateBatch(arAll);
       datamzf.XyMzValiConnection.CommitTrans;
       datamzf1.XyMzXmQuitQuery.Active:=false;
       datamzf1.XyMzQuitQuery.active:=false;
       datamzf1.XyMzQuitQuery1.Active:=false;
       showmessage('确认成功!');
    except
      on E1:EOleException do
       begin
         datamzf.XyMzValiConnection.RollbackTrans;
         showmessage(E1.message);
         datamzf1.XyMzXmQuitQuery.Active:=false;
         datamzf1.XyMzQuitQuery.active:=false;
         datamzf1.XyMzQuitQuery1.Active:=false;
       end;
      on E:EadoError do
       begin
         datamzf.XyMzValiConnection.RollbackTrans;
         showmessage(E.message);
         datamzf1.XyMzXmQuitQuery.Active:=false;
         datamzf1.XyMzQuitQuery.active:=false;
         datamzf1.XyMzQuitQuery1.Active:=false;
       end;
      else
       begin
         datamzf.XyMzValiConnection.RollbackTrans;
         showmessage('发现异常,操作被取消!');
         datamzf1.XyMzXmQuitQuery.Active:=false;
         datamzf1.XyMzQuitQuery.active:=false;
         datamzf1.XyMzQuitQuery1.Active:=false;
       end;
    end;
  end;
end;

procedure TXyMzQuit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 datamzf1.XyMzXmQuitQuery.Active:=false;
 datamzf1.XyMzQuitQuery.active:=false;
 datamzf1.XyMzQuitQuery1.Active:=false;
 datamzf1.XyMzLsConnection.Connected:=false;
 XyMzQuit.Release;
end;

procedure TXyMzQuit.ToolButton1Click(Sender: TObject);
begin
 valiconn1.ShowModal;
end;

end.