query1.parameters.parambyname('8').value:=''+edit6.text+'';
adoquery1.parameters.parambyname('9').value:=''+edit7.text+'';
adoquery1.execsql;
end;
说明:在该数据库中,建了一个名为users的用户表,存储用户的信息。只有是用户在登陆时,才能进入主界面,当不是用户在登陆时,必须先进行新用户注册,才能进入主系统。
3.系统主界面
4.学生基本信息查询
精确查询程序:
procedure TForm3.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
if radiobutton1.Checked then //通过单选按钮的选择来判断是要进行精确查询还是模糊查询
begin
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from 学生表 where ='''+edit1.text+'''' );
adoquery1.Open;
end;
end;
说明:由于学生表中,为主键,因此要查此表中学生基本信息,只要输入主键值即可得一条记录,即实现精确查询。
模糊查询程序:
procedure TForm3.Button3Click(Sender: TObject);
begin
with adoquery1 do
begin
if radiobutton2.Checked then
begin
if (edit2.Text <>'')or (edit3.Text <>'')or(edit4.Text <>'')or(edit5.Text <>'')
or(edit6.Text <>'')then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 学生表');
adoquery1.SQL.Add('where( like '''+'%'+edit2.text+'%'+''')');
adoquery1.SQL.Add('or( like '''+'%'+edit3.text+'%'+''')');
adoquery1.SQL.Add('or(所在系别 like '''+'%'+edit4.text+'%'+''')');
adoquery1.SQL.Add('or(所