begin
form1.panel2.Left:
=form1.panel2.Left+5;
exit;
end;
timer1.Enabled:
=false;
flag:
=true;
end;
2.登录窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“登录”。
向窗体中添加2个Edit控件,4个Image控件,8个Label控件,8个Panel控件,并设置各控件的属性如表示。
设置好的窗体如图所示:
控件名
属性
修改后的属性
控件名
属性
修改后的属性
Label1
caption
用户名
Label2
caption
密码
Button1
Caption
用户登录
Button2
Caption
新用户注册
Button3
Caption
超级管理员登
Button4
Caption
退出系统
。
为实现窗体功能,需要添加如下代码
procedureTForm2.SpeedButton1Click(Sender:
TObject);
begin
results:
=ADOTable1.Lookup('用户名',edit1.text,'密码');{检索数据库中对应用户名的密码项}
ifedit1.Text=''then
application.MessageBox('用户名不能为空!
','提示',mb_ok)
elseifedit2.Text=''then
application.messagebox('密码不能为空!
','警告',mb_ok)
else
showmessage('密码错误或用户不存在!
');
edit1.Visible:
=true;
edit2.Visible:
=true;
edit1.Text:
='';
edit2.Text:
='';
end;
end.
3,退出窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)向窗体中添加1个Image控件,2个Label控件,2个SpeedButton控件.并设置各控件的属性。
设置好的窗体如图所示:
控件名
属性
修改后的属性
SpeedButton
caption
确定退出
SpeedButton
caption
取消退出
为实现窗体功能,需要添加如下代码
procedureTForm3.SpeedButton1Click(Sender:
TObject);
begin
application.ProcessMessages;
form2.Close;
form3.Close;
end;
4.用户注册窗体的创建
(1),启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2),将主窗体的Caption属性改为“新用户注册”。
向窗体中添加4个ComboBox控件,9个Edit控件,2个Image控件,16个Label控件,2个Memo控件,10个Panel控件,3个SpeedButton控件.并设置各控件的属性如表所示。
设置好的窗体如图所示:
控件名
属性
修改后属性
控件名
属性
修改后属性
Label1
Caption
用户名
Label2
Caption
密码
Label3
Caption
核对密码
Label4
Caption
性别
Label5
Caption
出生年月
Label6
Caption
联系地址
Label7
Caption
联系电话
Label8
Caption
邮政编码
Label9
Caption
电子邮件
Label10
Caption
所在系别
Label11
Caption
所在班级
Label12
Caption
个人爱好
Label13
Caption
选择用户头像
Label14
Caption
用户注册
SpeedButton1
Caption
提交
SpeedButton2
Caption
重置
SpeedButton3
Caption
取消
为实现窗体功能,需要添加如下代码:
procedureTForm4.SpeedButton1Click(Sender:
TObject);
begin
SQL.Clear;
SQL.Add('select*from用户表where用户表.用户名=:
a');
parameters.ParamByName('a').Value:
=Trim(Edit1.Text);
Open;
end;
h:
=edit2.Text;
k:
=edit3.Text;
if(edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')or(edit6.Text='')or(edit7.Text='')or(edit8.Text='')or(edit9.Text='')then
begin
application.MessageBox('信息不完整!
','错误操作',mb_ok);
elseifh<>kthen
begin
application.MessageBox('密码不匹配!
','错误操作',mb_ok);
else
ifADOQuery1.Eof=falsethen
begin
ShowMessage('该用户已经存在,请重新填写');
Edit1.Clear
end
else
ifnot(IsVaildEmailAddr(Edit7.Text))then
begin
ShowMessage('您输入的电子邮件地址格式不合法!
');
Edit7.Clear;
adoquery1.sql.clear;
Adoquery1.sql.add('insertinto用户表(用户名,密码,性别,出生年,出生月,联系地址,联系电话,邮政编码,电子邮箱,所在系别,所在班级,个人爱好,用户头像,用户备注)values(:
1,:
2,:
3,:
4,:
5,:
6,:
7,:
8,:
9,:
10,:
11,:
12,:
13,:
14)');
Adoquery1.execsql;
application.MessageBox('数据已录入,请查看!
','完成提示',mb_ok);
Result:
=True;//以上的判断都通过,则表示地址字符串为合法
end;
5.学生窗体的创建
(1)打开VisualBasic6.0教材,按[F5]键或单击工具栏上”启动”按钮运行程序,程序运行结果如图。
(2)将窗体的Caption属性改为“学生基本信息”。
向窗体中添加1个GroupBox控件,在GroupBox上添加4个ComboBox控件,16个Edit控件,3个GroupBox控件,在GroupBox2上添加1个SpeedButton控件,在GroupBox3上添加1个SpeedButton控加,在GroupBox4控件上添加1个SpeedButton控件,25个Label控件,2个Memo控件,2个Panel控件。
并设置各控件的属性,设置好的窗体如图所示:
为实现窗体功能,需要添加如下代码:
procedureTForm6.Edit9KeyPress(Sender:
TObject;varKey:
Char);
begin
Application.MessageBox('邮政编码只能用数字表示,请重新输入!
','警告',0+64)
end;
end;
procedureTForm6.Edit1KeyPress(Sender:
TObject;varKey:
Char);
begin
Application.MessageBox('学号只能用数字表示,请重新输入!
','警告',0+64)
end;
end;
procedureTForm6.Edit10KeyPress(Sender:
TObject;varKey:
Char);
begin
Application.MessageBox('联系电话只能用数字表示,请重新输入!
','警告',0+64)
end;
end;
6查找窗体的创建
(1)启动VB,工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“精确查找”,向窗体中添加1个GroupBox控件,在GroupBox控件上添加1个Edit,1个Label控件,1个SpeedButton控件。
并设置各控件的属性,设置好的窗体如图所示:
为实现窗体功能,需要添加如下代码:
procedureTForm8.SpeedButton1Click(Sender:
TObject);
begin
form7.PageControl1.ActivePage:
=form7.tabsheet2;
ifedit1.Text=''then
begin
MessageBox(handle,'请输入姓名,不能为空!
','提示',MB_OKorMB_ICONINFORMATION);
exit;
end
else
begin
form7.adoquery1.SQL.Clear;
form7.adoquery1.Close;
form7.adoquery1.sql.Add('select*from用户表where用户名='''+Edit1.Text+'''');
MessageBox(handle,'查询完毕!
','提示',MB_OKorMB_ICONINFORMATION);
form7.adoquery1.Open;
edit1.Text:
='';
end;
end;
7成绩录入窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“成绩录入”,向窗体中添加1个GroupBox控件,在GroupBox控件上2个ComboBox控件,8个Edit控件,3个GroupBox控件,12个Label控件,1个Memo控件,2个Panel控件,并设置各控件的属性,设置好的窗体如图所示:
为实现窗体功能,需要添加如下代码:
procedureTForm9.SpeedButton1Click(Sender:
TObject);
begin
begin
withADOQuery1do
begin
close;
SQL.Clear;
SQL.Add('select*from成绩信息表where成绩信息表.学号=:
a');
parameters.ParamByName('a').Value:
=Trim(Edit1.Text);
Open;
end;
if(edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')or(edit6.Text='')or(edit7.Text='')or(edit8.Text='')or(combobox1.Text='')or(combobox2.Text='')then
begin
application.MessageBox('信息不完整!
','错误操作',mb_ok);
exit;
end
elseifADOQuery1.Eof=falsethen
begin
ShowMessage('该学生已经存在,请重新填写');
Edit1.Clear
end
else
begin
adoquery1.close;
adoquery1.sql.clear;
Adoquery1.sql.add('insertinto成绩信息表(学号,姓名,性别,所在系别,所在专业,所在班级,课程名称,课程代号,学期,成绩,备注内容)'
+'values(:
1,:
2,:
3,:
4,:
5,:
6,:
7,:
8,:
9,:
10,:
11)');
Adoquery1.execsql;
application.MessageBox('数据已录入,请查看!
','完成提示',mb_ok);
edit1.Text:
='';
edit2.Text:
='';
end;
end;
end;
8学生成绩管理窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“学生成绩管理系统”,向窗体中添加1个MainMenul控件,2个Panel控件,1个PopupMenul控件,1个StausBar控件,1个TreeView控件。
向Panel1控件上添加6个GroupBox控件,在每个GroupBox控件上添加1个SpeedButton控件。
在Panel2上添加2个DBGrid控件1个Image控件,1个Panel控件,
为实现窗体功能,需要添加如下代码
procedureTForm10.BitBtn2Click(Sender:
TObject);
begin
DBgrid1.Visible:
=true;
DBgrid2.Visible:
=false;
DBgrid1.Font.Color:
=clteal;
ifedit5.Text=''then
begin
MessageBox(handle,'请输入姓名,不能为空!
','提示',MB_OKorMB_ICONINFORMATION);
exit;
end
else
begin
adoquery2.SQL.Clear;
adoquery2.Close;
adoquery2.sql.add('select*from学生基本信息表where学号='''+Edit5.Text+'''');
MessageBox(handle,'查询完毕!
','提示',MB_OKorMB_ICONINFORMATION);
adoquery2.Open;
statusbar1.Panels[1].Text:
='总共找到'+inttostr(ADOQuery2.RecordCount)+'条记录';
edit5.Text:
='';
end;
end;
procedureTForm10.BitBtn3Click(Sender:
TObject);
var
sql:
string;
begin
if(edit6.Text<>'')or(edit7.Text<>'')or(edit8.Text<>'')or(edit9.Text<>'')or(edit10.Text<>'')or(edit11.Text<>'')or(combobox2.Text<>'')then
sql:
='where(学号like'''+'%'+edit6.Text+'%'')or(姓名like'''+'%'+edit7.Text+'%'')or(所在系别like'''+'%'+combobox2.Text+'%'')or(所在专业like'''+'%'+edit8.Text+'%'')or(所在班级like'''+'%'+edit9.Text+'%'')or(贯籍like'''+'%'+edit10.Text+'%'')or(政治面目like'''+'%'+edit11.Text+'%'')'
else
begin
application.messagebox('没有查询条件!
','提示',mb_ok);
exit;
end;
ADOQuery2.SQL.Add('select*from学生基本信息表');
statusbar1.Panels[1].Text:
='总共找到'+inttostr(ADOQuery2.RecordCount)+'条记录';
edit6.Text:
='';
edit7.Text:
='';
edit8.Text:
='';
edit9.Text:
='';
edit10.Text:
='';
edit11.Text:
='';
end;
procedureTForm10.BitBtn4Click(Sender:
TObject);
begin
MessageBox(handle,'请输入姓名,不能为空!
','提示',MB_OKorMB_ICONINFORMATION);
exit;
end
else
begin
adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.sql.add('select*from成绩信息表where学号='''+Edit12.Text+'''');
MessageBox(handle,'查询完毕!
','提示',MB_OKorMB_ICONINFORMATION);
adoquery1.Open;
statusbar1.Panels[1].Text:
='总共找到'+inttostr(ADOQuery1.RecordCount)+'条记录';