add.~pas

Delphi的在线考试系统

unit add;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls,ADODB;

type
  TAddUser = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUser: TAddUser;

implementation
 uses DataModule;
{$R *.dfm}

procedure TAddUser.FormCreate(Sender: TObject);
begin
   edit1.Clear;
   edit2.Clear;
   edit3.Clear;
   edit4.Clear;
   combobox1.ItemIndex:=0;
   combobox2.ItemIndex:=0;
   combobox3.ItemIndex:=0;
end;

procedure TAddUser.FormShow(Sender: TObject);
begin
   edit1.SetFocus;
end;

procedure TAddUser.OKBtnClick(Sender: TObject);
var query: TADOQuery;
begin
     //注册函数
     if (Trim(edit1.Text)='') or (Trim(edit2.Text)='') or ( Trim(edit3.Text)='') or ( Trim(edit4.Text)='') then begin
         MessageBox(handle, '信息输入不全', '提示',  mb_IconWarning + mb_Ok);
     end else begin
        query := TADOQuery.Create(nil);
        query.Connection := Data.Connection;
        query.Close;
        query.SQL.Clear;
        query.SQL.Text:='insert into 申请学生 (准考证号,姓名,密码,性别,系别,班级,身份证号) values ('''+
                        trim(edit1.Text)+''',''' +trim(edit2.Text)+''','''+trim(edit3.Text)+''','''+
                        trim(combobox1.Text)+''','''+trim(combobox2.Text)+''','''+trim(combobox3.Text)+''','''+
                        trim(edit4.Text)+''')';
      try
       query.ExecSQL;
       MessageBox(handle, '申请成功','提示', mb_IconWarning+ mb_Ok);
       self.modalresult:= mrOk;
      except on Exception do
        MessageBox(handle, '申请失败','提示', mb_IconWarning+ mb_Ok);
      end;
     end;
end;

end.