enrol.pas

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

unit enrol;

interface

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

type
  TENrolForm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BTSubmit: TBitBtn;
    BTCancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    XHEdit: TEdit;
    XNEdit: TEdit;
    Label3: TLabel;
    Memo1: TMemo;
    Label4: TLabel;
    Button1: TButton;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure BTSubmitClick(Sender: TObject);
    procedure BTCancelClick(Sender: TObject);
  private
  flags:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ENrolForm: TENrolForm;

implementation
uses md;
{$R *.dfm}

procedure TENrolForm.Button1Click(Sender: TObject);
begin
//通过相关的学号。找到哪学生。因为学号为唯一。所以学号是必要条件。
//当没有学号的同学。不能办理相关的手续。
with  datamd.ADOOrder do
 begin
  close;
  sql.Clear;
  if xhedit.Text<>'' then
  sql.Add('select * from tborder where 学号='''+trim(xhedit.Text)+'''')
  else
  begin
  showmessage('不能为空。请输入相关的数据!');
  xhedit.SetFocus;
  end;
  open;
  if not eof then
  begin
   xnedit.Text:=fieldbyname('姓名').AsString;
   memo1.Enabled:=true;
   btsubmit.Enabled:=true;
   flags:=true;
  end
  else
  showmessage('没有该记录！');
  end;
end;

procedure TENrolForm.BTSubmitClick(Sender: TObject);
begin
//如果当前库中有些记录就可以修改他的有状态是入学还是离校
if flags then
  begin
  datamd.ADOOrder.Close;
  datamd.ADOOrder.SQL.Clear;
  datamd.ADOOrder.SQL.Add('update tborder set 状态='''+'离校'+''',备注='''+memo1.Text+''' where 学号='''+xhedit.Text+'''');
  if messagedlg('请确认输入的数据的有效性',mtconfirmation,[mbYes,mbNo],1)=mryes then
  datamd.ADOOrder.ExecSQL
  else
  showmessage('操作取消');
 end;
end;

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

end.