xymzinqr.~pas

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

unit XyMzInQr;

interface

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

type
  TXyMzInVali = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolBar2: TToolBar;
    ToolButton4: TToolButton;
    Panel2: TPanel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Panel3: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XyMzInVali: TXyMzInVali;

implementation

uses datamz, Main, ValiConn1M;

{$R *.DFM}

procedure TXyMzInVali.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 datamzf.XyMzInQuery.active:=false;
 XyMzInVali.release;
end;

procedure TXyMzInVali.DBGrid1DblClick(Sender: TObject);
begin
 if datamzf.XyMzInQuery.Active=false then
   exit;
 if datamzf.XyMzInQuery.RecordCount=0 then
   exit;
 if trim(dbgrid1.fields[7].asstring)=trim(dbedit1.text) then
  begin
   showmessage('确认人不能为领药人!');
   exit;
  end;

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

end;

procedure TXyMzInVali.ToolButton1Click(Sender: TObject);
begin

   datamzf.XyMzInQuery.Active:=false;
   try
     datamzf.XyMzInQuery.active:=true;
   except
     showmessage('操作失败,可能权限不够!');
   end;


end;

procedure TXyMzInVali.ToolButton2Click(Sender: TObject);
begin
   try
       datamzf.XyMzInQuery.UpdateBatch(arall);
       toolbutton1.enabled:=true;
       toolbutton2.enabled:=false;
       toolbutton3.enabled:=false;
    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 TXyMzInVali.ToolButton3Click(Sender: TObject);
begin
 datamzf.XyMzInQuery.CancelBatch;
 toolbutton1.enabled:=true;
 toolbutton2.enabled:=false;
 toolbutton3.enabled:=false;
end;

procedure TXyMzInVali.ToolButton4Click(Sender: TObject);
begin
 valiconn1.ShowModal;
end;

end.