关于牡丹江恒丰纸业股份有限公司
国有股权管理方案的报告
黑龙江省国有资产管理局：
牡丹江恒丰纸业股份有限公司之前身牡丹江天宇股份有限公司系经黑龙江省体改委黑体改复[1993]431号、439号文批准，由牡丹江恒丰纸业集团有限责任公司之前身牡丹江造纸厂作为主发起人，联合哈尔滨卷烟厂、延吉卷烟厂以定向募集方式设立。牡丹江天宇股份有限公司（“天宇股份”）股本总额10000万股，其中，发起人持有8000万股，内部职工持有2000万股。
天宇股份于19xx年经省体改委确认为规范化股份有限公司，19xx年更名为牡丹江恒丰纸业股份有限公司（“恒丰股份”或“公司”），并经省科委认定为省级高新技术企业，19xx年7月，国家科技部以国科函政字[1999]058号，向中国证监会推荐恒丰股份作为高新技术企业上市，中国证监会19xx年10月19日以发行监管函[1999]187号，通知恒丰股份作为高新技术企业报送申请公开发行股票的有关申报材料。为了规范恒丰股份的股权管理工作，明晰企业的产权关系，保证国有资产的保值增值，根据《股份公司国有股权管理暂行办法》的有关规定，现将恒丰股份的国有股权管理方案报告如下：
壹、 恒丰股份股本结构形成情况
公司股本总额为10000万股，其中，发起人共持有8000万股，公司内部职工持有2000万股。19xx年天宇股份成立时，牡丹江造纸厂以其主要生产经营性资产包括二车间、五车间、六车间、八车间的建筑物、机器设备及部分产成品作为出资投入天宇股份。根据牡丹江市资产评估事务所牡评字19xx年1月19日出具的（93）04号《资产评估报告》，上述资产经评估后总额为80,296,000元，该评估结果经牡丹江市国有资产管理局第93－3号资产评估确认通知书确认，按1：1.3的比例折为6177万股，由牡丹江造纸厂持有。哈尔滨卷烟厂以现金投入3,000,000元，按1：1.5的比例折为200万股，延吉卷烟厂以现金投入300,000元，按1：1.5的比例折为20万股。经牡丹江会计师事务所牡会师字出具《验资报告》审查验证，截止19xx年1月21日，发起人投入资产已经全部到位。向公司内部职工发行2000万股，每股面值1元，每股发行价格1.5元；原拟向社会法人定向募集1603万股，但是未能募集到位，根据省体改委黑体改复[1993]439号文及公司招股文件，由牡丹江造纸厂以部分实物资产包括一车间、三车间、四车间、七车间、50吨浆、黑液提取车间的建筑物和机器设备折价入股。根据牡丹江市资产评估事务所牡评字19xx年12月20日出具的（93）047号《资产评估报告》，上述资产经评估后总额为24,045,742.60元，该评估结果经牡丹江市国有资产管理局第93-4号资产评估确认通知书确认，按1：1.5的比例折为1603万股。
第1页
经牡丹江会计师事务所牡会师字出具《验资报告》审查验证，截止19xx年12月21日，公司股本金全部募集到位。公司于19xx年3月6日在牡丹江市工商行政管理局办理了注册登记。
天宇股份成立后股本结构如下：
股份类别 持股数额 占总股本比例 发起人股： 8000万股 80％
其中：牡丹江造纸厂 7780万股 77.8％
哈尔滨卷烟厂 200万股 2％
延吉卷烟厂 20万股 0.2％
内部职工股： 2000万股 20％
总股本 10000万股 100％
19xx年10月，经牡丹江市体改委牡体改发[1997]37号文批准，牡丹江造纸厂改制为牡丹江恒丰纸业集团有限责任公司，原牡丹江造纸厂持有的公司股份相应地转由恒丰集团持有。19xx年11月，恒丰集团与哈尔滨卷烟厂签订股权转让协议，哈尔滨卷烟厂将其持有的公司发起人股200万股转让给恒丰集团，至此，恒丰集团持有公司股份共计7980万股。
二、牡丹江恒丰纸业集团有限责任公司基本情况
牡丹江恒丰纸业集团有限责任公司（“恒丰集团”）注册地址为牡丹江市光华街造纸路11号，注册资本21350万元人民币，法定代表人李荣华，经营范围为生产销售卷烟纸及滤嘴棒，出口工业用纸，文化用纸，生活用纸，进口造纸用木浆，脱水网，化学组剂，造纸机械设备，仪器仪表。恒丰集团之前身为牡丹江造纸厂，始建于19xx年，经过几十年的发展，现在已经跻身全国卷烟纸生产行业五强，被国家烟草总公司定为卷烟辅料生产基地，19xx年被批准为大型二档企业，是全国1000家国有重点企业和黑龙江省50家重点企业之一。19xx年9月10日，经牡丹江市体改委牡体改发[1997]37号文批准，同意将牡丹江造纸厂改组为牡丹江恒丰纸业集团有限责任公司。19xx年10月24日，牡丹江市国有资产管理委员会牡国资委字第1号文，同意将包括天宇股份股权在内的原牡丹江造纸厂的国有资产授权恒丰集团经营，恒丰集团作为牡丹江市国有资产管理委员会投资设立的国有独资公司，享有授权范围内的国有资产的占用、使用、收益收缴和依法进行处分的权利，并负有保值增值的责任。
三、关于国有股权的界定
截止19xx年11月30日，恒丰集团净资产为229,800,609.15元。根据《股份公司国有股权管理暂行办法》，恒丰集团作为国有独资公司，其投入恒丰股份的资产所折股份7780万股及受让哈尔滨卷烟厂转让的发起人股200万股应界定为国有法人股，由恒丰集团持有。
第2页
四、国有股权的经营管理原则和方法
恒丰集团作为恒丰股份的国有法人股股东，根据《公司法》及公司章程的规定，行使股东权利，承担股东义务。
1、恒丰集团作为国有资产经营管理机构，依法代表国家进行投资、控股，坚持同股、同权、同利的原则，在股东大会提议不利于国有股利益的议案时，恒丰集团应通过法定程序坚决予以否决。
2、根据《公司法》有关规定委派股东代表参加恒丰股份的股东大会，提名董事、监事候选人或提出罢免董事、监事的议案，并依所持股份比例参加投票、表决。
3、促进国有资产合理配置，优化国有资产投资结构，提高国有资产运营效益。恒丰集团作为恒丰股份的控股股东，将努力促使恒丰股份加强内部管理，进一步提高恒丰股份的经营管理能力和市场竞争能力，提高经济效益，使国有股股东取得较丰厚的回报。
4、建立恒丰股份国有股档案，包括国有股数额、占总股本比例，年度国有股股利收缴情况，国有股股权变动情况等，对国有股股权及其收益实施动态管理、并定期向国有资产管理部门汇报。
5、严格执行国家有关部门关于国有股股权的增购、转让以及转让收入的处理的有关规定，保证国有股权的科学运营。
请贵局审核以上方案，如无不妥，请予批准。
特此报告！
牡丹江恒丰纸业集团有限责任公司
一九九九年十二月二十二日
第3页
第二篇：人事管理方案样本
人事管理系统分析与概述
【摘要】信息技术为企业的发展提供了机遇，也带来了挑战。如何改良企业内部经营机制，公正、客观、全面、快捷地评估员工的业绩，实现以人为本的经营战略，提高人事管理工作的效率，使人事管理员有更多的精力去做人力资源分析、研究和开发工作，是企业立足发展，开拓未来，领先同行业的关键。本文叙述了一个人事管理系统形成的全过程，包括部分演示。
【关 键 词】RAD、OLE、powerbulid 8.0、sql server 2000
1引言
随着计算机技术、网络技术和信息技术的发展，越来越多地改善着现代人的观念。网络办公自动化系统是计算机技术和网络迅速发展的一个办公应用解决方案，它的主要目的是实现信息交流和信息共享，提供协同工作的手段,提高办公的效率,让人们从繁琐的有纸办公中解脱出来。现在我国的许多的机关单位的人事管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。
基于这种情况，我研究开发了这套人事管理系统，希望这套系统能为学校的人事管理带来更多的方便。
1
2 系统需求分析及可行性研究
2．1系统需求分析
人事管理系统可以实现功能包括"人事信息维护"、"数据查询"、"统计报表"、"系统维护"。 该系统应该提供人事信息的录入（修改）、删除、统计；人事常用的数据查询（包括各种复杂查询）；各类人事统计报表的设计、生成、表式的导入和导出、打印；用户账号权限的设臵、管理。
2．2可行性研究
人事管理一般是对人事基本信息的管理，所以在数据库模式定义中可以将人事基本信息定义在一个表中，这样对数据的增加、修改、删除、查询、统计操作处理起来都相对简单。统计报表的导出可以利用OLE（对象的连接与嵌入）这项成熟的技术来实现。打印功能完全可以根据开发工具自带的属性灵活的实现。用户账号权限的设臵、管理可以在数据库中建立一张独立的表来实现，人事系统将根据用户不同的权限设臵不同的操作功能。
对于开发工具我选择powerbuild8.0 + sql sever 2000。因为PowerBilder作为一种可视化的、面向对象的快速应用开发(RAD)工具，内臵了包括数据窗口在内的多种对象类，可方便的访问数据库，它与Sql Server结合，使开发应用程序这项艰辛的工作就象堆积木那样简单方便。另外，PowerBilder有多个版本以支持多平台，其在某一平台下开发的代码，可容易的移植到另一平台上，只需重新编译即可。因此人事管理系统运行于Windows系统是没有问题的。同时SQL Server 2
2000使用了工业界最先进的数据结构，能够为要求最苛刻的Web应用和企业应用提供高度的可扩展性和高可靠性。微软提供了许多技术和工具，作为数据库系统的标准集成组件。而且，通过巧妙的设计以及自动调整，自动管理特性，SQL Server 2000使客户可以更快，更容易的享受所用这些最先进的Web和分析技术所带来的好处，能够快速提交应用，从而赢得竞争上的优势。SQL Server 2000提供了重要的安全性方面的增强，保护防火墙内和和防火墙外的数据，支持强有力的，灵活的，基于角色的安全，拥有安全审计工具，并提供高级的文件加密和网络加密。SQL Server 2000在TPC-C测试中在所有平台下都创立了新的世界纪录。
3 系统规划
3．1项目规划
人事管理系统是一个典型的数据库应用程序，它分为数据的录入、数据的删除、数据的修改、数据的查询、数据的统计分析、账号的管理、日志的管理八部分组成。具体可分为数据录入模块、修改删除模块、查询模块、统计模块、报表打印模块、账号管理模块、日志的管理模块组成，另外还有一特殊系统模块。现规划功能模块如下:
3．1．1数据输入模块
该模块的主要功能是负责输入数据，所以该模块的设计出发点应从方便用户操作的角度出发,如:非法数据输入出现错误提示等，另外一些较固定数据可让用户从下拉框种选择，不必自己输入。 3
3．1．2 数据查询模块
用户可以直接快速地查阅和打印系统中的员工个人信息（如人员情况、部门情况、科室情况、职称评定、在职情况和决策支持等信息）；也可以做出各种复杂的查询, 用户可根据任意字段进行查询，包括多条件的与和或运算，为领导作出准确判断提供数据的支持。
3．1．3数据删除修改模块
修改删除模块通常也是数据库中必须有的一个模块，因为在输入数据过程中难免会有出错的时候。当修改删除涉及到多个表时，本系统将做出判断并给出提示及相应处理，以保证数据的完整性及一致性。
3．1．4数据统计分析模块
该模块将对数据进行统计，包括分组统计，二维表统计及饼图统计。各种统计结果都应该能够打印。
3．1．5报表打印模块
数据的打印也是系统不可或缺的模块，打印页面的大小及上下左右的边距应由用户自己自由设臵。也可以将报表导入到word或者excel中，由用户自己设定打印方式。
3．1．6账号管理模块
实现了对用户分组管理，并且可对用户的数据访问权限、功能操作权限进行设臵，大地保证了操作的安全性、严谨性及保密性。
3．1．7日志管理模块
4
系统将用户名，操作时间，操作内容都记录下来，然后写到数据库中。这样可以知道那个用户什么时间作了什么操作，更好的维护了系统的安全性。
3．2系统流程图
3．3规划数据库
数据库的概念 5
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。
根据系统规划和上面的理论：可将该数据库信息分为人事基本信息，职称变动信息，职务变动信息，职别变动信息，学习情况信息，工作变动信息，学习情况信息，科室名称，部门名称九个主题，也就是说至少要九个表，另外还有部分系统编码表。
4系统设计和实现
4.1 数据分析与编码设计
数据分析主要是分析各种数据的用途及相互之间的关联,分析数据的类型、数量发生频度和使用频度，并具体弄清楚每个数据所需的 6
范围和位数及来源的时间性，为数据库、文件设计及输出、输入设计提供依据，也为制定合理的数据处理方法提供依据。
编码是一项基础工作，编码必须唯一，编码设计的目的是为了便于数据的存储和检索，提高处理的效率和精度，节省处理时间和减少存储空间且方便使用。
4.2 数据库设计
本系统新建一个数据库(rsgl.dbf),加强完善对人事系统的管理。
4.2.1 理论依据
一般来说,一个应用程序的数据结构是实现该程序的关键因
素,SqlServer关系数据库模型，是以关系集合理论中重要的数学原理为基础的，通过定义创建该集合的很少一些规则，即可方便地处理一些数据，这种技术被称为数据规范化。
.第一范式(1NF):消除重复字段和非原子的值。
.第二范式(2NF):要求每一个字段都依赖于主关键字段的每一部分。
.第三范式(3NF):要求所有非主关键字都只依赖于主关键字段。 确定字段原则:
根据表中存储信息的不同,表中所需的字段也不一样,在确定所需字段时有下列方法可供使用:
.描述不同主题的字段应属于不同的表,通过定义之间的关系,可以将多个表中的字段进行数据组合,生成各种表单或报表。
.不要在表中存储通过推导或计算可以得到的数据。
7
.收集所需的全部信息。应全面检查书面的表单和报表，确定所需的数据都已包括在所设计的表中或可由这些表计算出来。
.以最小的逻辑单位存储信息。应尽量把信息分解成比较小的逻辑单位。
.对于主关键字段,SqlServer不允许其有重复值或NULL 值。 确定字段数据类型规则:
在实际选择数据类型时,应结合字段的自身情况并考虑以下几点: .该字段用于存储什么类型的值
.要对字段中的值执行什么类型的运算 .是否要用字段进行排序或筛选
.是否用字段对记录进行分组
4．2．2数据库模式定义
根据需求分析本系统一共定义了12个表，分别为人员基本信息表（T_Rsxx）、部门表（T_Bmxx）、科室表（T_Ksxx）、职称变动表（T_Zcbd）、职务变动表（T_Zwbd）、职别变动表 （T_Zbbd）、学习情况表 （T_Xxqk）、工作变动情况表（T_Gzbd）、教学经历表（T_Jxjl）、编制信息表（T_Bzxx）、人事管理日志表（T_Rsrz）账号管理表（T_Zhgl）。其中人员基本信息表与职称变动表、职务变动表、职别变动表、学习情况表、工作变动情况表、教学经历表通过字段rybh相关联，构成了人事的全部信息。人事管理日志表保存每次用户登陆系统后所作的一切操作。账号管理表保存所有用户的信息，包括用户名，口令。编制信息表保存了12个表中的汇总信息，包括部门编号、政工人数、行政人数、 8
会统人数、教学人数、科研人数、出版人数、开发人数、资料人数、实验人数、技术人数、卫技人数、中幼教人数等等。部门表包括了本系统的所有部门，科室表包括了本系统的所有科室。
以下是数据库表结构的图形表示。
4．3模块设计
4.3.1数据录入模块的设计
通过数据窗口的insertrow(0)函数，先插入一条空记录，然往空记录中输入数据，保存到数据库中即可。对于不同的表，保存方式不同。人员基本信息表的新记录保存使用数据窗口的update()函数完成。在保存之前做安全性检测，以防不合理数据入库。
9
其它表的输入与基本信息表类似。其中科室表的新记录保存使用数据窗口的update()函数完成。剩余的表由于它们的主键都是行号(int类型的)，在数据库中把它们的Identity属性都设为了yes，所以这些表的新记录保存只能用insert into 表名（）values()语句来完成。
4.3.2数据删除模块的设计
通过数据窗口的deleterow(currentrow)函数，删除一条当前记录，保存到数据库中即可.人员基本信息表中的一条记录被删除，与其关联的其他表中的信息也将被删除，这一目的是为了保证数据的一致性和完整性，此表的记录保存使用数据窗口的update()函数完成。其他表中的相关信息被删除是通过”delete from 表名 where 条件”sql语句完成的。
4.3.3数据修改模块的设计
如果修改一条当前记录，先检查一下数据是否合法，然后通过数据窗口的update()函数保存到数据库中即可。如果人员信息的人员编号被修改，其他关联表中的人员编号也作相应的修改，其目的是为了保证数据的一致性和完整性。人员信息的修改的格式式freeform其他的表的修改与其操作类似，只是显示风格不同而已
4.3.4数据查询模块的设计
10
数据的查询是通过sql语句实现的，系统使用一个数据窗口显示查询条件，包括“名称” “匹配” “数值” “条件”。单击“增加”可以在条件框中增加一个空条件，然后按照用户的要求添加合适的条件，其中“名称”字段可选择，包括了基本信息表中的所有字段，“匹配”字段可选择，包括“>,<,=,>=,<=,<>”，“数值”字段可根据“名称”字段添加不同的值，“条件”字段是为了做多条件查询设臵的，包括“And Or”。当用户做了一次查询之后，可以修改“数值”字段的值做下一次查询，也可以单击上面的“删除”一个查询条件，以适应不同的查询，或者单击“全删”删除所有的查询条件重新安排查询。当查询条件输入完毕以后，单击“确定”就可按照相应的条件进行查询了，查询的结果显示在右上方的基本信息框中。基本信息框中显示了基本信息表中的所有字段，可以根据用户的要求选择要显示的字段。
4.3.5报表打印模块的设计
数据的打印包括：页面设臵，打印预览，打印三部分，其中打印的参数是通过结构体来传递的。结构体的定义如下：
struc_printinfo from structure
integer
integer
integer
integer
integer
i_marginleft //到左边沿的距离 i_marginright //到右边沿的距离 i_margintop //到上边沿的距离 i_marginbottom //到下边沿的距离 i_orientation //横打还是纵打 11
integer
integer
boolean i_papersize //纸张大小 i_papersource //纸张来源 b_OK //是否单击了“确定”
页面设臵：页面设臵的参数是通过结构体穿传送的，界面见下图
打印：页面设臵完成以后就可以打印了，打印的窗口如下图：
打印预览的基本思想：打开预览窗口时，先把要预览的数据窗口中的数据传送到到预览窗口，然后设臵预览窗口属性完成预览。预览界面见下图：
12
4.3.6账号管理模块的设计
账号管理是按照用户的权限设定的，高级用户可以分配用户、修改其他用户的权限。中级用户和普通用户只能修改自的口令。这些操作可以利用数据窗口的基本属性就可以实现。具体界面如下图：
13
4.3.7日志管理模块的设计
在每次退出系统的时候，查找一下数据窗口的缓冲区就可以获得用户对数据库的操作，包括数据的增加、删除、修改。然后系统将用户名，操作时间，操作内容都记录下来，写到数据库中。
4.4关键技术
4．1导入word函数
导入word函数基本思想：建立ole对象连接word,获得要导入数据窗口的行数和列数根据数据窗口的行数和列数获得数据窗口中的数据，然后一个数据一个数据的写入到word中，最后断开ole对象连接。 具体代码：
//==========================================================
// Function - f_exportto_word
//----------------------------------------------------------
// Description: 将数据窗口中的数据导出到word文件中
//----------------------------------------------------------
// Arguments:
// datawindow datawindow
// <description> 要保存的数据窗口
//----------------------------------------------------------
// Returns: (none)
//==========================================================
OLEObject ole_object
ole_object = CREATE OLEObject
//连接word
IF ole_object.ConnectToNewObject("Word.Application") <> 0 THEN MessageBox('OLE错误','OLE无法连接!')
return
END IF
ole_object.Visible = True
long ll_colnum,ll_rownum
constant long wdWord9TableBehavior = 1
constant long wdAutoFitFixed = 0
constant long wdCell = 12
string ls_value
//得到数据窗口数据的列数与行数（行数应该是数据行数 + 1）
14
ll_colnum = Long(datawindow.object.datawindow.column.count)
ll_rownum = datawindow.rowcount() + 1
ole_object.Documents.Add()
ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range, ll_rownum, ll_colnum)
string ls_colname
integer i,j
for i = 1 to ll_colnum
//得到标题头的名字
ls_colname = datawindow.describe('#' + string(i) + ".name") + "_t" ls_value = datawindow.describe(ls_colname + ".text")
ole_object.Selection.TypeText(trim(ls_value))
ole_object.Selection.MoveRight(wdCell)
next
datawindow.setredraw(false)
ole_object.Selection.MoveLeft(wdCell)
for i = 2 to ll_rownum
for j = 1 to ll_colnum
datawindow.scrolltorow(i - 1)
datawindow.setcolumn(j)
ls_value = datawindow.gettext()
ole_object.Selection.MoveRight(wdCell)
ole_object.Selection.TypeText(ls_value)
next
next
datawindow.setredraw(true)
constant long wdFormatDocument = 0
//保存新建的文档
ole_object.ActiveDocument.SaveAs("sample.doc",
0,False,"",True,"",False,False,False, False,False)
//断开OLE连接
Ole_Object.DisConnectObject()
Destroy Ole_Object
4．2导入excel函数
导入excel函数基本思想：建立ole对象连接excel,获得要导入数据窗口的行数和列数，根据数据窗口的行数和列数获得数据窗口中的数据，然后一个数据一个数据的写入到excel中，最后断开ole对象连接.
具体代码：
15
//==========================================================
// Function - f_exportto_excel
//----------------------------------------------------------
// Description: 将数据窗口中的数据导出到excel文件中
//----------------------------------------------------------
// Arguments:
// datawindow datawindow
// <description> 要保存的数据窗口
//----------------------------------------------------------
// Returns: (none)
//==========================================================
OLEObject ole_excel, xlsub
ole_excel = CREATE OLEObject
int li_ret
li_ret = ole_excel.ConnectToObject('Excel.Application')
if li_ret <> 0 then
li_ret = ole_excel.ConnectToNewObject('Excel.Application') if li_ret <> 0 then
MessageBox('OLE错误','OLE无法连接，请返回重试！')
end if
ole_excel.Visible = false
end if
ole_excel.Application.Workbooks.add()
ole_excel.Application.Visible = true
long i, j, ll_cols, ll_TargetRow,k
string ls_colname, ls_title //列名，列标题
string ls_data, ls_syntax //数组记录各显示列的值，取各列
string array_title[], array_col[] //以数组记录非隐藏列的列标题 string ls_xzb //X坐标
string ls_x[]
ll_cols = Long(datawindow.Describe("DataWindow.Column.Count")) //记录总列数 xlsub = ole_excel.Application.ActiveWorkbook.Worksheets[1]
//得到显示字段的列标题和坐标
for i = 1 to ll_cols
ls_xzb = datawindow.Describe("#" + String(i) + ".x")
if ls_xzb <> '!' and ls_xzb <> '?' then
ls_colname = datawindow.Describe("#" + String(i) + ".name") + "_t" ls_title = datawindow.Describe(ls_colname + ".text")
k++
array_title[k] = ls_title //记录其列标题
array_col[k] = datawindow.Describe("#" + String(i) + ".name") ls_x[k] = ls_xzb
end if
next
//按坐标值从小到大进行冒泡排序
16
string ls_temp
for i = 1 to upperbound(ls_x) - 1
for j = i + 1 to upperbound(ls_x)
if long(ls_x[i]) > long(ls_x[j]) then
//列标题
ls_temp = array_title[i]
array_title[i] = array_title[j]
array_title[j] = ls_temp
//列名
ls_temp = array_col[i]
array_col[i] = array_col[j]
array_col[j] = ls_temp
//X坐标
ls_temp = ls_x[i]
ls_x[i] = ls_x[j]
ls_x[j] = ls_temp
end if
next
next
//显示标题带
if upperbound(array_title) > 0 then
for i = 1 to upperbound(array_title)
xlsub.Cells(1, i).Value = array_title[i]
xlsub.Cells(1, i).Borders.LineStyle = 1
next
end if
long ll_total,ll_pos
//输出各显示列的值
ll_total = datawindow.rowcount()
ll_TargetRow = 1
for i = 1 to ll_total
ll_TargetRow ++
ll_pos = i
// showprgressbar(ll_pos,ll_total,'正在生成数据，请稍等...')
for j = 1 to upperbound(array_title)
ls_syntax = "Evaluate('LookUpDisplay(" + array_col[j] + ")', " + String(i) + ")" ls_data = String(datawindow.Describe(ls_syntax)) //取列的值
xlsub.cells[ll_TargetRow,j] = ls_data
xlsub.cells[ll_TargetRow,j].Borders.LineStyle = 1
next
next
//将标题带灰显
ole_excel.Rows("1:1").Select
ole_excel.Selection.Font.ColorIndex = 1
ole_excel.Selection.Interior.ColorIndex = 15
17
ole_excel.Range("H8").Select
//灰显完毕
ole_excel.DisConnectObject()
Destroy ole_excel
参考文献
1．崔巍 编著，《pb7.0数据库应用系统开发教程》清华大学出版社
2．王守华 卢嘉 编著，《pb7.0开发指南》清华大学出版社
3．王冠科技 编著，《pb7.0时尚编程百例》机械工业出版社
4．闪四清 编著，《SQL Server 2000系统管理指南》清华大学出版社
18