论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > 计算机科学与技术 >

基于vb和xml的个人资料编辑器的实现(论文+程序)

4              主要模块编码实现4.1   程序主窗体界面 paper51.com

Main.frm的程序操作界面如下图4。

copyright paper51.com

内容来自www.paper51.com

图4 个人资料编辑器主窗口

内容来自论文无忧网 www.paper51.com

(1)程序声明: http://www.paper51.com

Private ConstTBL_ALERT As Integer=0 内容来自论文无忧网 www.paper51.com

Private ConstTBL_ACCOUNTINDEX As Integer=1

http://www.paper51.com

Private ConstTBL_DIARY As Integer=2

http://www.paper51.com

Private ConstTBL_DOCINFO As Integer=3 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

copyright paper51.com

Private ConstTBL_ADDRESSLIST As Integer=7 copyright paper51.com

Private ConstDISPLAY_LENTGH As Integer =30

http://www.paper51.com

Public dbObj AsClsXmlProc  

内容来自www.paper51.com

Privatesalary_in_out As Boolean    '收入还是支出(True:支出;False:收入)

paper51.com

'数据排序

内容来自www.paper51.com

Private saveSortBwAs Integer        '备忘

内容来自www.paper51.com

Private saveSortXtAs Integer        '系统 内容来自www.paper51.com

Private saveSortJsAs Integer        '记事 内容来自论文无忧网 www.paper51.com

Private saveSortTxAs Integer        '通讯 http://www.paper51.com

Private saveSortSzAs Integer        '收支

内容来自www.paper51.com

Private saveSortWdAs Integer        '文档 内容来自论文无忧网 www.paper51.com

Public typeBw AsCollection paper51.com

Public typeXt AsCollection paper51.com

Public typeJs AsCollection

内容来自www.paper51.com

Public typeTx AsCollection paper51.com

Public typeSz_in AsCollection 内容来自www.paper51.com

Public typeSz_outAs Collection

内容来自www.paper51.com

Public typeWd AsCollection

http://www.paper51.com

Private MSFlexGrid_wdOldRowAs Integer   '用于保存文档操作时上次选择的行

内容来自www.paper51.com

PrivateUpLoadFilePath As String        '上传文件保存的文件夹

paper51.com

(2)以下是菜单栏中关于和系统按钮代码: paper51.com

Private SubMenuAbout_Click()

内容来自论文无忧网 www.paper51.com

   Call MsgBox("陈宝献版权所有!",vbExclamation)

内容来自www.paper51.com

End Sub

http://www.paper51.com

Private SubMenuAddUser_Click()

http://www.paper51.com

    AddForm.manageType=() copyright paper51.com

    AddForm.Label2.Caption = "密码" 内容来自www.paper51.com

    AddForm.Label3.Visible=False 内容来自论文无忧网 www.paper51.com

    AddForm.TxtOld.Visible=False

内容来自www.paper51.com

    AddForm.Caption="用户管理-添加用户"

内容来自论文无忧网 www.paper51.com

    AddForm.Show vbModal

copyright paper51.com

End Sub

http://www.paper51.com

Private SubMenuChangePass_Click() copyright paper51.com

    AddForm.manageType=1 copyright paper51.com

    AddForm.Label2.Caption="新密码"

paper51.com

    AddForm.Label3.Visible=True http://www.paper51.com

    AddForm.TxtOld.Visible=True 内容来自www.paper51.com

    内容来自论文无忧网 www.paper51.com

    AddForm.Caption="用户管理-修改密码"

copyright paper51.com

    AddForm.Show vbModal copyright paper51.com

End Sub

http://www.paper51.com

Private SubMenuDelete_Click()

内容来自论文无忧网 www.paper51.com

     AddForm.manageType=2

paper51.com

     AddForm.Label2.Caption="密码" copyright paper51.com

     AddForm.Label3.Visible=False paper51.com

    AddForm.TxtOld.Visible=False

copyright paper51.com

     AddForm.Caption="用户管理-删除用户" paper51.com

    AddForm.Show vbModal

paper51.com

End Sub

paper51.com

Private SubMenuExit_Click()   '退出程序

http://www.paper51.com

    End copyright paper51.com

End Sub 内容来自论文无忧网 www.paper51.com

Private SubMenuRestart_Click()  '重新登陆 paper51.com

    LoginForm.Text1=""

paper51.com

    LoginForm.Combo1.Text="" 内容来自论文无忧网 www.paper51.com

    LoginForm.init paper51.com

    LoginForm.Show copyright paper51.com

    MainForm.Hide  

paper51.com

End Sub     paper51.com

4.2   文档管理模块程序

copyright paper51.com

WdForm.frm的界面如下图5:

copyright paper51.com

copyright paper51.com

图5 文档管理块窗口 paper51.com

文档上传功能代码:

copyright paper51.com

Private SubCmdSc_Click() http://www.paper51.com

    Dim fos As FileSystemObject

内容来自论文无忧网 www.paper51.com

    Dim extensionName 内容来自论文无忧网 www.paper51.com

        Set fos=New FileSystemObject

paper51.com

    CommonDialog1.ShowOpen

内容来自www.paper51.com

    If CommonDialog1.fileName<> "" Then

copyright paper51.com

        IfNot fos.FileExists(CommonDialog1.fileName) Then 内容来自论文无忧网 www.paper51.com

        copyright paper51.com

------分隔线----------------------------
联系方式