frmdepartm.~pas

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

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}
unit FrmDepartM;

interface

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

type
  TDepartmentManager = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    CBApartName: TComboBox;
    BtnSeek: TButton;
    Label2: TLabel;
    CBManager: TComboBox;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    EditKid: TEdit;
    laber: TLabel;
    Editkname: TEdit;
    Label4: TLabel;
    Editkduty: TEdit;
    Label5: TLabel;
    Edituplimit: TEdit;
    Editdownlimit: TEdit;
    Label6: TLabel;
    Panel2: TPanel;
    Button1: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit1: TEdit;
    Button7: TButton;
    procedure CBManagerChange(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CBApartNameChange(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure EditdownlimitKeyPress(Sender: TObject; var Key: Char);
    procedure EdituplimitKeyPress(Sender: TObject; var Key: Char);
    procedure EditdownlimitChange(Sender: TObject);
    procedure EdituplimitChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DepartmentManager: TDepartmentManager;

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

procedure TDepartmentManager.CBManagerChange(Sender: TObject);
var
  s,k,n,h,c:String;
   i:integer;
begin
    //选择添加时自动添加编号
    DepartmentManager.CBManager.Text:=DepartmentManager.CBManager.Items.Text;
    if DepartmentManager.CBManager.ItemIndex=0 then
    begin
       DepartmentManager.Button7.Click;
       Application.MessageBox('添加你的部门资料','提示',MB_OK);
       s:='K'+FormatDateTime('yyyymmdd',now());//取当天时间

    end
    else if DepartmentManager.CBManager.ItemIndex=1 then//选择修改功能
    begin
       DepartmentManager.Button7.Click;
       Application.MessageBox('请你在表单上直接选择要更改的科室','提示',MB_OK);
    end
    else if DepartmentManager.CBManager.ItemIndex=2 then//选择删除功能
    begin
       DepartmentManager.Button7.Click;
       Application.MessageBox('请慎重删除','提示',MB_OK);
    end
    else
    begin
       Application.MessageBox('没有选择操作类型','提示',64);
    end;
end;

procedure TDepartmentManager.DBGrid1DblClick(Sender: TObject);
begin//双击DBGRID上的某行，相应行的信息添加到编辑框中
   if (DepartmentManager.CBManager.ItemIndex=1) or (DepartmentManager.CBManager.ItemIndex=2) then
      begin

      end
   else
      Application.MessageBox('非法操作','错误',MB_OK);
end;

procedure TDepartmentManager.Button1Click(Sender: TObject);
var
  item:string;
  i,Min,Max:integer;
begin
   if DepartmentManager.CBManager.ItemIndex=0 then//选择添加功能后注册信息
   begin

   end
   else if DepartmentManager.CBManager.ItemIndex=1 then//选择修改功能
   begin //判断编辑框是否为空
      if  (DepartmentManager.EditKid.Text='')or
          (DepartmentManager.Editkduty.Text='')or
          (DepartmentManager.Editdownlimit.Text='')or
          (DepartmentManager.Edituplimit.Text='')or
          (DepartmentManager.Editkname.Text='')then
      begin
         Application.MessageBox('信息不能为空','错误',64);
      end
      else if  Application.MessageBox('您确定要修改么？','提示',MB_YESNO)=ID_YES then
      begin

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

procedure TDepartmentManager.Button7Click(Sender: TObject);
var
  j,Mini,Maxi:integer;
  item1:string;
begin//取消设置，对编辑框清零

   //文本框清零
   DepartmentManager.EditKid.Clear;
   DepartmentManager.Editkname.Clear;
   DepartmentManager.Editkduty.Clear;
   DepartmentManager.Edituplimit.Clear;
   DepartmentManager.Editdownlimit.Clear;
   DepartmentManager.CBApartName.Text:='';
   DepartmentManager.CBManager.Text:='';
   DepartmentManager.CBApartName.Clear;

end;

procedure TDepartmentManager.FormShow(Sender: TObject);
var
  j,Mini,Maxi:integer;
  item1:string;
begin //初始设置，把信息加入到下拉菜单中

end;

procedure TDepartmentManager.CBApartNameChange(Sender: TObject);
begin
    DepartmentManager.CBApartName.Text:=DepartmentManager.CBApartName.Items.Text;
end;

procedure TDepartmentManager.Button6Click(Sender: TObject);
begin //文本框清零
   DepartmentManager.EditKid.Clear;
   DepartmentManager.Editkname.Clear;
   DepartmentManager.Editkduty.Clear;
   DepartmentManager.Edituplimit.Clear;
   DepartmentManager.Editdownlimit.Clear;
end;

procedure TDepartmentManager.Button3Click(Sender: TObject);
var
  j,Mini,Maxi:integer;
  item1:string;
begin //判断保存信息是的条件
   if DepartmentManager.CBManager.ItemIndex=2 then //选择删除条件
      begin
         if DepartmentManager.EditKid.Text='' then
         begin
            Application.MessageBox('没有修改目标，无法完成修改','结果',64);
         end
         else  if Application.MessageBox('请慎重您的操作,如果不慎将导致无法恢复的错误','严重警告',MB_YESNO)=ID_YES then
         begin

            Application.MessageBox('删除成功','结果',MB_OK);
            DepartmentManager.EditKid.Clear;
            DepartmentManager.Editkname.Clear;
            DepartmentManager.Editkduty.Clear;
            DepartmentManager.Edituplimit.Clear;
            DepartmentManager.Editdownlimit.Clear;
            DepartmentManager.CBApartName.Text:='';
            DepartmentManager.CBManager.Text:='';
        end;
        //同步更新数据库，并且输出
        DepartmentManager.CBApartName.Clear;

    end
    else
    begin
       Application.MessageBox('请选择操作类型','提示',64);
    end;
end;

procedure TDepartmentManager.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 TDepartmentManager.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 TDepartmentManager.EditdownlimitChange(Sender: TObject);
begin//对篇辑框输入的限制
   if length(DepartmentManager.Editdownlimit.Text)>4 then
   begin
      messageDlg('不能长于四位',mtconfirmation,[mbok],0);
      DepartmentManager.Editdownlimit.Text:='';
   end;
end;

procedure TDepartmentManager.EdituplimitChange(Sender: TObject);
begin //对篇辑框输入的限制
   if length(DepartmentManager.Edituplimit.Text)>4 then
   begin
      messageDlg('不能长于四位',mtconfirmation,[mbok],0);
      DepartmentManager.Edituplimit.Text:='';
   end;
end;

end.