frmstaff.pas

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

unit FrmStaff;

interface

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

type
  TFormStaff = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edityid: TEdit;
    Label2: TLabel;
    Editiname: TEdit;
    Label3: TLabel;
    CBysex: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Edityage: TEdit;
    MaskEdit1: TMaskEdit;
    Label6: TLabel;
    MaskEdit2: TMaskEdit;
    Label7: TLabel;
    CBytype: TComboBox;
    Label8: TLabel;
    CByduty: TComboBox;
    Label9: TLabel;
    Editydage: TEdit;
    Panel2: TPanel;
    CBDepartM: TComboBox;
    EditSeek: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    CBseek: TComboBox;
    Panel3: TPanel;
    Label12: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label13: TLabel;
    Ediytc: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button7: TButton;
    BitBtn1: TBitBtn;
    procedure CBDepartMChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CBytypeChange(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure EditydageKeyPress(Sender: TObject; var Key: Char);
    procedure EdityageKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormStaff: TFormStaff;
  k:integer;

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

procedure TFormStaff.CBDepartMChange(Sender: TObject);
begin
   FormStaff.CBDepartM.Text:=FormStaff.CBDepartM.Items.Text;
end;

procedure TFormStaff.FormShow(Sender: TObject);
var
  i,Min,Max,Max2,Min2:integer;
  item1,item2:string;
begin
   FormStaff.Edityid.Text:='Y';

   //type
   FormStaff.CBytype.Clear;

end;

procedure TFormStaff.Button1Click(Sender: TObject);
begin
   if(not Formstaff.CheckBox1.Checked)and(not Formstaff.CheckBox2.Checked)then
   begin
      Application.MessageBox('请设置查询条件','提示',64);
   end
   else
   begin
      if (Formstaff.CBDepartM.Text='')and (Formstaff.CheckBox1.Checked) then
      begin
         Application.MessageBox('查询信息不完整','提示',64);
         exit;
      end;

   end;
end;

procedure TFormStaff.DBGrid1DblClick(Sender: TObject);
begin
   if (k=3) or (k=2) then
   begin

   end;
end;

procedure TFormStaff.Button2Click(Sender: TObject);
begin
   k:=1;
   FormStaff.Button5.Click;
   Application.MessageBox('选择要添加的部门，系统将自动分配工号','提示',MB_OK);
end;

procedure TFormStaff.Button4Click(Sender: TObject);
begin
   if (FormStaff.Edityid.Text='')or(FormStaff.Editiname.Text='')or
      (FormStaff.Edityage.Text='')or(FormStaff.Editydage.Text='')or
      (FormStaff.CBysex.Text='')or(FormStaff.CBytype.Text='')or
      (FormStaff.CByduty.Text='')or(FormStaff.MaskEdit1.Text='')then
         Application.MessageBox('有*号的信息不能为空','错误',MB_OK)
   else
   begin
      if k=1 then
        begin
           if Application.MessageBox('是否确定要添加这个成员','提示',MB_YESNO)=ID_YES then
           begin

           end
           else
           begin
              Application.MessageBox('您已经取消此操作！','提示',MB_OK);
           end;
      end
      else if k=2 then
      begin
         if Application.MessageBox('是否确定要对此职员的修改','提示',MB_YESNO)=ID_YES then
         begin

         end
         else
         begin
            Application.MessageBox('您已取消了此操作','结果',MB_OK);
         end;
      end;
   end;
end;

procedure TFormStaff.Button3Click(Sender: TObject);
begin
   k:=2;
end;

procedure TFormStaff.CBytypeChange(Sender: TObject);
var
   i,Min,Max,max1:integer;
   d,q,s:string;
begin
   if k=1 then
   begin

   end;
end;

procedure TFormStaff.Button5Click(Sender: TObject);
begin
   FormStaff.Edityid.Text:='Y';
   FormStaff.Editiname.Text:='';
   FormStaff.Edityage.Text:='';
   FormStaff.Editydage.Text:='';
   FormStaff.Ediytc.Text:='';
   FormStaff.CBysex.Text:='';
   FormStaff.CBytype.Text:='';
   FormStaff.CByduty.Text:='';
   FormStaff.MaskEdit1.Text:='';
   FormStaff.MaskEdit2.Text:='';
   FormStaff.DBGrid1.ReadOnly:=true;
end;

procedure TFormStaff.Button7Click(Sender: TObject);
begin
   k:=3;
   if Application.MessageBox('是否确定要对此职员的修改,结果将不可挽回','严重警告',MB_YESNO)=ID_YES then
   begin
      if (FormStaff.Edityid.Text='')or(FormStaff.Editiname.Text='')or
      (FormStaff.Edityage.Text='')or(FormStaff.Editydage.Text='')or
      (FormStaff.CBysex.Text='')or(FormStaff.CBytype.Text='')or
      (FormStaff.CByduty.Text='')or(FormStaff.MaskEdit1.Text='')then
         Application.MessageBox('有*号的信息不能为空','错误',MB_OK)
      else
      begin

      end;
   end
   else
   begin
      Application.MessageBox('您已取消此操作','提示',MB_OK);
   end;
end;

procedure TFormStaff.EditydageKeyPress(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 TFormStaff.EdityageKeyPress(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.