gzdagl_department_.pas

医院管理系统的开发 适合学生做毕业设计

unit gzdagl_department_;

interface

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

type
  TForm_department = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit_no: TEdit;
    Edit_name: TEdit;
    Edit_man: TEdit;
    BTadddepartment: TBitBtn;
    BTcanceldepartment: TBitBtn;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    MaskEdit_yusuan: TMaskEdit;
    Label5: TLabel;
    DBNavigator1: TDBNavigator;
    procedure Edit_noChange(Sender: TObject);
    procedure BTadddepartmentClick(Sender: TObject);
    procedure BTcanceldepartmentClick(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_department: TForm_department;

implementation

uses gzdagl_DM_;

{$R *.dfm}

procedure TForm_department.Edit_noChange(Sender: TObject);
begin
  if length(edit_no.Text)>0 then
  //依据输入字符串长度设置enabled
    BTadddepartment.Enabled:=true
  else
    BTadddepartment.Enabled:=false;
end;

procedure TForm_department.BTadddepartmentClick(Sender: TObject);
begin
//判断科室编号是否已经存在
  DMgzdagl.ADOTdepartment.Open;
  if DMgzdagl.ADOTdepartment.Locate('科室编号',edit_no.text,[])=true then
     showmessage('科室编号已经存在，请重新输入！')
   else
     with DMgzdagl.ADOTdepartment do
       begin
         append;
         DMgzdagl.ADOTdepartment.FieldByName('科室编号').AsString:=edit_no.Text;
         DMgzdagl.ADOTdepartment.FieldByName('科室名称').AsString:=edit_name.Text;
         DMgzdagl.ADOTdepartment.FieldByName('科室主任').AsString:=edit_man.Text;
         DMgzdagl.ADOTdepartment.FieldByName('科室预算').Asstring:=maskEdit_yusuan.Text;
         post;
         refresh;
         messagedlg('录入成功！',mtinformation,[mbok],0);
         form_department.BTcanceldepartment.OnClick(self);
       end;  
end;

procedure TForm_department.BTcanceldepartmentClick(Sender: TObject);
begin
//清空输入框
edit_no.Clear;
edit_name.Clear;
edit_man.Clear;
maskedit_yusuan.Clear;
edit_no.SetFocus;//获得焦点
end;


end.