xymzrefem.~pas

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

unit XyMzRefeM;

interface

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

type
  TXyMzRefe = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    DBCtrlGrid1: TDBCtrlGrid;
    DBEdit4: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Panel2: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    ListBox2: TDBLookupListBox;
    Panel3: TPanel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Panel4: TPanel;
    DBCheckBox1: TDBCheckBox;
    Label9: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    bitbtn4: TToolButton;
    Panel5: TPanel;
    CheckBox1: TCheckBox;
    Panel6: TPanel;
    Panel7: TPanel;
    bitbtn1: TToolButton;
    bitbtn2: TToolButton;
    Panel8: TPanel;
    Panel9: TPanel;
    bitbtn3: TToolButton;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    DBEdit7: TDBEdit;
    Label13: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ListBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Panel2Enter(Sender: TObject);
    procedure Panel2Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBCheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBCheckBox2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure bitbtn1Click(Sender: TObject);
    procedure bitbtn2Click(Sender: TObject);
    procedure bitbtn3Click(Sender: TObject);
    procedure bitbtn4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XyMzRefe: TXyMzRefe;

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

procedure TXyMzRefe.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if  (key=#13) and (length(trim(edit1.text))>0) then
   begin
    with datamzf.YpQuery do
     begin
      active:=false;
      Parameters.ParamByName('@YpCode').Value := edit1.text;
//      Parameters.ParamByName('@ZjIden').Value := 0;
      try
       open;
       panel2.Visible:=true;
       listbox2.SetFocus;
      except
       showmessage('文件不能打开!');
      end;
     end;
    end;

end;

procedure TXyMzRefe.ListBox2KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
   #13:
    begin
      if datamzf1.XyReQuery.Active=false then
       begin
        edit1.SetFocus;
        exit;
       end;
      datamzf1.XyReQuery.Locate('yp_id',
      datamzf.YpQuery.FieldByName('yp_id').value,[loPartialKey]);
      datamzf.YpQuery.Close;
      dbedit4.SetFocus;
    end;
   #27:
    begin
      edit1.SetFocus;
      datamzf.YpQuery.active:=false;
    end;
 end ;
end;
procedure TXyMzRefe.Panel2Enter(Sender: TObject);
begin
panel2.Visible:=true;
end;

procedure TXyMzRefe.Panel2Exit(Sender: TObject);
begin
 panel2.Visible:=false;
end;

procedure TXyMzRefe.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 datamzf.YpQuery.active:=false;
 datamzf1.XyReQuery.active:=false;
 XyMzRefe.Release;
end;

procedure TXyMzRefe.DBCheckBox1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    bitbtn1.Enabled:=true;
    bitbtn2.Enabled:=true;
end;

procedure TXyMzRefe.DBCheckBox2MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  bitbtn1.Enabled:=true;
  bitbtn2.Enabled:=true;
end;

procedure TXyMzRefe.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
    bitbtn1.Enabled:=true;
    bitbtn2.Enabled:=true;

end;

procedure TXyMzRefe.bitbtn1Click(Sender: TObject);
var
ms:integer;
begin
 ms:=Application.messagebox('确定修改?','提示',MB_OKCANCEL);
 if ms=1 then
   begin
    datamzf.XyMzValiConnection.BeginTrans;
    try
     datamzf1.XyReQuery.UpdateBatch(arAllChapters);
     datamzf.XyMzValiConnection.CommitTrans;
     bitbtn1.Enabled:=false;
     bitbtn2.Enabled:=false;
    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('您修改的纪录未能成功保存,可能有些数据已经被其他用户修改,请重做!');
      datamzf1.XyReQuery.Active:=false;
      datamzf1.XyReQuery.Active:=true;
      bitbtn1.Enabled:=false;
      bitbtn2.Enabled:=false;
//       end;
    end;
   end;
end;

procedure TXyMzRefe.bitbtn2Click(Sender: TObject);
var
ms:integer;
begin
 ms:=Application.messagebox('放弃修改?','提示',MB_OKCANCEL);
 if ms=1 then
  begin
   datamzf1.XyReQuery.CancelBatch;
   bitbtn1.Enabled:=false;
   bitbtn2.Enabled:=false;
  end;
end;

procedure TXyMzRefe.bitbtn3Click(Sender: TObject);
begin
 if checkbox1.Checked=false then
  begin
   showmessage('只能打印值班药品!');
   exit;
  end;
 if datamzf1.XyReQuery.active=true then
   ZbKcPrin.Preview;
end;

procedure TXyMzRefe.bitbtn4Click(Sender: TObject);
begin
if (MainForm.dbedit1.text='') or
   (MainForm.dbedit1.text=null)then
  begin
   showmessage('请登录!');
     exit;
  end ;
   datamzf1.XyReQuery.Active:=false;
   if checkbox1.Checked=false then
    datamzf1.XyReQuery.Parameters.ParamByName('@mzdayiden').Value :=0
   else
    datamzf1.XyReQuery.Parameters.ParamByName('@mzdayiden').Value :=1;

   try
     datamzf1.XyReQuery.active:=true;
   except
     showmessage('操作失败,可能权限不够!');
   end;
  bitbtn1.Enabled:=false;
  bitbtn2.Enabled:=false;
  bitbtn3.Enabled:=true;
end;

procedure TXyMzRefe.CheckBox1Click(Sender: TObject);
begin
  datamzf1.XyReQuery.active:=false;
  bitbtn1.Enabled:=false;
  bitbtn2.Enabled:=false;
  bitbtn3.Enabled:=false;

end;

end.