VB503 基于VB上海人寿保险公司办公系统

本文根据上海人寿保险公司管理的现状及未来的发展方向,结合有关当代大型保险公司管理当中的管理学实践,设计了管理系统。本系统的建立以计算机技术和信息技术为依托,规范了管理系统中各要素的关系,使之规范化、标准化、程序化、科学化,形成各要素之间相互制约、层层把关,逻辑严密的体系,从而克服原来手工系统的效率低、工作繁重的缺点。
本系统是用于上海人寿保险公司办公管理的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高保险公司服务管理的工作效率。
该系统应充分利用信息技术提高保险公司的管理水平、信息整合水平。保险公司办公管理系统主要用于保险公司办公的系统化、规范化和自动化。其主要功能包括：1. 客户管理： 完成客户信息的添加、显示、修改、删除等 ；2. 险种管理： 完成保险险种信息的添加、显示、修改、删除等；3、文件管理： 完成文件信息的添加、显示、修改、删除等； 4、会议管理： 完成会议信息的添加、显示、修改、删除等；5．员工管理： 实现员工信息的添加、显示、修改、删除等； 6. 系统管理： 完成用户管理，如添加新用户、修改用户密码等； [来源：http://think58.com]

伴随着我国信息产业化的进展，各行各业都逐步将信息技术应用于自己的内部管理当中。当前在保险行业，由于特殊繁杂的数据需要有效的管理，而手工的数据管理不但不易保存，而且允余度较大，查询操作也较复杂，由于管理方式不利，办理时间较长，效率较低。另外随着社会主义市场经济体制向纵深推进，我国劳动和社会保障工作面临着新形式下的众多艰巨任务，概括起来是两个方面，一是改进劳动就业工作，完善劳动就业服务体系，二是建立健全失业保障体系。要完成这些艰巨任务，必须依靠信息化手段来提供有力的技术支持。
为了规范保险业务、促进保险制度改革，为系统建设提供必要的指导作用，最终使得失业保险行业的信息化建设达到领先国内其他行业的水平，创行业一流信息系统，我们将从建立资源数据库开始，逐步过度到网上信息交换，通过对数据分析和加工起到宏观决策的作用。
总之，信息化建设对于劳动保障事业发展的影响已经不仅仅是某一方面，某项具体工作，而是影响着劳动保障工作的全局。面对扑面而来的信息化浪潮，我们应该坚信信息化是劳动保障事业发展的必由之路。在高速发展的信息化时代，抓住了劳动保障信息化工作，我们就占据了新时期劳动保障工作的制高点，我们就抓住了跨越式发展的历史机遇，就能赢得全局的主动性。 内容来自think58 [来源：http://think58.com]

包括两层软件接口，分别为ADO(Active Data Object) 和OLE DB，对应于不同层次的应用开发，ADO提供了高层软件接口，可在各种脚本语言(Script) 或一些宏语言中直接使用；OLE DB提供了底层软件接口，可在C/C++ 语言中直接使用。ADO以OLE DB为基础，它对OLE DB进行了封装。
图2-1为ADMicrosoft推出的UDA(一致数据访问技术) 为关系型或非关系型数据访问提供了一致的访问接口，为企业级Intranet应用多层软件结构提供了数据接口标准。一致数据访问O的架构图。

copyright think58 [来源：http://www.think58.com]

Combo1.AddItem rst.Fields("客房类型")
    rst.MoveNext
100
Loop
rst.Close
cnn1.Close
End Sub
Private Sub Command3_Click()     '新增记录
Dim i%
For i = 0 To 6
     If Text2(i) = "" Then
        MsgBox "请将信息填写完整", vbCritical, "提示"
        Text2(i).SetFocus
        Exit Sub
    End If
Next i
Dim rst1 As New ADODB.Recordset
    Set cnn1 = New ADODB.Connection
    cnn1.ConnectionString = "driver={SQL Server};server=(local);uid=admin;pwd=admin;database=jddb"
    cnn1.ConnectionTimeout = 30
    cnn1.Open
    rst.Open "select * From zhusu", cnn1, adOpenKeyset, adLockOptimistic
    rst1.Open "select * From kefang where 房间号='" + Trim(Text2(0)) + "'", cnn1, adOpenKeyset, adLockOptimistic

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

     rst1.Fields("状态") = "入住"
     rst1.Update
     rst1.Close
    rst.AddNew
        For i = 0 To 6
            rst.Fields(i) = Text2(i)
        Next i
         rst.Fields("入住时间") = DTPicker1.Value
    rst.Update
    Adodc1.Refresh
        For i = 0 To 6
            Text2(i) = ""
        Next i
        MsgBox "房客" + Text2(4) + "入住成功", , "提示"
    rst.Close
    cnn1.Close
End Sub 本文来自think58 [资料来源：THINK58.com]

6.3.3  会议管理模块设计
1.实现目标
程序启动后，选择主界面上选择“会议管理”项，将进入会议管理模块。在会议管理模块中主要实现如下功能：
会议记录的新增、修改、删除
会议记录员信息及会议概要。
会议管理界面如图6-5所示

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

参考文献
[1] Visual Basic数据库系统开发完全手册——王春才、高春燕、李俊民，人民邮电出版社，2003
[2] Visual Basic6.0基础培训百例——韩亚萍，机械工业出版社，2003
[3] Visual Basic实用培训教程——金英姿、邓少鹍，人民邮电出版社，2004
[4] Visual Basic课程设计与系统开发案例——伍俊良，清华大学出版社，2004
[5] Visual Basic课程设计案例精编——张勇等，水利水电出版社，2005
[6] Visual Basic6数据库处理-从入门到精通——王道荣、林信成 ，中国铁道出版社，2004
[7] Visual Basic 6.0高级编程——常晓波，清华大学出版社，2004
[8] Visual Basic数据库开发基础与应用——张朝昆、施丽娜，人民邮电出版社，2005
[9] Visual Basic数据库开发实例精粹——郭瑞军,唐邦民,谢晗昕，电子工业出版社，2005
[10] 软件项目开发综合实训--Visual Basic篇——王泰峰，人民邮电出版社，2005
[11] Visual Basic数据库系统项目开发实践——温小敏，科学出版社，2005
[12] Database Management Systems，Gehrke ——Raghu Ramakrishnan,Johannes，清华大学出版社，2003

内容来自think58

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

[来源：http://www.think58.com]