frmsetseek.pas

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

unit FrmSetSeek;

interface

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

type
  TFormSetSeek = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Editid: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    EditName: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    CBDepartment: TComboBox;
    CBSort: TComboBox;
    Label8: TLabel;
    EditCost: TEdit;
    Label9: TLabel;
    CBDoctor: TComboBox;
    Label10: TLabel;
    EditTime: TEdit;
    CBSex: TComboBox;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CBseek: TComboBox;
    CBssex: TComboBox;
    EditSeek: TEdit;
    CBssort: TComboBox;
    CBsdepartment: TComboBox;
    CBsdoctor: TComboBox;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Panel3: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DateTimePicker1: TDateTimePicker;
    Button7: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    BitBtn1: TBitBtn;

    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CBDepartmentChange(Sender: TObject);
    procedure CBSexChange(Sender: TObject);
    procedure CBDoctorChange(Sender: TObject);
    procedure CBseekChange(Sender: TObject);
    procedure CBsdoctorChange(Sender: TObject);
    procedure CBssexChange(Sender: TObject);
    procedure CBssortChange(Sender: TObject);
    procedure CBsdepartmentChange(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CBSortCloseUp(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure CBDoctorClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSetSeek: TFormSetSeek;
  k:integer;

implementation
    uses FrmLogin,FrmPSC,FrmUserM,FrmSet,FrmDepartM,FrmStaff;
{$R *.dfm}
procedure TFormSetSeek.Button2Click(Sender: TObject);
begin
   k:=1;
   if Application.MessageBox('是否要清除原资料','提示',MB_YESNO)=ID_YES then
     FormSetSeek.Button4.Click;
end;

procedure TFormSetSeek.FormShow(Sender: TObject);
var
  Min,Max,i:integer;
  item:string;
begin
   //挂号科室输入到下拉菜单中
   FormSetSeek.CBDepartment.Clear;

   //挂号类型输入到下拉菜单中
   FormSetSeek.CBSort.Clear;

   //查找中的挂号科室
   FormSetSeek.CBsDepartment.Clear;

   //查找中的挂号类型
   FormSetSeek.CBsSort.Clear;

   //查找当天

end;

procedure TFormSetSeek.Button1Click(Sender: TObject);
var
  a,b:string;
begin
   a:=datetostr(FormSetSeek.DateTimePicker1.DateTime+1)+'  '+'23:59:59';//定义当天最大时间
   b:=datetostr(FormSetSeek.DateTimePicker1.DateTime)+'  '+'00:00:00';//定义当天最小时间
   //查询
   if (FormSetSeek.CheckBox1.Checked)and(not FormSetSeek.CheckBox2.Checked) then //设置查询条件,
   begin
      if not(FormSetSeek.CBseek.Text='')then
      begin


      end
      else
         Application.MessageBox('您尚未选择查找方式','提示',MB_OK);
   end
   else if FormSetSeek.CheckBox2.Checked then
   begin


   end
   else
      Application.MessageBox('您尚未选择查找方式','提示',MB_OK);
end;

procedure TFormSetSeek.Button3Click(Sender: TObject);
begin
   K:=2;
   if Application.MessageBox('是否要清除原资料','提示',MB_YESNO)=ID_YES then
     FormSetSeek.Button4.Click;
end;

procedure TFormSetSeek.Button4Click(Sender: TObject);
begin
   //清零
   FormSetSeek.EditName.Clear;
   FormSetSeek.EditCost.Clear;
   FormSetSeek.EditTime.Clear;
   FormSetSeek.CBDepartment.Text:='';
   FormSetSeek.CBSort.Text:='';
   FormSetSeek.CBDoctor.Text:='';
   FormSetSeek.CBSex.Text:='';
   FormSetSeek.CBssex.Text:='';
   FormSetSeek.CBssort.Text:='';
   FormSetSeek.CBsdepartment.Text:='';
   FormSetSeek.CBsdoctor.Text:='';
   FormSetSeek.EditSeek.Clear;
end;

procedure TFormSetSeek.Button5Click(Sender: TObject);
begin
   if (FormSetSeek.Editid.Text='')or(FormSetSeek.EditName.Text='')or
      (FormSetSeek.EditCost.Text='')or(FormSetSeek.EditTime.Text='')or
      (FormSetSeek.CBDepartment.Text='')or(FormSetSeek.CBSort.Text='')or
      (FormSetSeek.CBDoctor.Text='')or(FormSetSeek.CBSex.Text='')then
      Application.MessageBox('请完整您的信息','提示',MB_OK)
   else if k=1 then //选择修改时
   begin
      if Application.MessageBox('是否要修改','提示',MB_YESNO)=ID_YES then
      begin

          Application.MessageBox('恭喜您，操作成功','结果',MB_OK);
      end
      else
         Application.MessageBox('您已取消了操作','结果',MB_OK);
   end
   else if k=2 then//选择删除时
   begin
      if Application.MessageBox('是否要修改','提示',MB_YESNO)=ID_YES then
      begin

          Application.MessageBox('恭喜您，操作成功','结果',MB_OK);
      end
      else
         Application.MessageBox('您已取消了操作','结果',MB_OK);
   end
   else
       Application.MessageBox('请选择操作类型','结果',MB_OK);
end;

procedure TFormSetSeek.CBDepartmentChange(Sender: TObject);
begin
   FormSetSeek.CBDepartment.Text:=FormSetSeek.CBDepartment.Items.Text;
end;

procedure TFormSetSeek.CBSexChange(Sender: TObject);
begin
   FormSetSeek.CBSex.Text:=FormSetSeek.CBSex.Items.Text;
end;

procedure TFormSetSeek.CBDoctorChange(Sender: TObject);
begin
   FormSetSeek.CBDoctor.Text:=FormSetSeek.CBDoctor.Items.Text;
end;

procedure TFormSetSeek.CBseekChange(Sender: TObject);
begin
   //分别是当选择不同的查找条件时，相应编辑文本的显示
   case FormSetSeek.CBseek.ItemIndex of
   0,5:begin
        FormSetSeek.CBssex.Visible:=false;
        FormSetSeek.CBssort.Visible:=false;
        FormSetSeek.CBsdepartment.Visible:=false;
        FormSetSeek.CBsdoctor.Visible:=false;
        FormSetSeek.EditSeek.Visible:=true;
     end;
   1:begin
        FormSetSeek.CBssex.Visible:=true;
        FormSetSeek.CBssort.Visible:=false;
        FormSetSeek.CBsdepartment.Visible:=false;
        FormSetSeek.CBsdoctor.Visible:=false;
        FormSetSeek.EditSeek.Visible:=false;
     end;
   2:begin
        FormSetSeek.CBssex.Visible:=false;
        FormSetSeek.CBssort.Visible:=false;
        FormSetSeek.CBsdepartment.Visible:=true;
        FormSetSeek.CBsdoctor.Visible:=false;
        FormSetSeek.EditSeek.Visible:=false;
     end;
   3:begin
        FormSetSeek.CBssex.Visible:=false;
        FormSetSeek.CBssort.Visible:=true;
        FormSetSeek.CBsdepartment.Visible:=false;
        FormSetSeek.CBsdoctor.Visible:=false;
        FormSetSeek.EditSeek.Visible:=false;
     end;
   4:begin
        FormSetSeek.CBssex.Visible:=false;
        FormSetSeek.CBssort.Visible:=false;
        FormSetSeek.CBsdepartment.Visible:=false;
        FormSetSeek.CBsdoctor.Visible:=true;
        FormSetSeek.EditSeek.Visible:=false;
     end;
   end;
   FormSetSeek.Button4.Click;

end;

procedure TFormSetSeek.CBsdoctorChange(Sender: TObject);
begin
   FormSetSeek.CBsdoctor.Text:=FormSetSeek.CBsdoctor.Items.Text;
end;

procedure TFormSetSeek.CBssexChange(Sender: TObject);
begin
   FormSetSeek.CBssex.Text:=FormSetSeek.CBssex.Items.Text;
end;

procedure TFormSetSeek.CBssortChange(Sender: TObject);
begin
   formSetSeek.CBssort.Text:=FormSetSeek.CBssort.Items.Text;
end;

procedure TFormSetSeek.CBsdepartmentChange(Sender: TObject);
begin
   FormSetSeek.CBsdepartment.Text:=FormSetSeek.CBsdepartment.Items.Text;
end;

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

   end;

end;

procedure TFormSetSeek.Timer1Timer(Sender: TObject);
begin
   FormSetSeek.EditTIme.Text:=FormatDateTime('yyyy-mm-dd',now())+'  '+FormatDateTime('hh:mm:ss',now());

end;

procedure TFormSetSeek.CBSortCloseUp(Sender: TObject);
begin
   FormSetSeek.Timer2.Enabled:=true;
end;

procedure TFormSetSeek.Timer2Timer(Sender: TObject);
begin
    if  (FormSetSeek.CBDepartment.Text<>'')and(FormSetSeek.CBSort.Text<>'')then
      FormSetSeek.Button7.Click;
end;

procedure TFormSetSeek.CBDoctorClick(Sender: TObject);
begin
   FormSetSeek.Timer2.Enabled:=false;
end;

end.