1、建立管理員表

CREATE TABLE Ad

(密碼 CHAR(8) PRIMARY KEY,

姓名 varchar(20)

);

2.管理員表初始化

insert into Ad (密碼,姓名)

VALUES("admin", "admin");

3．建立學生表

CREATE TABLE Student

(學生學號 CHAR (10) PRIMARY KEY,

學生姓名 VARCHAR (20) UNIQUE,

學生性別 CHAR (2),

學生年齡 SMALLINT,

班級號 CHAR (4),

FOREIGN KEY (班級號) REFERENCES Class(班級號)

);

4. 建立教師表

CREATE TABLE Teacher

(教工號 CHAR (8) PRIMARY KEY,

教師姓名 VARCHAR (20) UNIQUE,

教師性別 CHAR (2),

職稱 VARCHAR (10),

);

登陸原始碼：

if radiobutton1.Checked then

begin

adoquery1.close;

adoquery1.SQL.clear;

adoquery1.SQL.add("select * from Student");

adoquery1.SQL.add("where 學生學號="""+edit2.text+""" and 學生姓名="""+edit1.text+"""");

adoquery1.Open;

if adoquery1.RecordCount>0 then

begin

form1.hide;

form2.show;

end

else

showmessage("使用者名稱不存在或者許可權錯誤，請查證後輸入");

edit2.Clear

end

else if radiobutton2.Checked then

begin

adoquery1.Close;

adoquery1.SQL.clear;

adoquery1.SQL.add("select * from Teacher");

adoquery1.SQL.add("where 教工號="""+edit2.text+""" and 教師姓名="""+edit1.text+"""");

adoquery1.Open;

if adoquery1.RecordCount>0 then

begin

form1.hide;

form3.show;

end

else

showmessage("使用者名稱不存在或者許可權錯誤，請查證後輸入");

edit2.Clear;

end

else if radiobutton3.Checked then

begin

adoquery1.close;

adoquery1.SQL.clear;

adoquery1.SQL.add("select * from Ad");

adoquery1.SQL.add("where 密碼="""+edit2.text+""" and 姓名="""+edit1.text+"""");

adoquery1.Open;

if adoquery1.RecordCount>0 then

begin

form1.hide;

form4.show;

end

else

showmessage("使用者名稱不存在或者許可權錯誤,請查證後輸入");

edit2.Clear;

end