registe.pas

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

unit registe;

interface

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

type
  TRegForm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    XHEdit: TEdit;
    XPComboBox: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label4: TLabel;
    PSEdit: TEdit;
    XNEdit: TEdit;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RegForm: TRegForm;

implementation
uses md;

{$R *.dfm}
procedure IsEditEmpty(Sender:Tobject);
begin
if trim((sender as Tedit).Text)='' then
begin
showmessage('相应的选项不能为空!');
exit;
(sender as Tedit).SetFocus;
end;
end;

procedure TRegForm.Button1Click(Sender: TObject);
var
i:integer;
begin
with DataMd.ADOOrder do
begin
close;
sql.Clear;
iseditempty(xhedit);
iseditempty(xnedit);
iseditempty(psedit);
if trim(xhedit.Text)<>'' then
     if trim(xnedit.Text)<>'' then
        if trim(psedit.Text)<>'' then
           begin
           sql.Add('select * from tborder where 学号='''+trim(xhedit.Text)+'''');
           sql.Add(' and 姓名='''+trim(xnedit.text)+''''+' and 寝室号='''+trim(psedit.Text)+'''' );
           open;
           if recordcount>0 then
           begin
             with datamd.ADORegiste do
             begin
              close;
              sql.Clear;
              sql.Add('select * from registe where 学号='''+trim(xhedit.Text)+'''');
              sql.Add(' and 姓名='''+trim(xnedit.text)+''''+' and 寝室号='''+trim(psedit.Text)+'''' );
              open;
              if not eof then
              begin
                edit;
                for i:=0 to fields.Count-1 do
                begin
                   if trim(xpcombobox.Text)=fields[i].FieldName then
                   begin
                   fieldbyname(fields[i].FieldName).AsString:='已注册';
                   post;
                   showmessage('注册成功');
                   end;
                end;
              end
              else
                begin
                 append;
                 fieldbyname('学号').AsString:=xhedit.Text;
                 fieldbyname('姓名').AsString:=xnedit.Text;
                 fieldbyname('寝室号').AsString:=psedit.Text;
                 for i:=0 to fields.Count-1 do
                   begin
                   if trim(xpcombobox.Text)=fields[i].FieldName then
                   fieldbyname(fields[i].fieldname).AsString:='已注册';
                   end;
                   if messagedlg('请确认是否要注册？是的话请按OK',mtconfirmation,[mbYes,mbNO],0)=mryes then
                   post
                   else
                   cancel;
               end;
           end;
         end
         else
         showmessage('没有该生记录')
      end;
  end;
end;

procedure TRegForm.Button2Click(Sender: TObject);
begin
close;
end;

end.