unit enrol;

interface

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

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;
    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
//通過相關(guān)的學號。找到哪學生。因為學號為唯一。所以學號是必要條件。
//當沒有學號的同學。不能辦理相關(guān)的手續(xù)。
with  datamd.ADOOrder do
 begin
  close;
  sql.Clear;
  if xhedit.Text<>'' then
  sql.Add('select * from tborder where 學號='''+trim(xhedit.Text)+'''')
  else
  begin
  showmessage('不能為空。請輸入相關(guān)的數(shù)據(jù)!');
  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
//如果當前庫中有些記錄就可以修改他的有狀態(tài)是入學還是離校
if flags then
  begin
  datamd.ADOOrder.Close;
  datamd.ADOOrder.SQL.Clear;
  datamd.ADOOrder.SQL.Add('update tborder set 狀態(tài)='''+'離校'+''',備注='''+memo1.Text+''' where 學號='''+xhedit.Text+'''');
  if messagedlg('請確認輸入的數(shù)據(jù)的有效性',mtconfirmation,[mbYes,mbNo],1)=mryes then
  datamd.ADOOrder.ExecSQL
  else
  showmessage('操作取消');
 end;
end;

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

end.