checkin.pas

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

unit checkin;

interface

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

type
  TPLForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    XNEdit: TEdit;
    XPComboBox: TComboBox;
    PGEdit: TEdit;
    ZGMCComboBox: TComboBox;
    ZPRComboBox: TComboBox;
    Memo1: TMemo;
    Bevel1: TBevel;
    Image1: TImage;
    BTSubmit: TButton;
    BTCancel: TButton;
    Label8: TLabel;
    GoodEdit: TEdit;
    Label9: TLabel;
    XHEdit: TEdit;
    Label10: TLabel;
    CheckBox1: TCheckBox;
    TimeEdit: TEdit;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure BTCancelClick(Sender: TObject);
    procedure BTSubmitClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PLForm: TPLForm;

implementation
uses md;
{$R *.dfm}

procedure TPLForm.FormCreate(Sender: TObject);
begin
//自动获得值班人的姓名；通过查找员工表中的职位名称为保安的记录
with datamd.ADOEmpleer do
begin
close;
sql.Clear;
sql.Add('select * from empleer where 职位='''+'保安'+'''');
open;
while not eof do
begin
ZpRcombobox.Items.Add(fieldbyname('姓名').AsString);
next;
end;
end;
//获得当前出楼的时间
timeedit.Text:=datetimetostr(now);
end;

procedure TPLForm.BTCancelClick(Sender: TObject);
begin
close;
end;

procedure TPLForm.BTSubmitClick(Sender: TObject);
begin
if (xnedit.Text<>'') and (goodedit.Text<>'') and (pgedit.Text<>'') and (timeedit.Text<>'') then
begin
//在成员库中查询是否该学生的记录
with datamd.ADOOrder do
begin
  close;
  sql.Clear;
    if checkbox1.Checked then
    sql.Add('select * from tborder where 姓名='''+xnedit.Text+''' and '+'学号='''+xhedit.Text+'''')
    else //当有同班同学同名时。就要查询相应的学号
    sql.Add('select * from tborder where 姓名='''+xnedit.Text+'''' );
    open;
       if recordcount=1 then
       begin
         with datamd.ADOEnrol do  //在登记表中加入记录
         begin
         close;
         sql.Clear;
         sql.Add('select * from tbenrol');
         open;
         append;
         fieldbyname('姓名').AsString:=xnedit.Text;
         fieldbyname('性别').AsString:=xpcombobox.Text;
         fieldbyname('班级').AsString:=pgedit.Text;
         fieldbyname('证件名称').AsString:=ZGMCCombobox.Text;
         fieldbyname('出楼货物').AsString:=goodedit.Text;
         fieldbyname('出楼时间').AsDateTime:=strtodatetime(timeedit.Text);
         fieldbyname('值班人').AsString:=zprcombobox.Text;
         fieldbyname('备注').AsVariant:=memo1.Text;
         if messagedlg('是否将当前的数据输入到数据库中',mtconfirmation,[mbYes,mbNo],1)=mryes then
          post
          else
          cancel;
         end;
       end
        else
         showmessage('没有相应的记录!');
      end;
   end
else
  showmessage('请输入相应的选项');
end;

procedure TPLForm.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
xhedit.Enabled:=true
else
xhedit.Enabled:=false;
end;

end.