VisualBasic.Net程序设计课件第18讲 综合实训（数据库应用）.ppt

华中农业大学理学院计算机系 吴鹏飞 */17 */36 华中农业大学理学院计算机系 吴鹏飞 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 华中农业大学理学院计算机科学系 吴鹏飞 VisualBasic.Net程序设计 第18讲 综合实训(数据库) 1 登录界面设计 4 小结与思考 3 子程序界面设计 2 主系统界面设计 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 12 月 1 登录界面设计 华中农业大学理学院计算机科学系 吴鹏飞 1.1 RNA信息管理系统-用户登录 2012 年 12 月 1 登录界面设计 华中农业大学理学院计算机科学系 吴鹏飞 1.2 数据库连接公共代码设计 Dim strConn As String= Provider=Microsoft.Jet.OLEDB.4.0; + Data Source= + Microsoft.VisualBasic.Left(Application.StartupPath, 12) + \dbRNA.mdb + ;“ ; Application.StartupPath:指的是Bebug目录 Dim Conn As OleDbConnection = New OleDbConnection(strConn) Conn.Open() Dim Cmd As OleDbCommand = New OleDbCommand() Cmd.Connection = Conn 2012 年 12 月 1 登录界面设计 1.3 用户登录代码设计 Dim xlId, xlpwd As String, n As Integer xlId = TextBox1.Text xlpwd = TextBox2.Text Cmd.CommandText = select count(*) from tbLogin where lid= xlId and lpwd= xlpwd ; n = Integer.Parse(Cmd.ExecuteScalar().ToString()) If n = 1 Then RNA_Main.Show() Me.Hide() Else MsgBox(用户名或密码不对，请重新输入..., MsgBoxStyle.Critical, 登录错误) End If Conn.Close() 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 12 月 2 主系统界面设计 华中农业大学理学院计算机科学系 吴鹏飞 2.1 RNA信息管理系统-主系统界面 2012 年 12 月 2 主系统界面设计 2.2 主系统基本文件组成 （1）登录文件 （2）主界面文件 （3）查询文件 （4）添加文件 （5）修改文件 （6）删除文件 （7）其他文件 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 12 月 2 主系统界面设计 2.3 主系统代码设计 Private Sub 添加RNA记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加RNA记录ToolStripMenuItem.Click RNA_Insert.Show() End Sub Private Sub 删除RNA记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除RNA记录ToolStripMenuItem.Click RNA_Delete.Show() End Sub Private Sub 修改RNA记录Tool