急求VB+ACCESS学生信息管理系统源码(一定要可以运行的哦)

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:46:38
因为要工作所以没时间做毕业设计，希望大家帮帮忙 谢谢.
我的邮箱是 aopeihua222@sina.com

发消息到170434961，我发给你份~~~~
我们本学期的大作业就是这个，已经做完了我！

付rmb吗,专门打造

加273206483

学生档案管理系统 vb

——————————————附录程序清单及注释
程序清单6.1
Option Explicit
Dim Fi
leName As String '文件名，用于打开、保存文件
Dim UndoString As String '用于 Undo 操作
Dim UndoNew As String '用于 Undo 操作

Private Sub ImgUndoDisable()
'禁用“Undo”按钮
UndoString = ""
UndoNew = ""
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
End Sub

Private Sub ImgUndoEnable()
'有效“Undo”按钮
ImgUndo.Enabled = True
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End Sub

Private Sub Check_ImgPaste()
'设置粘贴按钮
If Len(Clipboard.GetText) > 0 Then
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.Lis