frmsetdoctor.pas

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

unit FrmSetDoctor;

interface

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

type
  TFormSetD = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    EditId: TEdit;
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    Button5: TButton;
    Edit3: TEdit;
    Button6: TButton;
    Timer1: TTimer;
    ComboBox2: TComboBox;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSetD: TFormSetD;
  Min,Max,Max1,i:integer;
  item,s,q:string;

implementation

{$R *.dfm}

procedure TFormSetD.Button4Click(Sender: TObject);
begin
    //自动生成编号


end;

procedure TFormSetD.Button5Click(Sender: TObject);
begin
   //把科室名放入下拉菜单中
   FormSetd.ComboBox1.Clear;

end;

procedure TFormSetD.Button1Click(Sender: TObject);
begin
   //筛选与科室相同的员工信息

end;

procedure TFormSetD.Button6Click(Sender: TObject);
begin
   //显示最新的值班医生信息表

end;

procedure TFormSetD.Timer1Timer(Sender: TObject);
begin
   FormSetD.Edit3.Text:=Formatdatetime('yyyy-mm-dd',now());//定时刷新当天时间
end;

procedure TFormSetD.FormShow(Sender: TObject);
begin
   FormSetD.Button5.Click;
   FormSetD.Button4.Click;
   FormSetD.Button6.Click;
end;

procedure TFormSetD.Button2Click(Sender: TObject);
begin
   //设置各科室值班医生

   FormSetD.Button6.Click;
   FormSetD.Button4.Click;
end;

end.