empleer.pas

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

unit Empleer;

interface

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

type
  TEmpleerForm = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox4Select(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EmpleerForm: TEmpleerForm;

implementation
uses md;
{$R *.dfm}
//在某些编加框中,只能输入数字
procedure TEmpleerForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  Not(Key in ['0'..'9','.',Char(VK_BACK),Char(VK_RETURN)]) then
     begin
       Key:=#0;
     end;
 if (Key='.') and (Pos('.',Trim((sender as tedit).Text))<>0) then
     begin
        Key:=#0;
        (sender as tedit).SetFocus;
     end;
end;
//通过查询.自动获得相应的公寓楼房数
procedure TEmpleerForm.ComboBox2DropDown(Sender: TObject);
var
I:integer;
begin
with datamd.ADOhouse do
begin
close;
sql.Clear;
sql.Add('select * from house');
open;
combobox2.Clear;
if RecordCount>0 then
   begin
     first;
     for i:=0 to RecordCount-1 do
     begin
     combobox2.Items.Add(fieldbyname('楼房号').AsString);
     next;
     end;
   end
else
showmessage('没有记录，请管理员录入数据信息');
end;
end;
//通过查询,自动获得相应的楼层数
procedure TEmpleerForm.ComboBox3DropDown(Sender: TObject);
var
I:integer;
begin
 with datamd.ADOhouse do
begin
close;
sql.Clear;
sql.Add('select * from house where 楼房号='''+Trim(combobox2.Text)+'''');
open;
combobox3.Clear;
if RecordCount>0 then
   begin
     for i:=1 to strtoint(FieldByName('楼层数').AsString) do
       combobox3.Items.Add('层'+IntToStr(i));
   end
else
showmessage('没有记录，请管理员录入数据信息');
end;
end;
//函数是用来判断相应的编辑框是否为空
Function TryEmpty(Sender:Tobject):boolean;
begin
If Trim((sender as Tedit).Text)='' then
  begin
  ShowMessage('当前选项不能为空');
  result:=true;
  (Sender as Tedit).SetFocus;
  End
else
  result:=false;
end;
//把数据写入到数据库中去
procedure TEmpleerForm.BitBtn1Click(Sender: TObject);
begin
With DataMD.ADOEmpleer do
begin
  close;
  sql.Clear;
  sql.Add('select * from Empleer');
  open;
   if not locate('员工号',edit1.Text,[]) then
   begin
    if Not TryEmpty(Edit1) then
     if not TryEmpty(Edit2) then
   begin
     Append;
     FieldByName('员工号').AsString:=edit1.Text;
     FieldByName('姓名').AsString:=Edit2.Text;
     FieldByName('性别').AsString:=Combobox1.Text;
     FieldByName('房号').AsString:=ComboBox2.Text;
     FieldByName('楼层').AsString:=ComboBox3.Text;
     FieldByName('职位').AsString:=ComboBox4.Text;
     FieldByName('家庭住址').AsString:=Edit3.Text;
     FieldByName('联系方式').AsString:=Edit4.Text;
     FieldByName('备注').AsVariant:=memo1.Text;
     If MessageDlg('请确认些记录是否正确',mtconfirmation,[mbYes,mbNo],0)=mrYes then
      post
     else
      cancel;
   end
   else
   cancel;
  end
  else
  showmessage('此员工已经存在');
  end;
end;

procedure TEmpleerForm.BitBtn2Click(Sender: TObject);
begin
close;
end;



procedure TEmpleerForm.ComboBox4Select(Sender: TObject);
begin
if combobox4.Text='保安' then
combobox3.Text:='';
end;

end.