2005年01月24日

学习计划

1.学习JAVA和NB

2.学习C#

3.英语

4.本科自考

2005年01月03日

人员变化报表的统计应该参照财务的记帐模式,主要想法如下:

相同点:

1。财务科目记帐是分借贷方的,对于资产类科目,借方减少,贷方增加,同理人员变动也要记录减少和增加。财务的帐目是记录科目的变化,对应一件变化要分别记入两个或者两个以上的科目

不同点:

1.财务帐目分有类别,不同类别的处理方式不一样.

这个模式很适合人员变化报表中的人员变化的处理模式,例如一个人由在岗变为非在岗的长期学习,主要做法是先由在岗中减少1人,再增加非在岗长期学习1人,如果采用财务的记帐方法,先定义两个帐目即:”从业人员”和”非在岗”两类.

在”从业人员”中

       “长期在岗职工”

       “临时职工”

       “其他从业人员”

在”非在岗职工”下

       “集体外出劳务人员”

      “内部退养人员”

      “长期病休人员”

     “长期学习人员”

     “内部下岗人员”

2005年01月02日

目前,绝大多数的数据库参考书都介绍了ODBC的手工配置方法,或者介绍了如何在代码中进行ODBC配置。但这两种方法都有一定的局限性: 
    不是当程序最终完成并分发到用户手中后,还需要为用户配置ODBC,显得既麻烦又不符合专业软件的要求;就是得编写复杂的更改操作系统注册表文件的程序,十分烦琐。本文从ADO(ActiveX Data Objects)入手,介绍无需配置数据源的几种常用大型数据库连接方法。 
    本文所述的无“数据源”连接,意义不是不需要数据源,否则连接无从谈起,而是不需要配置注册数据源所进行的连接。ODBC(Open DataBase Connectivity,开放式数据库连接)是用于连接不同数据源的标准编程语言接口。许多文章中介绍,在实现ODBC时,必须首先配置ODBC环境,进行数据源的注册,然后才能在对数据库编程时,对数据源进行连接、访问和操作,并提供了用PB或VB等语言工具实现数据源注册的具体方法。这些方法不但复杂烦琐,而且由于参数内容不一,配置时令人感觉无所适从,不宜把握。 

    走近ADO 

     ADO是微软提供的数据库访问技术。它被设计用来同新的数据访问层OLE DB Provider一起协同工作,以提供通用数据访问(Universal Data Access)能力。OLE DB是一个底层的数据访问接口,用它可以访问各种数据源,包括传统的关系型数据库、电子邮件系统及自定义的商业对象等。 

   ADO提供了一个熟悉的、高层的对OLE DB的Automation封装接口。对那些熟悉RDO的程序员来说,可以把OLE DB看作ODBC驱动程序,如同RDO对象是ODBC驱动程序接口一样,ADO对象是OLE DB的接口。同样,像不同的数据库系统需要它们自己的ODBC驱动程序一样,不同的数据源也要求它们自己的OLE DB提供者(OLE DB provider)。目前,虽然OLE DB提供者比较少,但微软正积极推广该技术,并计划用OLE DB取代ODBC。 

    微软公司已宣布今后不会对VB SQL/DBLib进行升级,而且ODBC API函数一级的编程方式也不为人们所喜爱,所以,RDO今后将被以ActiveX技术为基础的ADO所替代。ADO是基于OLE DB之上的技术,它通过内部的属性和方法提供统一的数据库访问接口。 
    1.ADO组件 
    ● Microsoft ActiveX Data Objects (ADO) :使客户端应用程序能通过OLE DB提供者访问和操作数据库服务器中的数据。 
    ● ActiveX Data Objects Extensions for DDL and Security(ADOX) :将ADO扩展为包括创建、修改和删除的模式对象,如表格和过程,以及包括用于维护用户和组以及管理对象权限的安全对象。 
    ● ActiveX Data Objects (Multidimensional) (ADO MD): 将ADO扩展为包括指定到多维数据的对象,并允许浏览多维模式、查询立方和检索结果。 
    2.ADO优点 
    ● ADO具有高度的灵活性,它可以使用相同的编程模式连接到不同的数据提供者,而不管给定提供者的特定特性。 
    ● 较低的内存占用率。 
    ● 具有远程数据服务(RDS)功能,通过RDS可以在一次往返过程中将数据从服务器移动到客户端应用程序或Web页,并在客户端对数据进行处理后将更新结果返回服务器。 
    ● 同传统的数据对象层次(DAO和RDO)不同,ADO可以独立创建。可以只创建一个“Connection”对象,然后由多个独立的“Recordset”对象来使用它。 
    ● ODBC本身是以SQL Server、Oracle等关系数据库作为访问对象,而OLE DB则不仅限于此,它还可以对电子邮件、文本文件、复合文件、数据表等各种各样的数据通过统一的接口进行存取。 
    OLE DB Provider for ODBC是ADO的默认提供者,默认值是MSDASQL,如果省略连接字符串的Provider=参数,ADO将试图建立与该提供者的连接。 
    ADO的连接方式主要可分为OLE DB Privder方式与OLE DB Provider for ODBC方式。前者很明显是微软公司极力推荐的方式,对于ADO或RDS程序员来说,理想的环境是每个数据源都具有一个OLE DB接口,这比ODBC方式要快且所需资源更少。 
    ODBC Provider允许ADO连接到任何ODBC数据源。ODBC驱动程序对于当今使用的各种主要DBMS都有效,包括SQL Server、Access、FoxPro,以及诸如Oracle等非微软数据库产品。提供者将不受线程控制,允许使用Unicode,并将支持事务。 
    连接对象属性 
    ConnectionString是Connection对象的属性名称,为可读写String类型,提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息,包括Provider、Driver、Server、Database、DSN、UID、PWD或者Provider、Data Source、User、Password、Initial Catalog等。 
    1.Provider 字符串表达式,指定OLE DB数据或服务提供者的名称,可以缺省。 
    一般有三种提供者:数据提供者、服务提供者和服务组件。数据提供者拥有自己的数据并将数据以表的格式显示给应用程序。服务提供者将服务封装,使ADO应用程序中的功能得以扩大。服务提供者也可以进一步定义为服务组件,服务组件必须连同其他服务提供者或组件一起工作。 
    2.Driver 
            字符串表达式,表示ODBC驱动程序的名称,并不是ODBC驱动程序动态链接库(DLL)的文件名。 
            有些驱动程序是微软公司的产品,在安装操作系统时就已经安装好了; 
            而有些数据库产品的驱动程序由开发数据库产品的软件公司随数据库产品一起提供,需要在安装数据库时选择安装后,才可以使用。如:Sybase数据库驱动程序等。 

            3.Server(SRVR) 
            字符串表达式,数据库服务名称。 

            4.Database(DB) 
            字符串表达式,指定服务器上的数据库名称。即使DSN定义已经指定了数据库,也可以在DSN之外指定Database参数以便连接到不同的数据库。 

            5.DSN(Data Source) 
            字符串表达式,在此为空,无须指定连接的ODBC数据源的名称。 

            6.UID(User ID) 
            字符串表达式,为ODBC数据源指定用户标识(用户账号名),指定用户必须有足够的权限。 

            7.PWD(Password) 
            字符串表达式,为ODBC数据源指定用户口令,必须有足够的权限。 

            8.Persist Security Info 
            布尔类型,为True时,表明采用集成安全机制;若为False,则表明不采用集成安全机制。 

            无DSN(非DSN)连接 
            除了ADO所定义的参数外,提供者不支持任何特定连接参数,它将把任何非ADO连接参数传递给ODBC驱动程序管理器。下面介绍几种常见数据库的处理方法。 


            1. Visual Foxpro 
            [PROVIDER=MSDASQL.1]; ’或者为MSDASQL 
            DRIVER={Driver Name}; 
            SourceDB=Path; 
            SourceType=DBF 
            例如: 
            cnna.ConnectionString = “PROVIDER=MSDASQL; ” 
            + “DRIVER={Microsoft Visual Foxpro Driver};” 
            + “SourceDB=D:\data\;” 
            + “SourceType=DBF” 

            2.SQL Server 
            [PROVIDER=MSDASQL;] 
            DRIVER={Driver Name}; 
            SERVER=server; 
            DATABASE=database; 
            UID=user; 
            PWD=password 
            例如: 
            cnnb.ConnectionString = “PROVIDER= 
            MSDASQL;” 
            + “DRIVER={SQL Server};” 
            + “SERVER=servera;” 
            + “DATABASE=pubs;” 
            + “UID=sa;” 
            + “PWD=yyuui” 

            3. Sybase数据库 
            [PROVIDER=MSDASQL;] 
            DRIVER={Driver Name}; 
            SRVR=server; ’必须是SRVR,不能是SERVER 
            DB=database; ’可以是DB,也可以是DATABASE 
            DSN=; ’可以省略 
            UID=user; 
            PWD=passwod; 
            PERSIST SECURITY INFO=False 
            例如: 
            cnnc.ConnectionString= 
            “PROVIDER=MSDASQL;” 
            + “DRIVER={Sybase System 11};” 
            + “SRVR=serveru; ” 
            + “DSN=;” 
            + “DB=dataa;” 
            + “UID=sa;” 
            + “PWD=dqwe;” 
            + “PERSIST SECURITY INFO=False” 

            4. Oracle数据库 

            [PROVIDER=MSDASQL;] 

            DRIVER={Driver Name}; 

            SERVER=server; 

            databasename=database; 

            databasefile=path; 

            DSN=; 

            UID=user; 

            PWD=password; 

            例如: 

            cnnd.ConnectionString = 

            “PROVIDER=MSDASQL; ” 

            + “DRIVER={Microsoft ODBC for Oracle};” 

            + “SERVER=Webserver;” 

            + “DSN=;” 

            + “databasename=dataall;” 

            + “databasefile=d:\data\;” 

            + “UID=dba;” 

            + “PWD=killer” 

            应用实例 

            下面以Sybase 
            11.9.2为例,编制一个简单的工作人员管理程序,介绍ADO的具体实现方法和步骤。数据库名称为Workerdb,只包括一个表(Worker),其结构如下: 


            字段名称    宽度       注释 

            code nchar(4) 代号 

            name char(8) 姓名 

            …… …… …… 

            首先安装ADO,在VB的“工程”/“引用”对话框中选择“ActiveX Data Object 2. 5 
            Library”(ADODB)。其中“ADO Recordset 2. 5 
            Library”是一个客户端的版本(ADOR),因为不需要Connection对象来建立与远程数据源的联系,所以ADOR对于客户端的数据访问来说已经足够了。 
            下面是部分主要代码: 

            1. 处理代码 

            ’在工程菜单中引用Microsoft ActiveX Data Object 2. 5 Library 

            ’声明ADO连接对象为工程级全局变量 

            Public cndbase As New ADODB.Connection 

            …… 

            ’自定义连接数据库函数 

            Public Function ConnectDbase(StrConnect As String) As Boolean 

            On Error GoTo ErrHandle 

            cndbase.ConnectionString = StrConnect 

            cndbase.Open 

            cndbase.CursorLocation = adUseClient 

            ConnectDbase = True 

            Exit Function 

            ErrHandle: 

            ConnectDbase = False 

            End Function 

            Private Sub Form_Load() 

            …… 

            输入 VarServer ’服务名称 

            VarDbase ’数据库名称 

            VarUser ’用户名称 

            VarPassword ’用户口令 

            …… 

            ’连接数据库,采取无DSN连接方法 

            StrConnect = “Provider=MSDASQL;” 

            +“Driver={” & VarDriver &“};” 

            +“SRVR=” & VarServer & “;” 

            +“DB=” & VarDbase & “;” 

            +“DSN=;” 

            +“UID=” & VarUser & “;” 

            +“PWD=” & VarPassword & “;” 

            + “Persist Security Info=False” ’不采用集成安全机制 

            if ConnectDbase(StrConnect) Then 

            Exit Sub 

            else 

            myexit = MsgBox(“数据库连接失败!请检查连接设置信息。”, vbOKOnly, “错误提示:”) 

            Unload me 

            endif 

            ErrHand: 

            myexit = MsgBox(“错误程序:” & Err. Source & Chr(10) & “错误代码:” & Err. 
            Number & Chr(10) & “错误信息:” & Err.Description, VbAbortRetryIgnore, 
            “错误提示:”) 

            If myexit = 3 Then 

            Err.Clear 

            Unload Me 

            Else 

            If myexit = 4 Then 

            Err.Clear 

            Resume 

            Else 

            Err.Clear 

            Resume Next 

            End If 

            End If 

            End Sub 

            Private Sub Form_Unload() 

            …… 

            cndbase.Close 

            Set cndbase = Nothing 

            End Sub 

            2. 建表 

            codbase.CommandText=“{call CREATABLE (?) }” 

            codbase.CommandType = adCmdText 

            codbase.Name = “CREATABLE” 

            ’设定OutPut的参数 

            Set param = codbase.CreateParameter(“flag”, adInteger, 
            adParamOutput) 

            codbase. Parameters. Append param 

            Set codbase. ActiveConnection = cndbase 

            codbase. Execute 

            If codbase. Parameters(0) = 0 Then 

            myexit = MsgBox(“建表成功!”, vbOKOnly, “程序提示:”) 

            Else 

            myexit = MsgBox(“建表失败!”, vbOKOnly, “错误提示:”) 

            Endif 

            …… 

            3. 修改 

            rsdbase. 
            Open“worker”,cndbase,adOpenDynamic,adLockPessimistic,adCmdTable 

            rsdbase. MoveFirst 

            cndbase. BeginTrans 

            ’在记录集中进行循环更改 

            Do Until rsdbase.EOF 

            ’增加20元职务代码为1的人员的工资 

            If rsdbase! duty = 1 Then 

            rsdbase! salary = rsdbase! salary + 20 

            End If 

            rsdbase. MoveNext 

            Loop 

            rsdbase.UpdateBatch 

            …… 

            4. 统计 

            StrSQL = “Select avg(salary), sum(salary) from worker” 

            rsdbase. CursorLocation = adUseClient 

            rsdbase. Open StrSQL,cndbase 

            salaryavg = rsdbase(0) ’平均工资 

            salarysum = rsdbase(1) ’工资总和 

            …… 

            rsdbase .Close 

            5. 存储过程creatable. sql 

            CREATE PROCEDURE dbo.creatable(@return_value integer output) 

            AS 

            Begin 

            Create table Workerdb..Worker 

            ( code nchar(4) not null , 

            name char(8) not null , 

            year nchar(4) , 

            month nchar(2) , 

            day nchar(2) , 

            salary numeric(18,2) , 

            duty nchar(1)  

            If @@error != 0 

            begin 

            select @return_value = 1 

              End 

             Else 

            Begin 

            select @return_value = 0 

            End 

            return 

            End 

昨天收到了哥们的批评,说我的日志写得太慢了.
我也不想呀,所以起来先敲一点心情上去,以此来充数.
我的遗忘速度加快了,本该能想起来的东西,也随时间的流逝而遗忘.
我本不想遗忘,但很多事情都像一块礁石深深地沉在我的记忆海洋里
我一个人是没有力气来把它拉起的,我需要家人,哥们们和她的帮助

就这些了,该去洗脸了,一天生活开始了,吃了饭,该去上班了.
希望我能坚持,希望我能继续,希望大家能帮我回忆.

我,LUCKFIRE,洪涛,涛,毛毛,二毛子,一个臭小子………………

再回首,回头看看这25年的生活,一个过着很长,回忆很短的25年。
25年的人和事我究竟能记住多少,我已经无法回答,留在记忆的深处的人也在随着时间的流逝而慢慢减少。
过着猪一样生活的的我,已经习惯了忘记。忘记一些人和一些事情,是我每天必须要做的一件事情。
回忆一般都是从现在到以前的,让我回忆一下吧。
我,现在一个普通的小职员,现在在一个残留着计划经济模式的国有企业工作。
我的家,父母,一个兄长,还有我,四个人,
还有爷爷、奶奶、姥姥、姥爷等等很多人
父亲,一个普通的装卸工人
母亲,一个普通的家庭妇女
兄长,一个股份改制后的国家参股的销售科长

大学毕业已经两年多了,人也25岁,经过这么长的时间我才算生活小学毕业,不知道还要多长时间才能完成人生的初中、高中和大学学业。今天是我自己写下的第一篇网络日记,希望它能是一个好的开始,我能继续坚持下去。博客都产生这么时间了,我才有自己的帐号,真想不出来,我作为一个别人眼里的计算机高手,在这么长时间里都在忙什么,,现在想起来就脸红。
我是什么呢,一个普通的人呀,一个普通的男人,一个普通的大专毕业生,一个普通的小职员……