VB506 基于VB天地销售公司办公邮件收发系统

电子邮件不是一种“终端到终端”的服务,是被称为“存贮转发式”服务。这正是电子信箱系统的核心，利用存贮转发可进行非实时通信，属异步通信方式。即信件发送者可随时随地发送邮件，不要求接收者同时在场，即使对方现在不在，仍可将邮件立刻送到对方的信箱内,且存储在对方的电子邮箱中。接收者可在他认为方便的时候读取信件,不受时空限制。在这里,“发送”邮件意味着将邮件放到收件人的信箱中,而“接收”邮件则意味着从自己的信箱中读取信件,信箱实际上是由文件管理系统支持的—个实体。因为电子邮件是通过邮件服务器(mai1 server)来传递档的。通常mail server是执行多任务操作系统UNIX的计算机，它提供24小时的电子邮件服务,用户只要向 mail server管理人员申请—个信箱账号,就可使用这项快速的邮件服务。
电子邮件的工作原理：
1) 电子邮件系统是一种新型的信息系统,是通信技术和计算机技术结合的产物。
电子邮件的传输是通过电子邮件简单传输协议(Simple Mail Transfer Protocol,简称SMTP)这一系统软件来完成的,它是Internet下的一种电子邮件通信协议。
2) 电子邮件的基本原理,是在通信网上设立“电子信箱系统”，它实际上是一个计算机系统。系统的硬件是一个高性能、大容量的计算机。硬盘作为信箱的存储介质,在硬盘上为用户分一定的存储空间作为用户的“信箱”，每位用户都有属于自己的—个电子信箱。并确定—个用户名和用户可以自己随意修改的口令。存储空间包含存放所收信件、编辑信件以及信件存盘三部分空间,用户使用口令开启自己的信箱,并进行发信、读信、编辑、转发、存档等各种操作。系统功能主要由软件实现。 copyright think58

[资料来源：THINK58.com]

 开发环境及运行环境
1．3．1  开发环境
AMD Athlon(TM)，512M内存，80G硬盘
Microsoft® Windows™ XP Professional
Microsoft® Visual Basic 6.0
1．3．2  运行环境
Intel® Pentium® 2及以上处理器，32M以上内存，4G以上硬盘
Microsoft® Windows™ 9X/NT操作系统
800*600或以上的屏幕分辨率 think58

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

一条SQL语句的结果作为另一条SQL语句的输入。
SQL不要求用户指定对数据的存放方法， 这种特性使用户更易集中精力于要得到的结果；所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。
统一的语言：SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。
SQL为许多任务提供了命令，其中包括：
查询数据
2、 在表中插入、修改和删除记录
3、 建立、修改和删除数据对象
4、 控制对数据和数据对象的存取
5、 保证数据库一致性和完整性
   以前的数据库管理系统为上述各类操作提供单独的语言，而SQL 将全部任务统一在一种语言中。所有关系数据库的公共语言：由于所有主要的关系数据库管理系统都支持SQL语言，用户可将使用SQL的技能从一个RDBMS(关系数据库管理系统)转到另一个，所有用SQL编写的程序都是可以移植的。 think58好，好think58 [资料来源：http://THINK58.com]

Private Sub Command1_Click()
'On Error Resume Next
If Text1(2) <> Text1(3) Then
    MsgBox "两次输入的密码不一样，请重新输入", , "提示"
    Text1(2) = ""
    Text1(3) = ""
    Text1(2).SetFocus
    Exit Sub
End If
Set Cnn = New ADODB.Connection
    Cnn.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=yx"
    Cnn.ConnectionTimeout = 30
    Cnn.Open
     rst.Open "select * From yh", Cnn, adOpenKeyset, adLockOptimistic
     Call Checkzc("邮箱", Text1(1), Me, 2)
    If Fh = 1 Then
        rst.Close
        Cnn.Close
        Fh = 0
        Exit Sub
    Else
        rst.AddNew copyright think58 [资料来源：http://think58.com]
            For i = 0 To 2
                rst.Fields(i) = Text1(i)
            Next i
            rst.Fields("权限") = "普通"
        rst.Update
        rst.Close
        '------------------------------------------
        rst1.Open "select * From gl", Cnn, adOpenKeyset, adLockOptimistic
        rst1.AddNew
            rst1.Fields(0) = "0"
            rst1.Fields(1) = "0"
            rst1.Fields(2) = Text1(1) think58 [资料来源：http://think58.com]
        rst1.Update
               MsgBox "注册成功！", , "提示"
        For i = 0 To 3
           Text1(i) = ""
        Next i
             Cnn.Close
        Fy = 0
    End If
End Sub
Private Sub Command2_Click()
If St = 1 Then
    Fmain.Enabled = True
   Else
    Frmlogin.Show
End If
    Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If St = 1 Then
    Fmain.Enabled = True
    St = 0
    Unload Me
Else
    Frmlogin.Show
    Unload Me
End If
End Sub

 地址本即通讯录，可以实现联系人及其邮件地址的储存，该功能方便了邮件用户，避免查询地址的麻烦，设计代码如下：
Private Sub Cmdaddnew_Click()
'On Error Resume Next
If Cmdaddnew.Caption = "新增联系人" Then
    Cmdaddnew.Caption = "确定"
    For i = 0 To 3
        Text4(i).Locked = False
        Text4(i).Text = ""
        Text4(0).SetFocus
        Cmddelete.Enabled = False
    Next i
    Fy = 1
Else
    For i = 0 To 3
        If Text4(i) = "" Then
            MsgBox "请将信息输入完整！", vbCritical, "提示"
            Text4(i).SetFocus
            Exit Sub

[资料来源：THINK58.com]

        End If
    Next i
    Set Cnn = New ADODB.Connection
    Cnn.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=yx"
    Cnn.ConnectionTimeout = 30
    Cnn.Open
        rst.Open "select * From txl", Cnn, adOpenKeyset, adLockOptimistic
        rst.AddNew
        For i = 0 To 3
            rst.Fields(i) = Text4(i)
        Next i
        rst.Fields("用户名") = GetName
        rst.Update
        Adodc1.Refresh
              For i = 0 To 3
           Text4(i) = "" [资料来源：http://THINK58.com]
           Text4(i).Locked = True
        Next i
        Cmdaddnew.Caption = "新增联系人"
        Cmddelete.Enabled = True
    rst.Close
    Cnn.Close
    Fy = 0

copyright think58

转眼间毕业设计即将完成，我们的答辩也即将来临，接着我们的大学生活即将画上一个句点，此时的心里真的是百般滋味萦绕心头，既有毕业设计完成的高兴，也有即将离开大学生活的失落和惆怅，但无论怎样，我想毕业设计这一环节对我的意义最大，因为它检验了我们三年大学所学到的知识，在这一阶段里我发现了自己的不足，也努力弥补了自己的不足。在这一阶段，我从毕业设计里所学到的东西对我以后踏入工作岗位也有着重要的指导意义。
学习心得与收获：转眼间三年半的专业课学习就这样匆匆的画上了句号，曾经以为三年的大学生活是漫长的，可是就在这样不经意间，让时间悄悄的从指尖滑走，当要静下心里要做毕业设计的时候，居然不知道自己掌握了什么，在计算机专业知识方面，所学过的编程语言不下一门，有VC++，有java，有c语言，有VB6.0，然而当我们要将我们所学到的理论知识应用于实际，用它作为一门工具来开发软件系统的时候，我竟真的茫然了，因为我觉得自己什么都没有掌握到，似乎每门功课的学习都是为了应付最后的考试，并没有真正深入的涉及到某一门语言学习上。
最终，我选择了用VB6.0语言来进行软件设计，这是因为我已经自学这种语言一段时间了，而且我曾经自学过SQL Sever数据库。VB6.0具有可视化开发环境的性能和高效率的编程功能。SQL Sever 数据库是Office软件包的成员致意，SQL Sever 数据库擅长对数据进行处理，例如建立、排序、分类及汇总数据等操作。除此之外，美化数据输入界面的窗体、数据访问页，加强所见及所得的报表，再加上SQL Sever 数据库所擅长宏与模块功能，奠定了SQL Sever 数据库在小型数据库系统的领先地位。SQL Sever 数据库推出后，新增并强化了许多功能，在其他Office软件中能够用到的功能都出现在其中，不用再跨越两个软件进行操作，这种整和给用户提供了极大的方便。

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

在这几个月内我也强烈感觉到自身的不足，发觉自己三年的大学生活没有充分利用起来，所谓书到用时方恨少，我常想，如果我能够把我在最后设计阶段的学习热情和态度运用到三年的学习当中去，那么我现在的毕业设计也就不会这样辛苦了，而我的专业水平也一定会到达另外一个层次。那么，为什么我在最后设计阶段无论是学习效率还是态度方面都比我三年中任何时候都要好呢，那是源于压力，有压力才会有动力，我们平时就是太不会给自己施加压力，所以才会放纵自己浪费了那么多宝贵时间。另外，毕业设计也让我锻炼了自己缜密的思维方式，在考虑问题的时候要更加细心，要照顾到方方面面，处理好各个环节之间的关系，这样才能让整个系统更好的运行起来。
我想当我们踏上工作岗位的时候，无论如何都要时时刻刻给自己施加压力，社会在不断进步，科学知识在不断更新，稍微懈怠，我们便会被这个社会所淘汰，我们应该把毕业设计阶段的学习态度以及学到的知识运用到以后的工作当中去，这样才不负毕业设计的意义所在。
 
参考文献
[1] Simon Robinson, K.Scott Allen等.C#高级编程. 北京:清华大学出版社,  2002,3
[2] Tom  Archer.  C#技术内幕.                北京:清华大学出版社,  2002,1

think58好，好think58 [来源：http://think58.com]

[3]沉舟.Microsoft.NET编程语言C#.            北京:希望电子出版社  2001,3
[4]罗军舟,黎波涛,杨明等.TCP/IP 协议及网络编程技术. 北京: 清华大学出版                                                             2004,10
[5] Tim Parker .TCP/IP 协议及网络编程技术.     北京: 机械工业出版社 , 2000,7
[6] 周存杰 .  Visual C#.NET网络核心编程.    北京:清华大学出版社,  2002,11
[7] 电脑编程技巧与维护杂志社.C#编程技巧典型案例解析. 北京:中国电力出版社,
2005,8
[8] 云颠工作室.  Visual C#中文版全面剖析.    北京:中国水利水电出版社,  2003,5
[9] 叶树华 《电子协议与编程》,《电子邮件格式》,《电子邮件接收》,《mime 编码解码与发送附件》 think58好，好think58 [资料来源：http://THINK58.com]
[10] MSDN中文网站网络广播   C#设计模式纵谈
http://www.microsoft.com/china/msdn/events/webcasts/shared/Webcast/MSDNWebCast.aspx
[11] 滁州,马金虎,朱力勇. 编写基于SMTP网络应用程序.    电脑爱好者,2003,5:92~94  
[12] 滁州,马金虎,朱力勇. 编写基于POP3网络应用程序.     电脑爱好者,2003,6:92~94
[13] 潘泰国. 新一代电子邮件系统.      电子技术应用.       1992,11 
[14] 代继红. SMTP认证机制模块化设计及实现.      中南民族大学学报(自然科学版),
2005,4
[15] 胡安廷. 简单实现中文邮件.      中国计算机报,    2004,11
think58 [资料来源：THINK58.com]