medicine.pas

基于DELPHI+SQL的药品管理系统

unit medicine;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids, jpeg, ExtCtrls;

type
  Tmain = class(TForm)
    medicine: TButton;
    sale: TButton;
    find: TButton;
    Database: TDatabase;
    config: TButton;
    report: TButton;
    Button1: TButton;
    Image1: TImage;
    procedure medicineClick(Sender: TObject);
    procedure saleClick(Sender: TObject);
    procedure findClick(Sender: TObject);
    procedure configClick(Sender: TObject);
    procedure reportClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses medicine_form1,medicine_form2,medicine_form3,medicine_form4,medicine_form5,
  Common;

{$R *.DFM}

procedure Tmain.medicineClick(Sender: TObject);
var
   medicine_form1: Tmed_form;
begin
     if gUserInfo.UserPope <> '2' then
     begin
        Application.MessageBox('您没有编辑权限，不能登陆此模块！','提示',mb_ok);
        exit;
     end;
     
     medicine_form1 := Tmed_form.Create(self);
     medicine_form1.ShowModal;
     medicine_form1.Free;
end;

procedure Tmain.saleClick(Sender: TObject);
var
   medicine_form2: Tsale_form;
begin
     if gUserInfo.UserPope <> '2' then
     begin
        Application.MessageBox('您没有编辑权限，不能登陆此模块！','提示',mb_ok);
        exit;
     end;
     
     medicine_form2 := Tsale_form.Create(self);
     medicine_form2.ShowModal;
     medicine_form2.Free;
end;

procedure Tmain.findClick(Sender: TObject);
var
   medicine_form3: Tfind_form;
begin
     medicine_form3 := Tfind_form.Create(self);
     medicine_form3.ShowModal;
     medicine_form3.Free;
end;

procedure Tmain.configClick(Sender: TObject);
var
   medicine_form4: Tconfig_Form;
begin
     if gUserInfo.UserPope <> '2' then
     begin
        Application.MessageBox('您没有编辑权限，不能登陆此模块！','提示',mb_ok);
        exit;
     end;

     medicine_form4 := Tconfig_Form.Create(self);
     medicine_form4.ShowModal;
     medicine_form4.Free;
end;

procedure Tmain.reportClick(Sender: TObject);
var
   medicine_form5: Trep_form;
begin
     medicine_form5 := Trep_form.Create(self);
     medicine_form5.ShowModal;
     medicine_form5.Free;
end;

procedure Tmain.Button1Click(Sender: TObject);
begin
close;
end;

end.