zbvalim.~pas

来自「本文重点研究的是医院西药药房管理系统」· ~PAS 代码 · 共 210 行

unit ZbValiM;

interface

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

type
  TZbVali = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    ReBtn: TBitBtn;
    VaBtn: TBitBtn;
    CaBtn: TBitBtn;
    Panel1: TPanel;
    DBGrid3: TDBGrid;
    DBGrid1: TDBGrid;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZbVali: TZbVali;

implementation

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

procedure TZbVali.ReBtnClick(Sender: TObject);
begin
  with datamzf2.XyMzXmValiQuery do
    begin
     active:=false;
     sql.Clear;
     sql.Add('select xm_name,hz_name,sk_man,hj_date,ys_money ');
     sql.add('from MzYpSf,XmId ');
     sql.add('where MzYpSf.xm_id=XmId.xm_id and ');
     sql.add('XmId.xy_iden=1 and ');
     sql.add('MzYpSf.hj_id=:hjid');
     Parameters.ParamByName('hjid').Value := edit1.text;
   end;
  with datamzf2.XyMzvaliQuery do
    begin
     active:=false;
     sql.Clear;
     sql.Add('select yp_name,yp_spec,');
     sql.add('yp_unit,yp_batch,yp_amou,ls_price');
     sql.add('from XyMzVali,XyId');
     sql.add('where XyMzVali.yp_id=XyId.yp_id and ');
     sql.add('XyMzVali.hj_id=:hjid');
     Parameters.ParamByName('hjid').Value := edit1.text;
   end;
     try
       datamzf2.XyMzXmValiQuery.Active:=true;
       datamzf2.XyMzvaliQuery.active:=true;
       if (datamzf2.XyMzValiQuery.RecordCount<=0)
            or (datamzf2.XyMzXmValiQuery.RecordCount<=0) then
        begin
         showmessage('未发现相关纪录!');
         datamzf2.XyMzXmValiQuery.Active:=false;
         datamzf2.XyMzValiQuery.Active:=false;
         edit1.SetFocus;
         exit;
        end;
       datamzf2.XyMzvaliSource.Enabled:=true;
       datamzf2.XyMzXmvaliSource.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:EDatabaseError do
         showmessage(E.message);
      else
         showmessage('发现异常,操作被取消!');
     end;
end;

procedure TZbVali.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 TZbVali.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 TZbVali.CaBtnClick(Sender: TObject);
var
ms:integer;
begin
 ms:=Application.messagebox('确定放弃确认此处方?','提示',MB_OKCANCEL);
 if ms=1 then
  begin
   datamzf2.XyMzvaliQuery.active:=false;
   datamzf2.XyMzXmValiQuery.Active:=false;
   Cabtn.Enabled:=false;
   Vabtn.enabled:=false;
   Rebtn.enabled:=true;
   edit1.Enabled:=true;
   edit1.SetFocus;
  end;
end;

procedure TZbVali.VaBtnClick(Sender: TObject);
//var
//ms:integer;
begin
 showmessage('无确认功能!');
// ms:=Application.messagebox('确定确认此处方?','提示',MB_OKCANCEL);
// if ms=1 then
//  begin
//   with datamzf2.XyMzXmvaliQuery do
//    begin
//     active:=false;
//     sql.Clear;
//     sql.Add('update MzYpSf ');
//     sql.add('set qr_man=:UserName, ');
//     sql.add('zb_iden=1 ');
//      sql.add('where hj_id=:hjid');
//     Parameters.ParamByName('UserName').Value := mainform.dbedit1.text;
//     Parameters.ParamByName('hjid').Value := edit1.text;
//     datamzf2.XyMzXmValiSource.Enabled:=false;
//    end;
//   with datamzf2.XyMzvaliQuery do
//    begin
//     active:=false;
//     sql.Clear;
//     sql.Add('update XyMzVali ');
//     sql.add('set qr_man=:UserName,');
//     sql.add('zb_iden=1 ');
//     sql.add('where XyMzVali.hj_id=:hjid');
//     Parameters.ParamByName('UserName').Value := MainForm.dbedit1.text;
//     Parameters.ParamByName('hjid').Value := edit1.text;
//     datamzf2.XyMzvaliSource.Enabled:=false;
//     Cabtn.Enabled:=false;
//     Vabtn.enabled:=false;
//     Rebtn.enabled:=true;
//     edit1.Enabled:=true;
//     edit1.SetFocus;
//    end;
//    datamzf.XyMzValiConnection.BeginTrans;
//    try
//       datamzf2.XyMzValiQuery.ExecSQL;
//       datamzf2.XyMzXmValiQuery.ExecSQL;
//       datamzf.XyMzValiConnection.CommitTrans;
//
//       showmessage('确认成功!');
//    except
//      on E1:EOleException do
//       begin
//         datamzf.XyMzValiConnection.RollbackTrans;
//         showmessage(E1.message);
//       end;
//      on E:EDatabaseError do
//       begin
//         datamzf.XyMzValiConnection.RollbackTrans;
//         showmessage(E.message);
//       end;
//      else
//       begin
//         datamzf.XyMzValiConnection.RollbackTrans;
//         showmessage('发现异常,操作被取消!');
//       end;
//    end;
//  end;
end;

procedure TZbVali.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datamzf2.XyMzvaliQuery.active:=false;
  datamzf2.XyMzXmValiQuery.Active:=false;
  ZbVali.Release;
end;

end.