frmset.pas

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

unit FrmSet;

interface

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

type
  TFormSet = class(TForm)
    BtnOK: TButton;
    BtnCancel: TButton;
    Button1: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Button2: TButton;
    CBSort: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    CBApartment: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    CBDoctor: TComboBox;
    Label6: TLabel;
    Editid: TEdit;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label7: TLabel;
    EditName: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    EditAge: TEdit;
    Label11: TLabel;
    EditTIme: TEdit;
    Panel3: TPanel;
    Label12: TLabel;
    EditGet: TEdit;
    Label13: TLabel;
    EditChange: TEdit;
    Label14: TLabel;
    CBsex: TComboBox;
    EditSid: TEdit;
    Button3: TButton;
    Editcost: TEdit;
    Timer1: TTimer;
    Button4: TButton;
    Timer2: TTimer;
    procedure FormShow(Sender: TObject);
    procedure CBApartmentChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure EditGetKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure EditGetKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CBSortCloseUp(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure CBDoctorClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSet: TFormSet;
  i:integer;

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



procedure TFormSet.FormShow(Sender: TObject);
var
  Min,Max,Max1,i:integer;
  item,s,q:string;
begin
   FormSet.EditSid.Text:='B2007';
    //自动生成编号

   s:='G'+FormatDateTime('yyyymmdd',now());

   //刷新数据库
   //挂号科室放入下拉菜单中
   FormSet.CBApartment.Clear;

   //type放入下拉菜单中
   FormSet.CBSort.Clear;

end;

procedure TFormSet.CBApartmentChange(Sender: TObject);
begin
   FormSet.CBApartment.Text:=FormSet.CBApartment.Items.Text;
end;

procedure TFormSet.Button1Click(Sender: TObject);
begin
   //在条件满足条件下，把挂号信息保存起来
   if (FormSet.Editsid.Text='')or(FormSet.EditName.Text='')or
      (FormSet.EditTIme.Text='')or(FormSet.CBSort.Text='')or
      (FormSet.CBApartment.Text='')or(FormSet.CBDoctor.Text='')then
      Application.MessageBox('请输入完整挂号信息','提示',MB_OK)
   else if Application.MessageBox('是否注册','提示',MB_YESNO)=ID_YES then
   begin

   end
   else
      Application.MessageBox('您已取消注册，请返回','提示',MB_OK);
end;

procedure TFormSet.Button3Click(Sender: TObject);
begin
   //清零
   FormSet.CBSort.Text:='';
   FormSet.CBApartment.Text:='';
   FormSet.CBDoctor.Text:='';
   FormSet.CBsex.Text:='';
   FormSet.EditName.Clear;
   FormSet.EditAge.Clear;
   FormSet.EditTIme.Clear;
   FormSet.EditGet.Clear;
   FormSet.EditChange.Clear;
   FormSet.Editcost.Clear;
   FormSet.EditSid.Text:='B2007';
end;

procedure TFormSet.EditGetKeyPress(Sender: TObject; var Key: Char);
var
  AStr:String;
begin
//只能输入数字和小数点
  AStr:=EditGet.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 TFormSet.Timer1Timer(Sender: TObject);
begin
   //刷新时间
   FormSet.EditTIme.Text:=FormatDateTime('yyyy-mm-dd',now())+'  '+FormatDateTime('hh:mm:ss',now());
end;

procedure TFormSet.Button4Click(Sender: TObject);
var
   Min,Max:integer;
   item,a:string;
begin
   //筛选当天本科室值班医生
   if (FormSet.CBSort.Text<>'')and(FormSet.CBApartment.Text<>'')then
   begin

   end;

end;

procedure TFormSet.EditGetKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if FormSet.Editcost.Text<>'' then
      FormSet.EditChange.Text:=floattostr(strtofloat(FormSet.EditGet.Text)-strtofloat(FormSet.Editcost.Text));
end;

procedure TFormSet.CBSortCloseUp(Sender: TObject);
begin
   FormSet.Timer2.Enabled:=true;
end;

procedure TFormSet.Timer2Timer(Sender: TObject);
begin
   FormSet.Button4.Click;
end;

procedure TFormSet.CBDoctorClick(Sender: TObject);
begin
   FormSet.Timer2.Enabled:=false;
end;

end.