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

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

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

内容来自论文无忧网 snowings.com

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

http://snowings.com

内容来自snowings.com

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

内容来自snowings.com

(1)程序声明: 内容来自论文无忧网 snowings.com

Private ConstTBL_ALERT As Integer=0 http://snowings.com

Private ConstTBL_ACCOUNTINDEX As Integer=1

内容来自snowings.com

Private ConstTBL_DIARY As Integer=2

copyright paper51.com

Private ConstTBL_DOCINFO As Integer=3 paper51.com

Private ConstTBL_FILEINFO As Integer=4 内容来自snowings.com

Private ConstTBL_SALARY As Integer=5 paper51.com

Private ConstTBL_SELECTINFO As Integer=6

内容来自论文无忧网 snowings.com

Private ConstTBL_ADDRESSLIST As Integer=7 paper51.com

Private ConstDISPLAY_LENTGH As Integer =30

内容来自snowings.com

Public dbObj AsClsXmlProc  

http://snowings.com

Privatesalary_in_out As Boolean    '收入还是支出(True:支出;False:收入) 内容来自论文无忧网 snowings.com

'数据排序 内容来自snowings.com

Private saveSortBwAs Integer        '备忘 内容来自论文无忧网 snowings.com

Private saveSortXtAs Integer        '系统

内容来自snowings.com

Private saveSortJsAs Integer        '记事 copyright paper51.com

Private saveSortTxAs Integer        '通讯

copyright paper51.com

Private saveSortSzAs Integer        '收支 paper51.com

Private saveSortWdAs Integer        '文档 copyright paper51.com

Public typeBw AsCollection

http://snowings.com

Public typeXt AsCollection 内容来自论文无忧网 snowings.com

Public typeJs AsCollection 内容来自论文无忧网 snowings.com

Public typeTx AsCollection 内容来自论文无忧网 snowings.com

Public typeSz_in AsCollection 内容来自snowings.com

Public typeSz_outAs Collection copyright paper51.com

Public typeWd AsCollection

http://snowings.com

Private MSFlexGrid_wdOldRowAs Integer   '用于保存文档操作时上次选择的行 http://snowings.com

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

内容来自snowings.com

(2)以下是菜单栏中关于和系统按钮代码: 内容来自snowings.com

Private SubMenuAbout_Click()

内容来自snowings.com

   Call MsgBox("陈宝献版权所有!",vbExclamation) 内容来自snowings.com

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

Private SubMenuAddUser_Click()

copyright paper51.com

    AddForm.manageType=()

内容来自snowings.com

    AddForm.Label2.Caption = "密码"

内容来自论文无忧网 snowings.com

    AddForm.Label3.Visible=False copyright paper51.com

    AddForm.TxtOld.Visible=False

内容来自论文无忧网 snowings.com

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

copyright paper51.com

    AddForm.Show vbModal

paper51.com

End Sub 内容来自snowings.com

Private SubMenuChangePass_Click() 内容来自论文无忧网 snowings.com

    AddForm.manageType=1 内容来自论文无忧网 snowings.com

    AddForm.Label2.Caption="新密码" 内容来自snowings.com

    AddForm.Label3.Visible=True 内容来自论文无忧网 snowings.com

    AddForm.TxtOld.Visible=True

paper51.com

    http://snowings.com

    AddForm.Caption="用户管理-修改密码" 内容来自论文无忧网 snowings.com

    AddForm.Show vbModal copyright paper51.com

End Sub

http://snowings.com

Private SubMenuDelete_Click() paper51.com

     AddForm.manageType=2 内容来自论文无忧网 snowings.com

     AddForm.Label2.Caption="密码"

paper51.com

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

    AddForm.TxtOld.Visible=False 内容来自论文无忧网 snowings.com

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

paper51.com

    AddForm.Show vbModal 内容来自论文无忧网 snowings.com

End Sub http://snowings.com

Private SubMenuExit_Click()   '退出程序 内容来自论文无忧网 snowings.com

    End

paper51.com

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

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

    LoginForm.Text1="" copyright paper51.com

    LoginForm.Combo1.Text=""

http://snowings.com

    LoginForm.init paper51.com

    LoginForm.Show

内容来自论文无忧网 snowings.com

    MainForm.Hide   内容来自snowings.com

End Sub    

内容来自论文无忧网 snowings.com

4.2   文档管理模块程序

paper51.com

WdForm.frm的界面如下图5:

paper51.com

copyright paper51.com

图5 文档管理块窗口

copyright paper51.com

文档上传功能代码: http://snowings.com

Private SubCmdSc_Click() http://snowings.com

    Dim fos As FileSystemObject http://snowings.com

    Dim extensionName http://snowings.com

        Set fos=New FileSystemObject

内容来自snowings.com

    CommonDialog1.ShowOpen

paper51.com

    If CommonDialog1.fileName<> "" Then

http://snowings.com

        IfNot fos.FileExists(CommonDialog1.fileName) Then

paper51.com

        paper51.com

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