VB结合SQL开发学校教务管理系统.doc

某某学院计算机科学与技术系课程设计报告课 程 名 数据库应用 设计题目 学校教务管理系统 班 级 08本科1班 专 业 计算机科学与技术 姓 名 某某某 指导教师 孙海霞 2010年8月制设计任务1.为系统创建存储过程并设置相应的属性2.创建5个存储过程3.对所创建的存储过程进行调用完成任务的思路、方法与算法： 学会怎样创建存储过程，掌握变量和字符类型的运用，以及怎样调用存储过程，在存储过程中可以按商店编号来查询、按职工编号查询、按会员编号查询、按会员编号和职工编号查询、按商店编号和职工编号查询，为了方便起见过程名要做到见名知意，以便阅读。程序框图：学校教务管理系统功能结构图：学校教务管理系统E-R图核心程序（对主要的语句要加注释）登陆界面截图：登陆界面vb代码：Public stu_flag As IntegerPublic cls_flag As IntegerPublic course_flag As IntegerPublic serverstr As StringPublic ueserstr As StringPublic passstr As StringPublic Function conn() As ADODB.ConnectionOn Error GoTo 1Set conn = New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQVExit Function1: MsgBox Err.Description EndEnd FunctionPrivate Sub Command1_Click()If Trim(Text1.Text) And Trim(Text2.Text) ThenDim rs As New Recordsetrs.Open select username from tb_user where username = & Me.Text1 & and password = & Me.Text2 & , conn, adOpenKeyset, adLockOptimisticIf Not rs.EOF ThenUnload Me 关闭frm_main.ShowElse MsgBox 用户名或密码不正确, vbCritical End If rs.Close Set rs = Nothing Else MsgBox 请输入用户名和密码, vbCritical End IfEnd SubPrivate Sub Command2_Click() 退出登录界面Unload MeEnd SubMDI主题窗口截图：MDI主题窗口代码：Private Sub 删除成绩信息_Click(Index As Integer)add_resultinfo.ShowEnd SubPrivate Sub 删除教师信息_Click(Index As Integer)add_teinfo.ShowEnd SubPrivate Sub 删除课程信息_Click(Index As Integer)add_courseinfo.ShowEnd SubPrivate Sub 删除学生信息_Click(Index As Integer)add_stuinfo.ShowEnd SubPrivate Sub 添加成绩信息_Click(Index As Integer)add_resultinfo.ShowEnd SubPrivate Sub 添加教师信息_Click(Index As Integer)add_teinfo.ShowEnd SubPrivate Sub 添加课程信息_Click(Index As Integer)add_courseinfo.ShowEnd SubPrivate Sub 添加学生信息_Click(Index As Integer)add_stuinfo.ShowEnd SubPrivate Sub 退出_Click(Index As Integer)Unload MeEnd SubPrivate Sub 信息查询_Click(Index As Integer)info.ShowEnd SubPrivate Sub 修改查询成绩信息_Click(Index As Integer)add_resultinfo.ShowEnd SubPrivate Sub 修改查询教师信息_Click(Index As Integer)add_teinfo.ShowEnd SubPrivate Sub 修改查询课程信息_Click(Index As Integer)add_courseinfo.ShowEnd SubPrivate Sub 修改查询学生信息_Click(Index As Integer)add_stuinfo.ShowEnd Sub学生信息管理界面：学生信息管理代码：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.AddNewrs.Fields(学号) = Text1.Textrs.Fields(姓名) = Text2.Textrs.Fields(性别) = Text3.Textrs.Fields(班级编号) = Text4.Textrs.Fields(民族) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 学生信息表 where 学号 = + Text1.Text + , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(姓名) = Text2.Textrs.Fields(性别) = Text3.Textrs.Fields(班级编号) = Text4.Textrs.Fields(民族) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command4_Click()rs.Closers.Open delete from 学生信息表 where 学号= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 学生信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQVrs.Open select * from 学生信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub教师信息管理界面：教师信息管理界代码：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.AddNewrs.Fields(教师号) = Text1.Textrs.Fields(姓名) = Text2.Textrs.Fields(性别) = Text3.Textrs.Fields(所在系) = Text4.Textrs.Fields(登录名) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 教师信息表 where 教师号= + Text1.Text + , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(姓名) = Text2.Textrs.Fields(性别) = Text3.Textrs.Fields(所在系) = Text4.Textrs.Fields(登录名) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command4_Click()rs.Closers.Open delete from 教师信息表 where 教师号= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 教师信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQVrs.Open select * from 教师信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub课程信息管理界面：课程信息管理代码：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.AddNewrs.Fields(课程号) = Text1.Textrs.Fields(课程名称) = Text2.Textrs.Fields(院系编号) = Text3.Textrs.Fields(学时) = Text4.Textrs.Fields(类别) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 课程信息表 where 课程名称= + Text1.Text + , con, 1, 3, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(课程号) = Text2.Textrs.Fields(院系编号) = Text3.Textrs.Fields(学时) = Text4.Textrs.Fields(类别) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command4_Click()rs.Closers.Open delete from 课程信息表 where 课程名称= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 课程信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQVrs.Open select * from 课程信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub成绩管理信息界面：成绩管理信息代码：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.AddNewrs.Fields(学号) = Text1.Textrs.Fields(课程号) = Text2.Textrs.Fields(教师号) = Text3.Textrs.Fields(分数) = Text4.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 教学成绩表 where 学号= + Text1.Text + , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(课程号) = Text2.Textrs.Fields(教师号) = Text3.Textrs.Fields(分数) = Text4.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command4_Click()rs.Closers.Open delete from 教学成绩表 where 学号= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 教学成绩表, con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQVrs.Open select * from 教学成绩表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub信息查询界面：信息查询界面代码：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.Closers.Open select * from 课程信息表 where 课程号 in (select 课程号 from 教学成绩表 where 教师号 in (select 教师号 from 教师信息表 where 姓名= + Text1.Text + ) , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 教师信息表 where 教师号 in (select 教师号 from 教学成绩表 where 课程号 in (select 课程号 from 课程信息表 where 课程名称= + Text2.Text + ), con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Closers.Open select * from 课程信息表 where 课程号 in (select 课程号 from 教学成绩表 where 学号 in (select 学号 from 学生信息表 where 姓名= + Text3.Text + ), con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQVrs.Open select * from 课程信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub解题结果及对结果的分析：总结：这次课程设计由王斌画商店职工会员的E-R图并将E-R图转化为关系模式，并一起讨论，增加了彼此之间的友谊，并熟练掌握了存储过程以及调用，弄清楚了以前未弄懂的知识点。还了解了怎样创建数据库、创建表和对表的修改插入数据、创建视图以及对完整性的约束的知识点。老师评语： 老师签名 年 月 日注：成绩分为优、良、中、及格、不及格五级附录资料：不需要的可以自行删除VB HOOK(钩子)超级无敌详细用法（介绍）hook是WINDOWS提供的一种消息处理机制，它使得程序员可以使用子过程来监视系统消息，并在消息到达目标过程前得到处理。 下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。关于HOOKS 使用HOOK 将会降低系统效率，因为它增加了系统处量消息的工作量。建议在必要时才使用HOOK，并在消息处理完成后立即移去该HOOK。HOOK链 WINDOWS提供了几种不同类型的HOOKS；不同的HOOK可以处理不同的消息。例如，WH_MOUSE HOOK用来监视鼠标消息。 WINDOWS为这几种HOOKS维护着各自的HOOK链。HOOK链是一个由应用程序定义的回调函数队列，当某种类型的消息发生时，WINDOWS向此种类型的HOOK链的第一个函数发送该消息，在第一函数处理完该消息后由该函数向链表中的下一个函数传递消息，依次向下。如果链中某个函数没有向下传送该消息，那么链表中后面的函数将得不到此消息。（对于某些类型的HOOK，不管HOOK链中的函数是否向下传递消息，与此类型HOOK联系的所有HOOK函数都会收到系统发送的消息）HOOK过程 为了拦截特定的消息，你可以使用SetWindowsHookEx函数在该类型的HOOK链中安装你自己的HOOK函数。该函数语法如下： public function MyHook(nCode,wParam,iParam) as long 加入代码 end function 其中MyHook可以随便命名，其它不能变。该函数必须放在模块段。nCode指定HOOK类型。wParam,iParam的取值随nCode不同而不同，它代表了某种类型的HOOK的某个特定的动作。 SetWindowsHookEx总是将你的HOOK函数放置在HOOK链的顶端。你可以使用CallNextHookEx函数将系统消息传递给HOOK链中的下一个函数。 注释对于某些类型的HOOK，系统将向该类的所有HOOK函数发送消息，这时，HOOK函数中的CallNextHookEx语句将被忽略。 全局HOOK函数可以拦截系统中所有线程的某个特定的消息（此时该HOOK函数必须放置在DLL中），局部HOOK函数可以拦截指定线程的某特定消息（此时该HOOK函数可以放置在DLL中，也可以放置在应用程序的模块段）。 注释 建议只在调试时使用全局HOOK函数。全局HOOK函数将降低系统效率，并且会同其它使用该类HOOK的应用程序产生冲突。HOOK类型 WH_CALLWNDPROC 和 WH_CALLWNDPROCRET HOOK WH_C ALLWNDPROC 和WH_CALLWNDPROCRET HOOK可以监视SendMessage发送的消息。系统在向窗体过程发送消息前，将调用WH_CALLWNDPROC；在窗体过程处理完该消息后系统将调用WH_CALLWNDPROCRET。 WH_CALLWNDPROCRET HOOK会向HOOK过程传送一个CWPRETSTRUCT结构的地址。该结构包含了窗体过程处理系统消息后的一些信息。 WH_CBT Hook 系统在激活，创建，消毁，最小化，最大化，移动，改变窗体前；在完成一条系统命令前；在从系统消息队列中移去鼠标或键盘事件前；在设置输入焦点前，或同步系统消息队列前，将调用WH_CBT HOOK。你可以在你的HOOK 过程拦截该类HOOK，并返回一个值，告诉系统，是否继续执行上面的操作。 WH_DEBUG HOOK 系统在调用与某种HOOK类型联系的HOOK过程前，将调用WH_DEBUG ，应用程序可以使用该HOOK决定是否让系统执行某种类型的HOOK。 WH_FOREGROUNDIDLE Hook 系统在空闲时调用该HOOK，在后台执行优先权较低的应用程序。 WH_GETMESSAGE Hook WH_GETMESSAGE Hook使应用程序可以拦截GetMessage 或 PeekMessage的消息。应用程序使用WH_GETMESSAGE HOOK监视鼠标、键盘输入和发送到队列中的其它消息。 WH_JOURNALRECORD Hook WH_JOURNALRECORD Hook使应用程序可以监视输入事件。典型地，应用程序使用该HOOK记录鼠标、键盘输入事件以供以后回放。该HOOK是全局HOOK，并且不能在指定线程中使用。 WH_JOURNALPLAYBACK Hook WH_JOURNALPLAYBACK Hook使应用程序可以向系统消息队列中插入消息。该HOOK可以回放以前由WH_JOURNALRECORD HOOK录制的鼠标、键盘输入事件。在WH_JOURNALPLAYBACK Hook安装到系统时，鼠标、键盘输入事件将被屏蔽。该HOOK同样是一个全局HOOK，不能在指定线程中使用。 WH_JOURNALPLAYBACK Hook返回一个时间暂停值，它告诉系统，在处理当前回放的消息时，系统等待百分之几秒。这使得此HOOK可以控制在回放时的时间事件。 WH_KEYBOARD Hook WH_KEYBOARD Hook使应用程序可以监视由GetMessage和PeekMessage返回的WM_KEYDOWN 及WM_KEYUP消息。应用程序使用该HOOK监视发送到消息队列中的键盘输入。 WH_MOUSE Hook WH_MOUSE Hook 使应用程序可以监视由GetMessage和PeekMessage返回的消息。应用程序使用该HOOK监视发送到消息队列中的鼠标输入。 WH_MSGFILTER and WH_SYSMSGFILTER Hooks WH_MSGFILTER 和WH_SYSMSGFILTER Hooks使应用程序可以监视菜单、滚动条、消息框、对话框，当用户使用ALT+TAB或ALT+ESC来切换窗体时，该HOOK也可以拦截到消息。WH_MSGFILTER仅在应用程序内部监视菜单、滚动条、消息框、对话框，而WH_SYSMSGFILTER则可以在系统内监视所有应用程序的这些事件。 WH_SHELL Hook 一个SHELL程序可以使用WH_SHELL Hook来接收重要的信息。当一个SHELL程序被激活前或当前窗体被创建、消毁时，系统会调用WH_SHELL Hook过程。 使用HOOK 安装、销毁HOOK过程 监视系统事件安装、销毁HOOK过程 使用SetWindowsHookEx函数，指定一个HOOK类型，自己的HOOK过程是全局还是局部HOOK，同时给出HOOK过程的进入点，就可以轻松的安装你自己的HOOK过程。Declare Function SetWindowsHookEx Lib user32 Alias SetWindowsHookExA _ (ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) As LongidHook代表是何种Hook，有以下几种 Public Const WH_CALLWNDPROC = 4 Public Const WH_CALLWNDPROCRET = 12 Public Const WH_CBT = 5 Public Const WH_DEBUG = 9 Public Const WH_FOREGROUNDIDLE = 11 Public Const WH_GETMESSAGE = 3 Public Const WH_HARDWARE = 8 Public Const WH_JOURNALPLAYBACK = 1 Public Const WH_JOURNALRECORD = 0 Public Const WH_KEYBOARD = 2 Public Const WH_MOUSE = 7 Public Const WH_MSGFILTER = (-1) Public Const WH_SHELL = 10 Public Const WH_SYSMSGFILTER = 6lpfn代表Hook Function所在的Address，这是一个CallBack Fucnction，当挂上某个Hook时，我们便得定义一个Function来当作某个讯息产生时，来处理它的Function，这个Hook Function有一定的叁数格式 Private Function HookFunc(ByVal nCode As Long, _ ByVal wParam As Long, _ ByVal lParam As Long ) As Long nCode 代表是什麽请况之下所产生的Hook，随Hook的不同而有不同组的可能值。 wParam lParam 传回值则随Hook的种类和nCode的值之不同而不同。 因这个叁数是一个 Function的Address所以我们固定将Hook Function放在.Bas中，并以AddressOf HookFunc传入。至於Hook Function的名称我们可以任意给定，不一定叫 HookFunchmod 代表.DLL的hInstance，如果是Local Hook，该值可以是Null(VB中可传0进去)，而如果是Remote Hook，则可以使用GetModuleHandle(.dll名称)来传入。dwThreadId 代表执行这个Hook的ThreadId，如果不设定是那个Thread来做，则传0(所以一般来说，Remote Hook传0进去)，而VB的Local Hook一般可传App.ThreadId进去。值回值 如果SetWindowsHookEx()成功，它会传回一个值，代表目前的Hook的Handle，这个值要记录下来。因为A程式可以有一个System Hook(Remote Hook)，如KeyBoard Hook，而B程式也来设一个Remote的KeyBoard Hook，那麽到底KeyBoard的讯息谁所拦截？答案是，最後的那一个所拦截，也就是说A先做keyboard Hook，而後B才做，那讯息被B拦截，那A呢？就看B的Hook Function如何做。如果B想让A的Hook Function也得这个讯息，那B就得呼叫CallNextHookEx()将这讯息Pass给A，於是产生Hook的一个连线。如果B中不想Pass这讯息给A，那就不要呼叫CallNextHookEx()。Declare Function CallNextHookEx Lib user32 Alias CallNextHookEx _ (ByVal hHook As Long, _ ByVal ncode As Long, _ ByVal wParam As Long, _ lParam As Any) As LonghHook值是SetWindowsHookEx()的传回值，nCode, wParam, lParam则是Hook Procedure中的三个叁数。最後是将这Hook去除掉，请呼叫UnHookWindowHookEx()Declare Function UnhookWindowsHookEx Lib user32 Alias UnhookWindowsHookEx _ (ByVal hHook As Long) As LonghHook便是SetWindowsHookEx()的传回值。此时，以上例来说，B程式结束Hook，则换A可以直接拦截讯息。KeyBoard Hook的范例Hook Function的三个叁数nCode wParam lParam 传回值HC_ACTION表按键Virtual Key与WM_KEYDOWN同若讯息要被处理传0或 反之传1HC_NOREMOVEPublic hHoo