VB519 合同管理系统的设计VB+ACCESS

为了使企业的管理面向电〖本文来自：计算机毕业网  〗子化，高效率，可以通过设计一个系统与一些有固定关系的合作伙伴直接建立电子商务活动，如订单下达、查询库存量信息、产品售后服务等;并且，将这样的系统和已有的企业管理和业务系统联系起来，构筑成能够及时反应的商务系统。从而更加快捷地与客户和供应商交往，提高企业运作效率。将这样的系统同时提供给可能分布于全国乃至世界各地的分支机构、联营公司、办事处等企业内部使用，能够极大地提高企业管理水平。合同管理作为企业管理的中间环节，有着尤为重要的意义。针对定状况，编制了本合同管理系统软件（TMS），旨在为企业全同管理找到一种便捷、有效的方法和途径，主要面向企业项目合同的管理。 copyright think58 [资料来源：http://think58.com]

系统综合管理模块包括三部分，权限设置模块，添加用户模块，客户资料添加模块。权限设置模块可以进行权限的设置；添加用户模块主要是添加系统使用用户；
用户的每一步操作都会被系统记录，日志管理模块向用户显示的所有操作记录，但只有足够权限的用户才能进入日志管理模块查看。包括用户的相应操作时间、操作的描述、操作成功与否的记录并可以对日志按时间进行筛选，查询结果以列表方式显示，可以对日志进行删除操作。
数据备份模块，对数据库进行实时备份，默认情况下对数据和日志进行完全复制备份，如果SQL Server服务器的鼓掌恢复模型设置为[简单]，则只对数据备份，如果设置为[完全]，则可对数据和日志进行备份。数据备份的路径可以使用默认备份路径，默认备份路径可以在系统配置文件web.config中更改，只需修改AppSettings下的dataBackupPath键值。也可以手动输入备份路径。
数据恢复模块，要求用户填写数据恢复文件和日志恢复文件的路径，恢复成功后要求重新启动服务器，因为所有数据库contract的连接都被中断。

  If Trim(Text1(0).Text) = "" Or Not IsNumeric(Text1(0).Text) Then
            MsgBox "编号错误", vbOKOnly + vbExclamation, ""
            Exit Sub
            Text1(0).SetFocus
        Else
            If bUser = False Then
                sql = "select * from 合同表单"
            Else
                sql = "select * from 用户添加"
            End If
            Call OpenConn
            rs.Open sql, cn, adOpenKeyset, adLockPessimistic 内容来自think58 [资料来源：http://THINK58.com]
            While (rs.EO〖本文来自：计算机毕业网  〗F = False)
                If Trim(rs.Fields(0)) = Val(Trim(Text1(0).Text)) Then
                    MsgBox "已有这个合同编号", vbOKOnly + vbExclamation, ""
                    Text1(0).SetFocus
                    Exit Sub
                Else
                    rs.MoveNext
                End If

[资料来源：THINK58.com]

            Wend
            rs.AddNew
            rs.Fields(0) = Text1(0).Text
            rs.Fields(1) = Text1(1).Text
            rs.Fields(2) = Text1(2).Text
            rs.Fields(3) = Text1(3).Text
            rs.Fields(4) = Text1(4).Text
            rs.Fields(5) = MaskEdBox1(0).Text
            rs.Fields(6) = MaskEdBox1(1).Text
            rs.Fields(7) = MaskEdBox1(2).Text
            rs.Fields(8) = Text1(5).Text 内容来自think58 [版权所有：http://think58.com]
            rs.Fields(9) = Combo1(0).Text
            rs.Fields(10) = Combo1(1).Text
            rs.Fields(11) = Text1(6).Text
            rs.Fields(12) = Text1(7).Text 本文来自think58 [资料来源：http://www.THINK58.com]

            rs.Update
            Call CloseConn
            If bUser = False Then
                MsgBox "添加合同成功", vbOKOnly + vbExclamation, ""
                Call Updata(1)
            Else
                MsgBox "添加申请提交成功！", vbOKOnly + vbExclamation, ""
                Call Updata(4)
            End If
            '            Form1.MSFlexGrid1.Row = Form1.MSFlexGrid1.Rows - 1 think58 [来源：http://think58.com]
            '            Form1.MSFlexGrid1
            '            For i = 0 To 12
            '                Form1.MSFlexGrid1.Col = i
            '                Form1.MSFlexGrid1.Text = rs.Fields(i)
            '            Next i
        End If

think58.com [版权所有：http://think58.com]

[资料来源：http://THINK58.com]

 参考文献
[1] 龚波。SQL Server 2000 教程[M] 北京：北京希望电子出版社 2002.07
[2] 萨师煊，王珊。 数据库系统概论[M]  第一版。北京：高等教育出版社 2000.02
[3] 邹建峰，李晓栓. ASP.NET开发技术详解[M] 北京：人民邮电出版社 2005.04
[4]  Karli Watson,Marco Bellinaso.C#入门经典[M] 北京：清华大学出版社2005.1
[5] 吴晨.ASP.NET数据库项目案例导航[M] 北京：清华大学出版社 2005.07
[6] 邓健，张宁.ASP.NET网站开发四“酷”全书[M] 北京：电子工业出版社 2005.12
[7] 张海藩。软件工程导轮 第四版[M] 北京：清华大学出版社 2005.06
[8] 韩万江，姜立新。软件项目管理案例教程[M] 北京：机械工业出版社 2005.09
[9] 杨恩惠。Web开发技术基础教程[M] 北京：电子工业出版社 2003.01
[10] Ken Lunn 。 UML软件开发[M]  北京：电子工业出版社 2005.01
[11] 中文版Microsoft Office 2000 自学通[M] 作者：Ned Snell 出版社：机械工业出版社
[12] Visual Basic 6.0 中文版控件大全[M] 作者：Microsoft  出版社:电子工业出版社〖本文来自：计算机毕业网  〗
[13]《MSDN Online》  http://www.microsoft.com/chian/msdn [资料来源：http://THINK58.com]
[14] 徐京辉, 刘　杰。基于B/ S 模式的社区电子政务系统设计[J] 北京：计算机应用研究，2003年第8期，112-114
[15] 王成良，伍艳妮。构建基于.NET的可扩展性Web应用程序基础架构[J] 北京：计算机应用研究，2005年第2卷，152-154

本文来自think58 [来源：http://think58.com]

[资料来源：http://think58.com]