VB评语管理系统设计（源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt）
收藏
资源目录
压缩包内文档预览：(预览前20页/共34页)
编号：149910301
类型：共享资源
大小：281.06KB
格式：RAR
上传时间：2021-10-10
上传人：好资料QQ****51605
认证信息
个人认证
孙**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
VB
评语
管理
系统
设计
源代码
可执行
程序
论文
开题
报告
外文
翻译
答辩
ppt
- 资源描述：
-
VB评语管理系统设计（源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt）,VB,评语,管理,系统,设计,源代码,可执行,程序,论文,开题,报告,外文,翻译,答辩,ppt
- 内容简介：
-
毕业设计 教师评语管理系统班级学号姓名摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的分析621 系统开发的目标和思想622 系统的可行性分析8第三章 系统的设计1831 系统的功能结构设计1832 系统的数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘 要教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的方式来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理员进行更有效的学生评语写作。评语管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键字:评语管理,MIS,visual basic ,数据库AbstractTeachers comment management system for teachers to use computer management information students wrote comments a computer application technology innovation, Management has not yet popular in the computer before the intermediary personnel manual transcription by teachers are the way to operate. Now the general comments of teachers are using computers as a management tool for computer comments generated management procedures to help students managers more effective students writing comments. Comment management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Keyword : comments management MIS,visual basic database第一章 引言11 课题背景教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的方式来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理员进行更有效的学生评语写作。评语管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。12 系统简介 本系统主要由以下功能模块构成:一. 评语项目管理(增加评语项目,删除选定项目,增加项目分类,删除项目分类)二. 评语维护三. 学生管理(查找学生,添加学生,删除学生,添加新评语)四. 系统管理(修改密码,添加用户,退出系统)第二章 系统的分析21 系统开发的目标和思想 本系统主要服务于教师对学生写评语的工作.利用本评语生成系统,教师可以方便的快捷的给班级的学生写评语,主要操作是定位学生对数据库添加评语信息,最后可以完成对学生的查询以及评语的修改.22 系统的可行性分析技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.经济上:本系统服务于学校教师,提高了教育工作者办事效率,节省了开支.所以具有经济上的可行性.社会上:本系统同时也方便了广大老师写评语寻求者,以及家长.所以具有社会可行性.第三章 系统的设计31 系统的功能结构设计程序登陆主界面评语项目管理评语维护学生管理系统管理32 系统的数据库设计1.工作评语:2.集体活动评语:3.纪律评语:4.建议期望评语:5.课堂评语:6.特长爱好评语:7.体育锻炼评语:8:卫生评语:9:系统管理:10:学生操行:11:学生管理:12:学生成绩评语:13:印象评语:14:作业评语:32 界面设计与代码设计1. 登陆界面设计:登陆界面代码设计:Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(txtuser.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocusElse sql = select * from 系统管理 where 用户名= & txtuser.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocus Else 检验密码是否正确 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtuser.Text rs_login.Close Unload Me mainform.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source=pingyu.mdbconn.Open connectionstringcnt = 0End Sub2. 添加学生界面设计:添加学生代码设计:Private Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text) = Then MsgBox 学生姓名不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 学号不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = Then MsgBox 班级不能为空, vbOKOnly + vbExclamation, Text3.SetFocus Exit SubEnd If sql = select * from 学生管理 rs.CursorLocation = adUseClient rs.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs.EOF = False) If Trim(rs.Fields(0) = Trim(Text2.Text) Then MsgBox 学号不能重复！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs.MoveNext End If Wend rs.AddNew rs.Fields(0) = Text2.Text rs.Fields(1) = Text1.Text rs.Fields(2) = Text3.Text rs.Update rs.Close MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3. 查找学生界面设计:查找学生代码设计:Private Sub Command1_Click()Dim rs As New ADODB.RecordsetDim find As StringDim sql As StringList1.ClearList1.AddItem 学号 & Space(5) & 姓名 & Space(5) & 班级If Option1.Value = True Then sql = select * from 学生管理 where 学生姓名= & Text1.Text & rs.Open sql, conn, adOpenKeyset, adLockPessimistic If rs.EOF = False Then rs.MoveFirst While rs.EOF = False List1.AddItem rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2) rs.MoveNext Wend Text1.Text = Else MsgBox 没有找到目标！, vbOKOnly + vbExclamation, End IfEnd IfIf Option2.Value = True Then sql = select * from 学生管理 where 学号= & Text2.Text & rs.Open sql, conn, adOpenKeyset, adLockPessimistic If rs.EOF = False Then rs.MoveFirst While rs.EOF = False List1.AddItem rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2) rs.MoveNext Wend Text2.Text = Else MsgBox 没有找到目标！, vbOKOnly + vbExclamation, End IfEnd IfIf Option3.Value = True Then sql = select * from 学生管理 where 班级= & Text3.Text & rs.Open sql, conn, adOpenKeyset, adLockPessimistic If rs.EOF = False Then rs.MoveFirst While rs.EOF = False List1.AddItem rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2) rs.MoveNext Wend Text3.Text = Else MsgBox 没有找到目标！, vbOKOnly + vbExclamation, End IfEnd Ifrs.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub List1_Click()Dim i As LongDim sql As StringDim rsclick As New ADODB.Recordseti = CLng(List1.ListIndex)ID = Left(List1.Text, 6)If i 0 Then rsclick.CursorLocation = adUseClient sql = select * from 学生操行 where 学号= & ID & & order by 学期 rsclick.Open sql, conn, adOpenKeyset, adLockPessimistic If rsclick.EOF = False Then rsclick.MoveFirst Else MsgBox 该生没有评语！, vbOKOnly + vbExclamation, Exit Sub End If Text4.Text = 文本框清空 While rsclick.EOF = False Text4.Text = Text4.Text & vbCrLf & 第 & rsclick.Fields(1) & 学期 & vbCrLf & Space(2) & _ rsclick.Fields(2) & vbCrLf & Space(10) & rsclick.Fields(3) & Space(2) & rsclick.Fields(4) rsclick.MoveNext Wend rsclick.Close Exit SubElse MsgBox 请选择学生！, vbOKOnly + vbExclamation, Exit SubEnd IfEnd Sub4. 添加学生界面设计:添加学生代码设计:Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub Text1.SetFocusElse sql = select * from 系统管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Update rs_add.Close MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub5. 修改密码界面设计:修改界面代码设计:Private Sub Command1_Click()Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) Trim(Text2.Text) Then MsgBox 密码不一致！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Else sql = select * from 系统管理 where 用户名= & userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close MsgBox 密码修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub6. 主界面设计:主界面代码设计:Option ExplicitDim rs1 As New ADODB.RecordsetDim cat As New adox.CatalogDim tbl As New adox.tableDim list2state As Boolean 标记list2的状态Dim ID_num As String 记录学号Dim txttbl As String 记录当前评语项目名称Dim txtfield As String 记录当前项目分支名称Dim str1 As String 记录当前评语项目Dim str2 As String 记录当前项目中类别Dim xq As Integer 记录学期Dim selstu As BooleanDim selxm As BooleanDim xing As String 记录教师姓名Private mnode As NodePrivate Sub write_Click()End SubPrivate Sub addnewpyxm_Click()Command9_ClickEnd SubPrivate Sub addpy_Click()Command4_ClickEnd SubPrivate Sub addstudent_Click()Form1.ShowEnd SubPrivate Sub addstupy_Click()Command10_ClickEnd SubPrivate Sub adduser_Click()Form3.ShowEnd SubPrivate Sub addxmfl_Click()Command12_ClickEnd SubPrivate Sub changepwd_Click()Form4.ShowEnd SubPrivate Sub Combo1_Click()Dim caoxing As Stringcaoxing = Combo1.TextText1(1).Text = Text1(1).Text & 操行评定 & caoxingEnd SubPrivate Sub Command1_Click()Text1(1).Text = Text1(1).Text & vbCrLf & DateEnd SubPrivate Sub Command10_Click()If selstu = True ThenCommand1.Enabled = TrueCommand2.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand14.Enabled = TrueCombo1.Enabled = TrueSSTab1.TabEnabled(1) = TrueCommand10.Enabled = FalseList1.Enabled = FalseSSTab1.Tab = 1Else MsgBox 请选择学生！, vbOKOnly + vbExclamation, End IfEnd SubPrivate Sub Command11_Click()Dim answer As StringDim delxm As StringDim table As New tableDim ind As IntegerIf TreeView1.SelectedItem.Children 0 Thendelxm = TreeView1.SelectedItem.Textanswer = MsgBox(确定要删除这一项吗？, vbYesNo, )If answer = vbYes Then cat.Tables.Delete (delxm) ind = TreeView1.SelectedItem.Index TreeView1.Nodes.Remove (ind)Else Exit SubEnd IfElse MsgBox 请选择要删除的项目！而不是项目分类！, vbOKOnly, Exit SubEnd IfExit SubEnd SubPrivate Sub Command12_Click()Dim flname As StringDim tbl As tableDim sql As StringDim rs As New ADODB.RecordsetDim xmname As StringDim ind As IntegerDim nod As NodeSet nod = TreeView1.SelectedItemIf InStr(TreeView1.SelectedItem.FullPath, ) = 0 Then flname = InputBox(输入项目分类名称, 增加项目分类) If flname = Then MsgBox 分类名称不能为空！, vbOKOnly, Exit Sub Else xmname = TreeView1.SelectedItem.Text ind = TreeView1.SelectedItem.Index cat.Tables(xmname).Columns.Append flname, adVarWChar, 255 Set mnode = TreeView1.Nodes.Add(ind, tvwChild) mnode.Text = flname End IfElse MsgBox 只能在项目中添加分类，请单击要添加分类的项目名称！, vbOKOnly, End IfEnd SubPrivate Sub Command13_Click()Dim flname As StringDim answer As StringDim xmname As StringDim ind As IntegerIf InStr(TreeView1.SelectedItem.FullPath, ) = 0 Then MsgBox 请选择要删除的项目分类！而不是项目名称！, vbOKOnly, Exit SubElse xmname = TreeView1.SelectedItem.Parent.Text ind = TreeView1.SelectedItem.Index flname = TreeView1.SelectedItem.Text answer = MsgBox(确定要删除这一项吗？, vbYesNo, 删除项目分类) If answer = vbYes Then cat.Tables(xmname).Columns.Delete flname TreeView1.Nodes.Remove ind End IfEnd IfExit SubEnd SubPrivate Sub Command14_Click()Text1(1).Text = End SubPrivate Sub Command15_Click()List1.ClearDim refreshstu As New ADODB.RecordsetDim sql As Stringrefreshstu.CursorLocation = adUseClientsql = select * from 学生管理 order by 学号 打开学生管理数据表，在列表框中显示所有的学生refreshstu.Open sql, conn, adOpenKeyset, adLockPessimisticWhile refreshstu.EOF = False List1.AddItem refreshstu.Fields(1) & & refreshstu.Fields(0) refreshstu.MoveNextWendrefreshstu.CloseEnd SubPrivate Sub Command2_Click()xing = InputBox(输入老师姓或姓名：)Text1(1).Text = Text1(1).Text & vbCrLf & Space(12) & xing & 老师End SubPrivate Sub Command3_Click()Dim i As Integeri = List2.ListIndexIf Text1(1).Text = ThenText1(1).Text = Space(2) & Text1(1).Text & List2.TextElse Text1(1).Text = Text1(1).Text & List2.TextEnd IfEnd SubPrivate Sub Command4_Click()Dim rs As New ADODB.RecordsetDim sql As StringDim str As String 记录用户输入Dim prompt As String 函数参数prompt = 在“ + str1 + ”中的“ + str2 + ”类别中添加新的评语：str = InputBox(prompt, 添加新评语)List2.AddItem (str)sql = select & str2 & from & str1rs.Open sql, conn, adOpenKeyset, adLockPessimisticrs.AddNewrs.Fields(str2) = strrs.Updaters.CloseEnd SubPrivate Sub Command5_Click()Dim rs As New ADODB.RecordsetDim sql As StringDim i As IntegerDim str As String 记录用户输入Dim prompt As String 函数参数prompt = 修改“ + str1 + ”中的“ + str2 + ”类别评语： & List2.Textstr = InputBox(prompt, 修改评语)If str = Then Exit SubElsei = List2.ListIndexList2.RemoveItem (List2.ListIndex)List2.AddItem strsql = select & str2 & from & str1rs.Open sql, conn, adOpenKeyset, adLockPessimisticrs.Move irs.Fields(str2) = strrs.Updaters.CloseEnd IfEnd SubPrivate Sub Command6_Click()Dim rs As New ADODB.RecordsetDim sql As StringDim i As IntegerDim answer As String 记录用户输入Dim prompt As String 函数参数prompt = 确实要删除此条评语吗？answer = MsgBox(prompt, vbYesNo, 删除评语)If answer = vbYes Then i = List2.ListIndex List2.RemoveItem (List2.ListIndex) sql = select & str2 & from & str1 rs.Open sql, conn, adOpenKeyset, adLockPessimistic rs.Move i rs.Delete rs.Update rs.CloseEnd IfEnd SubPrivate Sub Command7_Click()Dim rs As New ADODB.RecordsetDim sql As Stringrs.CursorLocation = adUseClientsql = select * from 学生操行 where 学号= & ID_num & & order by 学期rs.Open sql, conn, adOpenKeyset, adLockPessimisticDim cx As Stringrs.AddNewrs.Fields(0) = ID_numrs.Fields(1) = xq + 1rs.Fields(3) = Daters.Fields(4) = xing + 老师cx = Replace(Text1(1).Text, Date, )cx = Replace(cx, xing + 老师, )rs.Fields(2) = cxrs.Updaters.CloseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand14.Enabled = FalseCombo1.Enabled = FalseSSTab1.TabEnabled(1) = FalseCommand10.Enabled = TrueList1.Enabled = TrueEnd SubPrivate Sub Command8_Click()List1.Enabled = TrueCommand10.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand14.Enabled = FalseCombo1.Enabled = FalseEnd SubPrivate Sub Command9_Click()Dim xmname As StringDim rs As New ADODB.RecordsetDim table As New tableDim tbl As tableDim field As StringDim str As StringOn Error GoTo adderrorxmname = InputBox(输入新评语项目名称, 添加评语项目)If xmname = Then MsgBox 项目名称不能为空！, vbOKOnly, Exit SubElse If Right(xmname, 2) = 评语 Then table.Name = xmname Else table.Name = xmname + 评语 End If cat.Tables.Append table TreeView1.Nodes.Clear For Each tbl In cat.Tables str = tbl.Name If Right(str, 2) = 评语 Then Set mnode = TreeView1.Nodes.Add() mnode.Text = str Dim i As Integer Dim nodeindex As Integer nodeindex = mnode.Index For i = 0 To tbl.Columns.Count - 1 Set mnode = TreeView1.Nodes.Add(nodeindex, tvwChild) mnode.Text = tbl.Columns.Item(i).Name Next End IfNextEnd IfExit Subadderror: MsgBox Err.Description, vbOKOnly + vbExclamation, End SubPrivate Sub delpy_Click()Command6_ClickEnd SubPrivate Sub delstudent_Click()Dim answer As StringDim i As IntegerDim ID As StringDim sql As StringDim rsdelstu As New ADODB.RecordsetID = Label4.Captioni = List1.ListIndexIf selstu = True Then answer = MsgBox(确定要删除此学生吗？, vbYesNo, ) If answer = vbYes Then sql = select * from 学生管理 where 学号= & ID & rsdelstu.CursorLocation = adUseClient rsdelstu.Open sql, conn, adOpenKeyset, adLockPessimistic rsdelstu.Delete rsdelstu.Update rsdelstu.Close List1.RemoveItem i End IfElse MsgBox 请选择要删除的学生！, vbOKOnly + vbExclamation, End IfExit SubEnd SubPrivate Sub delxmfl_Click()Command13_ClickEnd SubPrivate Sub exitsys_Click()Unload MeEnd SubPrivate Sub findstudent_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Dim connectionstring As StringDim sql As StringOn Error GoTo openerrorrs1.CursorLocation = adUseClientsql = select * from 学生管理 order by 学号 打开学生管理数据表，在列表框中显示所有的学生rs1.Open sql, conn, adOpenKeyset, adLockPessimisticWhile rs1.EOF = False List1.AddItem rs1.Fields(1) & & rs1.Fields(0) rs1.MoveNextWendCombo1.AddItem 优Combo1.AddItem 良Combo1.AddItem 中Combo1.AddItem 差pymanage.Enabled = Falseweihupy.Enabled = Falselist2state = FalsesetcommandstateSSTab1.TabEnabled(1) = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand8.Enabled = FalseCommand7.Enabled = FalseCommand14.Enabled = FalseCombo1.Enabled = Falseselstu = Falseselxm = FalseCommand9.Enabled = FalseCommand11.Enabled = FalseCommand13.Enabled = FalseCommand12.Enabled = FalseDim str As StringSet cat.ActiveConnection = connTreeView1.LabelEdit = tvwManualFor Each tbl In cat.Tables str = tbl.Name If Right(str, 2) = 评语 Then Set mnode = TreeView1.Nodes.Add() mnode.Text = str Dim i As Integer Dim nodeindex As Integer nodeindex = mnode.Index For i = 0 To tbl.Columns.Count - 1 Set mnode = TreeView1.Nodes.Add(nodeindex, tvwChild) mnode.Text = tbl.Columns.Item(i).Name Next End IfNextExit Subopenerror: MsgBox Err.DescriptionEnd SubPrivate Sub List1_Click()Dim i As Longrs1.Requeryrs1.MoveFirsti = CLng(List1.ListIndex)rs1.Move iID_num = rs1.Fields(0)selstu = TruedisplaystudentdisplaypyEnd SubPublic Sub displaystudent()Label2.Caption = rs1.Fields(1)Label4.Caption = rs1.Fields(0)Label6.Caption = rs1.Fields(2)End SubPublic Sub displaypy()Dim rs As New ADODB.RecordsetDim sql As StringDim cnt As IntegerDim i As IntegerOn Error GoTo displaypyerrorrs.CursorLocation = adUseClientsql = select * from 学生操行 where 学号= & ID_num & & order by 学期rs.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs.EOF = False Then rs.MoveFirstElse MsgBox 该生没有评语！, vbOKOnly + vbExclamation, Exit SubEnd IfText1(0).Text = 文本框清空While rs.EOF = False Text1(0).Text = Text1(0).Text & vbCrLf & 第 & rs.Fields(1) & 学期 & vbCrLf & Space(2) & _ rs.Fields(2) & vbCrLf & Space(10) & rs.Fields(3) & Space(2) & rs.Fields(4) rs.MoveNextWendrs.MovePreviousxq = rs.Fields(1)rs.CloseExit Subdisplaypyerror: MsgBox Err.DescriptionEnd SubPrivate Sub List2_Click()weihupy.Enabled = TrueEnd SubPrivate Sub modifypyxm_Click()Command11_ClickEnd SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)On Error GoTo clickerrorDim i As IntegerDim rs As New ADODB.RecordsetDim sql As Stringi = TreeView1.SelectedItem.Indexpymanage.Enabled = TrueDim a As IntegerCommand9.Enabled = TrueCommand11.Enabled = TrueCommand12.Enabled = TrueCommand13.Enabled = TrueIf TreeView1.SelectedItem.Children 0 Then txttbl = TreeView1.SelectedItem.Text If TreeView1.SelectedItem.Expanded = True Then TreeView1.SelectedItem.Expanded = False Else TreeView1.SelectedItem.Expanded = True End IfElse If InStr(TreeView1.SelectedItem.FullPath, ) 0 Then txttbl = TreeView1.SelectedItem.Parent.Text txtfield = TreeView1.SelectedItem.Text str1 = txttbl str2 = txtfield sql = select & txtfield & from & txttbl rs.Open sql, conn, adOpenKeyset, ad
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号