mzkcm.~pas

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

unit MzKcM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, Mask, StdCtrls, DBCGrids, ExtCtrls, Buttons,comobj,
  adodb,db, ComCtrls, ToolWin, ImgList, Grids, DBGrids;
type
  TMzKc = class(TForm)
    Panel7: TPanel;
    Panel14: TPanel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    ListBox14: TDBLookupListBox;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    Panel5: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    Panel4: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Panel14Exit(Sender: TObject);
    procedure ListBox14KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bitbtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MzKc: TMzKc;

implementation

{$R *.DFM}
uses datamz1;
procedure TMzKc.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if  (key=#13) and (length(trim(edit1.text))>0) then
   begin
    with datamzf1.YpQuery1 do
     begin
      active:=false;
      Parameters.ParamByName('@YpCode').Value := edit1.text;
      try
       open;
       panel14.Visible:=true;
       Listbox14.SetFocus;
      except
       showmessage('文件不能打开!');
      end;
     end;
    end;

end;

procedure TMzKc.Panel14Exit(Sender: TObject);
begin
 panel14.Visible:=false;

end;

procedure TMzKc.ListBox14KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
   #13:
    begin
      if datamzf1.KcQuery.Active=false then
       begin
        edit1.SetFocus;
        exit;
       end;
      datamzf1.KcQuery.Locate('yp_id',
      datamzf1.YpQuery1.FieldByName('yp_id').value,[loPartialKey]);
      datamzf1.YpQuery1.Active:=false;
      edit1.SetFocus;
    end;
   #27:
    begin
      edit1.SetFocus;
      datamzf1.YpQuery1.active:=false;
    end;
 end ;

end;

procedure TMzKc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 datamzf1.YpQuery1.active:=false;
 datamzf1.KcQuery.active:=false;
 MzKc.release;
end;

procedure TMzKc.bitbtn4Click(Sender: TObject);
begin
   datamzf1.KcQuery.Active:=false;

   if RadioButton1.Checked=true then
    datamzf1.KcQuery.Parameters.ParamByName('@kc_iden').Value :=0;

   if RadioButton2.Checked=true then
    datamzf1.KcQuery.Parameters.ParamByName('@kc_iden').Value :=1;

   if RadioButton3.Checked=true then
    datamzf1.KcQuery.Parameters.ParamByName('@kc_iden').Value :=2;

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

end.