1、創建管理員表
CREATETABLEAd
(密碼CHAR(8)PRIMARYKEY,
姓名varchar(20)
);
2.管理員表初始化
insertintoAd(密碼,姓名)
VALUES('admin','admin');
3．創建學生表
CREATETABLEStudent
(學生學號CHAR(10)PRIMARYKEY,
學生姓名VARCHAR(20)UNIQUE,
學生性別CHAR(2),
學生年齡SMALLINT,
班級號CHAR(4),
FOREIGNKEY(班級號)REFERENCESClass(班級號)
);
4.創建教師表
CREATETABLETeacher
(教工號CHAR(8)PRIMARYKEY,
教師姓名VARCHAR(20)UNIQUE,
教師性別CHAR(2),
職稱VARCHAR(10),
);
登陸源碼：
ifradiobutton1.Checkedthen
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.add('select*fromStudent');
adoquery1.SQL.add('where學生學號='''+edit2.text+'''and學生姓名='''+edit1.text+'''');
adoquery1.Open;
ifadoquery1.RecordCount>0then
begin
form1.hide;
form2.show;
end
else
showmessage('用戶名不存在或者權限錯誤，請查證后輸入');
edit2.Clear
end
elseifradiobutton2.Checkedthen
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.add('select*fromTeacher');
adoquery1.SQL.add('where教工號='''+edit2.text+'''and教師姓名='''+edit1.text+'''');
adoquery1.Open;
ifadoquery1.RecordCount>0then
begin
form1.hide;
form3.show;
end
else
showmessage('用戶名不存在或者權限錯誤，請查證后輸入');
edit2.Clear;
end
elseifradiobutton3.Checkedthen
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.add('select*fromAd');
adoquery1.SQL.add('where密碼='''+edit2.text+'''and姓名='''+edit1.text+'''');
adoquery1.Open;
ifadoquery1.RecordCount>0then
begin
form1.hide;
form4.show;
end
else
showmessage('用戶名不存在或者權限錯誤,請查證后輸入');
edit2.Clear;
end