ypomenm.pas

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

unit YpOmenM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ComCtrls, ExtCtrls, ToolWin, StdCtrls, Grids, DBGrids, Spin;

type
  TYpOmen = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar5: TToolBar;
    Panel3: TPanel;
    ToolBar4: TToolBar;
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel4: TPanel;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Panel2: TPanel;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YpOmen: TYpOmen;

implementation
uses datamz1;
{$R *.DFM}


procedure TYpOmen.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 datamzf1.LifeOmenQuery.Active:=false;
 datamzf1.KcOmenQuery.active:=false;
 YpOmen.Release;
end;

procedure TYpOmen.Button1Click(Sender: TObject);
begin
 if radiobutton1.Checked=true then
  begin
   datamzf1.KcOmenQuery.Active:=false;
    try
      datamzf1.KcOmenQuery.Active:=true;
    except
      showmessage('操作失败,可能权限不够!');
    end;
  end
 else
  begin
    datamzf1.LifeOmenQuery.Active:=false;
    datamzf1.LifeOmenQuery.Parameters.ParamByName('Lday').value:=
      SpinEdit1.value;
    try
      datamzf1.LifeOmenQuery.Active:=true;
    except
      showmessage('操作失败,可能权限不够!');
    end;
  end;
end;

procedure TYpOmen.RadioButton1Click(Sender: TObject);
begin
 datamzf1.LifeOmenQuery.Active:=false;
 datamzf1.KcOmenQuery.active:=false;
 toolbar5.Visible:=true;
 if radiobutton1.Checked=false then
  begin
   radiobutton2.Checked:=true;
   dbgrid2.Visible:=true;
   dbgrid1.Visible:=false;
   toolbar5.Visible:=true;
  end
 else
  begin
   radiobutton2.Checked:=false;
   dbgrid1.Visible:=true;
   dbgrid2.Visible:=false;
   toolbar5.Visible:=false;
  end;
end;

procedure TYpOmen.RadioButton2Click(Sender: TObject);
begin
 datamzf1.LifeOmenQuery.Active:=false;
 datamzf1.KcOmenQuery.active:=false;
 toolbar5.Visible:=true;
 if radiobutton2.Checked=false then
  begin
   radiobutton1.Checked:=true;
   dbgrid1.Visible:=true;
   dbgrid2.Visible:=false;
   toolbar5.Visible:=false ;
  end
 else
  begin
   radiobutton1.Checked:=false;
   dbgrid2.Visible:=true;
   dbgrid1.Visible:=false;
   toolbar5.Visible:=true;
  end;
end;

end.