|
4 主要模块编码实现4.1 程序主窗体界面 paper51.com Main.frm的程序操作界面如下图4。 内容来自论文无忧网 www.paper51.com http://www.paper51.com 图4 个人资料编辑器主窗口 内容来自论文无忧网 www.paper51.com （1）程序声明： 内容来自论文无忧网 www.paper51.com Private ConstTBL_ALERT As Integer=0 paper51.com Private ConstTBL_ACCOUNTINDEX As Integer=1 paper51.com Private ConstTBL_DIARY As Integer=2 copyright paper51.com
Private ConstTBL_DOCINFO As Integer=3 copyright paper51.com Private ConstTBL_FILEINFO As Integer=4 http://www.paper51.com Private ConstTBL_SALARY As Integer=5 内容来自论文无忧网 www.paper51.com Private ConstTBL_SELECTINFO As Integer=6 paper51.com Private ConstTBL_ADDRESSLIST As Integer=7 内容来自www.paper51.com
Private ConstDISPLAY_LENTGH As Integer =30 内容来自论文无忧网 www.paper51.com Public dbObj AsClsXmlProc paper51.com Privatesalary_in_out As Boolean '收入还是支出(True:支出;False:收入) paper51.com '数据排序 内容来自www.paper51.com Private saveSortBwAs Integer '备忘 copyright paper51.com Private saveSortXtAs Integer '系统 copyright paper51.com Private saveSortJsAs Integer '记事 内容来自www.paper51.com Private saveSortTxAs Integer '通讯 copyright paper51.com
Private saveSortSzAs Integer '收支 http://www.paper51.com Private saveSortWdAs Integer '文档 copyright paper51.com Public typeBw AsCollection paper51.com
Public typeXt AsCollection paper51.com Public typeJs AsCollection copyright paper51.com
Public typeTx AsCollection copyright paper51.com Public typeSz_in AsCollection http://www.paper51.com Public typeSz_outAs Collection paper51.com Public typeWd AsCollection paper51.com Private MSFlexGrid_wdOldRowAs Integer '用于保存文档操作时上次选择的行 内容来自论文无忧网 www.paper51.com PrivateUpLoadFilePath As String '上传文件保存的文件夹 内容来自www.paper51.com
（2）以下是菜单栏中关于和系统按钮代码： 内容来自论文无忧网 www.paper51.com
Private SubMenuAbout_Click() 内容来自论文无忧网 www.paper51.com Call MsgBox("陈宝献版权所有!"，vbExclamation) paper51.com End Sub copyright paper51.com Private SubMenuAddUser_Click() copyright paper51.com AddForm.manageType=() paper51.com AddForm.Label2.Caption = "密码" copyright paper51.com
AddForm.Label3.Visible=False 内容来自www.paper51.com AddForm.TxtOld.Visible=False copyright paper51.com AddForm.Caption="用户管理-添加用户" 内容来自论文无忧网 www.paper51.com
AddForm.Show vbModal paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private SubMenuChangePass_Click() 内容来自论文无忧网 www.paper51.com AddForm.manageType=1 内容来自论文无忧网 www.paper51.com AddForm.Label2.Caption="新密码" paper51.com AddForm.Label3.Visible=True http://www.paper51.com AddForm.TxtOld.Visible=True copyright paper51.com
copyright paper51.com
AddForm.Caption="用户管理-修改密码" http://www.paper51.com AddForm.Show vbModal 内容来自论文无忧网 www.paper51.com
End Sub paper51.com
Private SubMenuDelete_Click() 内容来自www.paper51.com AddForm.manageType=2 http://www.paper51.com AddForm.Label2.Caption="密码" paper51.com
AddForm.Label3.Visible=False 内容来自论文无忧网 www.paper51.com AddForm.TxtOld.Visible=False http://www.paper51.com AddForm.Caption="用户管理-删除用户" 内容来自论文无忧网 www.paper51.com AddForm.Show vbModal http://www.paper51.com End Sub paper51.com
Private SubMenuExit_Click() '退出程序 内容来自论文无忧网 www.paper51.com End http://www.paper51.com
End Sub http://www.paper51.com Private SubMenuRestart_Click() '重新登陆 内容来自www.paper51.com LoginForm.Text1="" copyright paper51.com LoginForm.Combo1.Text="" 内容来自论文无忧网 www.paper51.com LoginForm.init http://www.paper51.com
LoginForm.Show 内容来自论文无忧网 www.paper51.com
MainForm.Hide 内容来自www.paper51.com End Sub 内容来自www.paper51.com 4.2 文档管理模块程序 http://www.paper51.com WdForm.frm的界面如下图5： 内容来自www.paper51.com
http://www.paper51.com
图5 文档管理块窗口 内容来自论文无忧网 www.paper51.com
文档上传功能代码： http://www.paper51.com Private SubCmdSc_Click() 内容来自www.paper51.com Dim fos As FileSystemObject 内容来自www.paper51.com Dim extensionName 内容来自www.paper51.com Set fos=New FileSystemObject 内容来自www.paper51.com CommonDialog1.ShowOpen 内容来自论文无忧网 www.paper51.com
If CommonDialog1.fileName<> "" Then 内容来自论文无忧网 www.paper51.com IfNot fos.FileExists(CommonDialog1.fileName) Then paper51.com
内容来自论文无忧网 www.paper51.com |