frmmedicin.pas

医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统

unit FrmMedicin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, Mask;

type
  TFormMedicine = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    Label6: TLabel;
    Editid: TEdit;
    Label7: TLabel;
    EditName: TEdit;
    Label8: TLabel;
    EditStandards: TEdit;
    Label9: TLabel;
    EditWholeUnit: TEdit;
    Label10: TLabel;
    EditScatteredUnit: TEdit;
    Label11: TLabel;
    EditInUnit: TEdit;
    Label12: TLabel;
    EditOutUnit: TEdit;
    Label13: TLabel;
    Edit11: TEdit;
    Label14: TLabel;
    EditWSRate: TEdit;
    Label15: TLabel;
    CBSort: TComboBox;
    Label16: TLabel;
    Label17: TLabel;
    EditPing: TEdit;
    Label18: TLabel;
    EditTimeLimit: TEdit;
    Label19: TLabel;
    EditUpLimit: TEdit;
    Label20: TLabel;
    EditDownLimit: TEdit;
    Panel4: TPanel;
    ComboBox2: TComboBox;
    Label21: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    CBCostSort: TComboBox;
    procedure ComboBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure CBSortChange(Sender: TObject);
    procedure EditWSRateKeyPress(Sender: TObject; var Key: Char);
    procedure EditInUnitKeyPress(Sender: TObject; var Key: Char);
    procedure EditOutUnitKeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure EditUpLimitKeyPress(Sender: TObject; var Key: Char);
    procedure EditDownLimitKeyPress(Sender: TObject; var Key: Char);
    procedure EditTimeLimitKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMedicine: TFormMedicine;

implementation
   uses FrmLogin,FrmPSC,FrmUserM,FrmSet,FrmSetSeek,FrmDepartM,FrmStaff;
{$R *.dfm}

procedure TFormMedicine.ComboBox2Change(Sender: TObject);
begin
   FormMedicine.ComboBox2.Text:=FormMedicine.ComboBox2.Items.Text;
   if FormMedicine.ComboBox2.ItemIndex=0 then
   begin
      Application.MessageBox('您可以添加药品信息，选择分类会自动生成编号','提示',MB_OK);
   end
   else if FormMedicine.ComboBox2.ItemIndex=1 then
   begin
      Application.MessageBox('请慎重操作','提示',MB_OK);
   end

end;

procedure TFormMedicine.Button1Click(Sender: TObject);
begin
   //搜索与条件相符的信息
   FormMedicine.Button8.Click;
   if (FormMedicine.Edit1.Text='')and(FormMedicine.Edit2.Text='')
      and(FormMedicine.Edit3.Text='')then
   begin
      Application.MessageBox('查询信息不完整，请重新输入','提示',MB_OK);
   end
   else
   begin

   end;
end;

procedure TFormMedicine.Button8Click(Sender: TObject);
begin
   //编辑框清零
   FormMedicine.Editid.Clear;
   FormMedicine.EditName.Clear;
   FormMedicine.EditStandards.Clear;
   FormMedicine.EditWholeUnit.Clear;
   FormMedicine.EditScatteredUnit.Clear;
   FormMedicine.EditInUnit.Clear;
   FormMedicine.EditOutUnit.Clear;
   FormMedicine.Edit11.Clear;
   FormMedicine.EditWSRate.Clear;
   FormMedicine.EditPing.Clear;
   FormMedicine.EditTimeLimit.Clear;
   FormMedicine.EditDownLimit.Clear;
   FormMedicine.CBSort.Text:='';
   FormMedicine.CBCostSort.Text:='';
end;

procedure TFormMedicine.Button7Click(Sender: TObject);
begin
// 保存信息设置
   if FormMedicine.ComboBox2.Text='' then
      Application.MessageBox('请选择操作方式','提示',MB_OK)//判断编辑框是否为空
   else if (FormMedicine.Editid.Text='')or(FormMedicine.EditName.Text='')or
         (FormMedicine.EditStandards.Text='')or(FormMedicine.EditWholeUnit.Text='')or
         (FormMedicine.EditScatteredUnit.Text='')or(FormMedicine.EditInUnit.Text='')or
         (FormMedicine.EditOutUnit.Text='')or(FormMedicine.Edit11.Text='')or
         (FormMedicine.EditWSRate.Text='')or(FormMedicine.EditPing.Text='')or
         (FormMedicine.EditTimeLimit.Text='')or(FormMedicine.EditUpLimit.Text='')or
         (FormMedicine.EditDownLimit.Text='')or(FormMedicine.CBSort.Text='')or
         (FormMedicine.CBCostSort.Text='')then
         Application.MessageBox('请填写完整所有信息','提示',MB_OK)
   else if FormMedicine.ComboBox2.ItemIndex=0 then //添加信息设置
   begin

   end
   else if FormMedicine.ComboBox2.ItemIndex=1 then//修改信息设置
   begin

   end
   else if FormMedicine.ComboBox2.ItemIndex=2 then //删除信息设置
   begin

   end;
end;

procedure TFormMedicine.CBSortChange(Sender: TObject);
var
  s,q,c:string;
  max,min,max1,i:integer;
begin
   case FormMedicine.CBSort.ItemIndex of//选择不同种类的药添加不同的编号首位
     0:s:='1';
     1:s:='2';
     2:s:='3';
     3:s:='4';
     4:s:='5';
   end;

   //判断药物是否存在，并且自动累加编号

end;

procedure TFormMedicine.EditWSRateKeyPress(Sender: TObject; var Key: Char);
begin
    //限制输入只能是数字和退格键
    if (not (key in['0'..'9']) and (key<>#8)) then
    begin
       MessageDlg('请输入正确数字',mtConfirmation,[mbOK],0);
       Key:=#0;
    end;
end;

procedure TFormMedicine.EditInUnitKeyPress(Sender: TObject; var Key: Char);
var
  AStr:String;
begin
  //限制输入只能是数字和小数点
  AStr:=EditInUnit.Text;
  case key of
    '0'..'9':
      begin
        Key:=Key;
      end;
    '.':
        if pos('.',AStr)<>0 then
          Key:=#0
        else
          Key:=Key;
  else
    Key:=#0;
  end;

end;

procedure TFormMedicine.EditOutUnitKeyPress(Sender: TObject;
  var Key: Char);
var
  AStr:String;
begin
  //限制输入只能是数字和小数点
  AStr:=EditOutUnit.Text;
  case key of
    '0'..'9':
      begin
        Key:=Key;
      end;
    '.':
        if pos('.',AStr)<>0 then
          Key:=#0
        else
          Key:=Key;
  else
    Key:=#0;
  end;

end;

procedure TFormMedicine.Edit11KeyPress(Sender: TObject; var Key: Char);
var
  AStr:String;
begin
  //限制输入只能是数字和小数点
  AStr:=Edit11.Text;
  case key of
    '0'..'9':
      begin
        Key:=Key;
      end;
    '.':
        if pos('.',AStr)<>0 then
          Key:=#0
        else
          Key:=Key;
  else
    Key:=#0;
  end;

end;

procedure TFormMedicine.EditUpLimitKeyPress(Sender: TObject;
  var Key: Char);
begin
    //限制输入只能是数字和退格键
    if (not (key in['0'..'9']) and (key<>#8)) then
    begin
       MessageDlg('请输入真确数字',mtConfirmation,[mbOK],0);
       Key:=#0;
    end;

end;

procedure TFormMedicine.EditDownLimitKeyPress(Sender: TObject;
  var Key: Char);
begin
    //限制输入只能是数字和退格键
     if (not (key in['0'..'9']) and (key<>#8)) then
    begin
       MessageDlg('请输入真确数字',mtConfirmation,[mbOK],0);
       Key:=#0;
    end;

end;

procedure TFormMedicine.EditTimeLimitKeyPress(Sender: TObject;
  var Key: Char);
begin
    //限制输入只能是数字和退格键
    if (not (key in['0'..'9']) and (key<>#8)) then
    begin
       MessageDlg('请输入真确数字',mtConfirmation,[mbOK],0);
       Key:=#0;
    end;

end;

end.