VB数据库应用程序开发演示.docx
《VB数据库应用程序开发演示.docx》由会员分享，可在线阅读，更多相关《VB数据库应用程序开发演示.docx（17页珍藏版）》请在冰豆网上搜索。
VB数据库应用程序开发演示
一、新建项目
二、设计登录窗体
代码如下：
ImportsSystem'引入数据库操作类命名空间
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PublicClass登录
DimiAsInteger=3'声明计数器i，用来记录登录次数
DimstrsqlAsString
DimstrconnAsString
DimobjcommandAsSqlClient.SqlCommand
DimobjdrAsSqlClient.SqlDataReader
Dimstr1,str2AsString
'取消按钮事件
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
TextBox1.Text=""
TextBox2.Text=""
TextBox1.Focus（）
EndSub
'确定按钮事件，控制登录
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
strconn="datasource=HD30-A1;initialcatalog=xscj;userid=sa;password=123456;"
strsql="select用户名,密码fromusers"
objcommand=NewSqlClient.SqlCommand（strsql,NewSqlClient.SqlConnection（strconn））
objcommand.Connection.Open（）
objdr=objcommand.ExecuteReader（CommandBehavior.CloseConnection）
Withobjdr
DoWhile.Read=True
str1=.GetString（0）
str2=.GetString
（1）
IfTrim（TextBox1.Text）=Trim（str1）AndTrim（TextBox2.Text）=Trim（str2）Then
MessageBox.Show（"恭喜您登录成功！
","系统提示",MessageBoxButtons.OK,MessageBoxIcon.Information）
main.Show（）
Me.Visible=False
ExitSub
EndIf
Loop
EndWith
i=i-1
Ifi=0Then
MessageBox.Show（"您已经没有登录机会了，再见！
","系统提示",MessageBoxButtons.OK,MessageBoxIcon.Hand）
Me.Close（）
Else
MessageBox.Show（"登录失败！
"+"您还有"+Str（i）+"次登录机会！
","系统提示",MessageBoxButtons.OK,MessageBoxIcon.Error）
TextBox1.Text=""
TextBox2.Text=""
TextBox1.Focus（）
EndIf
EndSub
EndClass
运行结果
三、设计主窗体
主窗体代码如下：
PrivateSub学生信息查询ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles学生信息查询ToolStripMenuItem.Click
xscx.MdiParent=Me
xscx.Show（）
EndSub
PrivateSub学生信息修改ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles学生信息修改ToolStripMenuItem.Click
xsxg.MdiParent=Me
xsxg.Show（）
EndSub
PrivateSub主窗体_Disposed（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Disposed
login.Close（）
EndSub
PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.Tick
ToolStripStatusLabel1.Text=Now
EndSub
PrivateSubToolStripMenuItem3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesToolStripMenuItem3.Click
DimiAsInteger
i=MsgBox（"是否退出学生成绩管理系统？
",MsgBoxStyle.OkCancel,"提示"）
Ifi=1Then
End
Else
ExitSub
EndIf
EndSub
运行结果
四、查询窗体设计
DimstrconnAsString="datasource=cheng;initialcatalog=xscj;userid=sa;password=123456;"
DimobjdsAsNewData.DataSet
DimobjdaAsSqlClient.SqlDataAdapter
DimbingpageAsBindingManagerBase
DimstrsqlAsString
'窗体加载事件，将数据绑定到指定的对象
PrivateSub学生信息查询_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
strsql="select*fromxs"
objda=NewSqlClient.SqlDataAdapter（strsql,strconn）
objda.Fill（objds,"xs"）
DataGridView1.DataSource=objds.Tables（"xs"）
bingpage=Me.BindingContext（objds,"xs"）
TextBox1.DataBindings.Add（NewBinding（"text",objds,"学号"））
TextBox2.DataBindings.Add（NewBinding（"text",objds,"姓名"））
TextBox3.DataBindings.Add（NewBinding（"text",objds,"性别"））
DateTimePicker1.DataBindings.Add（NewBinding（"text",objds,"出生时间"））
TextBox5.DataBindings.Add（NewBinding（"text",objds,"专业名"））
TextBox4.DataBindings.Add（NewBinding（"text",objds,"总学分"））
RichTextBox1.DataBindings.Add（NewBinding（"text",objds,"xs.备注"））
ComboBox1.Items.Add（"学号"）
ComboBox1.Items.Add（"姓名"）
ComboBox1.Items.Add（"专业名"）
EndSub
'首记录按钮事件
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
bingpage.Position=1
Button1.Enabled=False
Button2.Enabled=False
Button3.Enabled=True
Button4.Enabled=True
EndSub
'上一条记录按钮事件
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
bingpage.Position=bingpage.Position-1
Ifbingpage.Position<>1Then
Button1.Enabled=True
Button2.Enabled=True
Button3.Enabled=True
Button4.Enabled=True
Else
Button1.Enabled=False
Button2.Enabled=False
Button3.Enabled=True
Button4.Enabled=True
EndIf
EndSub
'下一条记录按钮事件
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click
bingpage.Position=bingpage.Position+1
Ifbingpage.Position<>bingpage.Count-1Then
Button1.Enabled=True
Button2.Enabled=True
Button3.Enabled=True
Button4.Enabled=True
Else
Button1.Enabled=True
Button2.Enabled=True
Button3.Enabled=False
Button4.Enabled=False
EndIf
EndSub
'尾记录按钮事件
PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click
bingpage.Position=bingpage.Count-1
Button1.Enabled=True
Button2.Enabled=True
Button3.Enabled=False
Button4.Enabled=False
EndSub
'条件查询按钮事件
PrivateSubButton5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5.Click
objds.Clear（）
IfComboBox1.Text=""OrTextBox9.Text=""Then
MessageBox.Show（"请输入查询条件！
"）
ExitSub
Else
strsql="select*fromxswhere"&Trim（ComboBox1.Text）&"="&"'"&Trim（TextBox9.Text）&"'"
objda=NewSqlClient.SqlDataAdapter（strsql,strconn）
objda.Fill（objds,"xs"）
DataGridView1.DataSource=objds.Tables（"xs"）
EndIf
EndSub
'显示所有记录按钮事件
PrivateSubButton6_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton6.Click
objds.Clear（）
strsql="select*fromxs"
objda=NewSqlClient.SqlDataAdapter（strsql,strconn）
objda.Fill（objds,"xs"）
DataGridView1.DataSource=objds.Tables（"xs"）
EndSub
EndClass
五、修改子窗体
PublicClass学生信息修改
InheritsSystem.Windows.Forms.Form
DimstrconnAsString="datasource=cheng;initialcatalog=学生成绩管理;userid=sa;password=123456;"
DimobjdsAsNewData.DataSet
DimobjdaAsSqlClient.SqlDataAdapter
DimbingpageAsBindingManagerBase
DimcnAsNewSqlClient.SqlConnection
DimcmdAsSqlClient.SqlCommand
PrivateSub学生信息修改_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
ComboBox1.Items.Add（"男"）
ComboBox1.Items.Add（"女"）
DimstrsqlAsString
strsql="select*from学生表"
objda=NewSqlClient.SqlDataAdapter（strsql,strconn）
objda.Fill（objds,"学生表"）
DataGridView1.DataSource=objds.Tables（"学生表"）
bingpage=Me.BindingContext（objds,"学生表"）
DimiAsInteger
Fori=1970To2000
ComboBox2.Items.Add（i）
Next
Fori=1To12
ComboBox3.Items.Add（i）
Next
Fori=1To31
ComboBox4.Items.Add（i）
Next
EndSub
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Button1.Enabled=False
Button2.Enabled=True
TextBox1.ReadOnly=False
TextBox2.ReadOnly=False
TextBox3.ReadOnly=False
RichTextBox1.ReadOnly=False
EndSub
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
Button1.Enabled=True
Dimsql,dAsString
d=ComboBox2.Text&"-"&ComboBox3.Text&"-"&ComboBox4.Text
sql="insertinto学生表（学号,姓名,性别,院系名称,出生日期,备注）values（'"&Trim（TextBox1.Text）&"','"&_
Trim（TextBox2.Text）&"','"&Trim（ComboBox1.Text）&"','"&Trim（TextBox3.Text）&"','"&CStr（d）&"','"&_
Trim（RichTextBox1.Text）&"'）"
cn.ConnectionString=strconn
cn.Open（）
cmd=NewSqlClient.SqlCommand（sql,cn）
cmd.ExecuteNonQuery（）
cmd.Dispose（）
cn.Dispose（）
Button1.Enabled=True
Button2.Enabled=False
EndSub
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click
DataGridView1.ReadOnly=False
EndSub
PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click
DataGridView1.ReadOnly=True
objda.Update（objds）
EndSub
EndClass
升级会员 