ox1.Text='学生' then
begin
ADOTable1.Close;
ADOTable1.Open;
ADOTable1.Active;
results:=ADOTable1.Lookup('',edit1.text,'密码');
if edit1.Text='' then
application.MessageBox('用户名不能为空!','警告',mb_ok)
else if edit2.Text='' then
application.messagebox('密码不能为空!','警告',mb_ok)
else
if results=edit2.Text then
begin
form2.Show;
end
else
showmessage('用户名或密码不存在!');
end
else if ComboBox1.Text='教师' then
begin
ADOTable2.Close;
ADOTable2.Open;
ADOTable2.Active;
results:=ADOTable2.Lookup('教师编号',edit1.text,'密码');
if edit1.Text='' then
application.MessageBox('用户名不能为空!','警告',mb_ok)
else if edit2.Text='' then
application.messagebox('密码不能为空!','警告',mb_ok)
else
if results=edit2.Text then
begin
form3.show;
end
else
showmessage('用户名或密码不存在!');
end
退出代码如下:close;
2学生窗口
此窗口可以实现输入一个后点击查询按钮后输出该学生的信息
查询代码如下:
ADOQuery1.Close;
ADOQuery1.SQL.Add('select ,,数据库成绩,delphi成绩,数据库成绩+delphi成绩 总分 from student where ='''+Edit1.Text+'''');
ADOQuery1.Open;
ADOQuery1.Active:= true;
打印按钮:PrintDBGridEh1.Preview;
3教室窗口
显示所有学生成绩 功能:教师点击后会显示所有学生的信息
代码如下:ADOQuery1.Active:=true;
select ,,数据库成绩,delph