源代码清单(XXXXX项目)
源代码销售合同范本4篇
源代码销售合同范本4篇全文共4篇示例，供读者参考篇1源代码销售合同范本甲方：（出售方）地址：联系人：电话：邮箱：乙方：（购买方）地址：联系人：电话：邮箱：鉴于甲方位于（出售方所在地）拥有自身独立开发的源代码，并有出售的意愿，乙方愿意购买甲方的源代码，双方本着平等自愿、诚实信用的原则，就甲方出售给乙方的源代码事宜订立如下合同：第一条合同目的甲方同意将其拥有的XXX源代码出售给乙方，乙方同意购买该源代码，并双方均同意按照本合同的约定履行各自的义务。
第二条源代码内容甲方所售源代码的具体内容、版本和对应功能等详细信息，双方应当在签署合同时确认，并作为本合同的附件。
第三条价格及支付方式1. 乙方购买甲方源代码，总价为（具体金额），乙方应在签署本合同之日起（具体天数）内将全部购买款项支付给甲方。
2. 乙方支付购买款项的方式为（具体方式），具体支付账号和方式详见附件。
第四条交付时间与方式1. 甲方应在双方签署本合同之日起（具体天数）内将源代码交付给乙方。
2. 交付方式为（具体方式），乙方应在接到源代码后及时核对，如有异议应当在接收后的（具体天数）内联系甲方解决。
第五条知识产权及保密条款1. 甲方保证其将源代码的知识产权合法转让给乙方，不会因此而侵犯任何第三方的知识产权。
2. 双方不得擅自向第三方转让源代码的使用权，如有需要，应当取得对方的书面同意。
3. 双方在合作中所涉及的商业秘密及源代码的保密信息均应保密，不得向任何第三方透露，否则应承担相应法律责任。
第六条违约责任1. 甲方如未按本合同的约定时间交付源代码，应向乙方支付违约金（具体金额）；2. 乙方如未按本合同的约定时间支付购买款项，应向甲方支付违约金（具体金额）。
第七条法律适用及争议解决本合同的订立、生效、履行及解释，均适用（具体地点）的法律。
因本合同引起的争议，双方应尽量友好协商解决；协商不成的，应提交（具体仲裁机构）仲裁裁决。
第八条其他事项1. 本合同自双方签字生效，至源代码交付完成后终止；2. 本合同的附件为不可分割的组成部分，与本合同具有同等法律效力。
源代码清单
本资料由-大学生创业|创业|创业网/提供资料
<项目名称>
源代码清单
版本：<1.0>
文档编号：密级：秘密
编写：编写日期：
审核：审核日期：
批准：批准日期：年月日
Copyright @, All right reserved
修订记录
目录
0.介绍 (1)
0.1 目的 (1)
0.2 范围 (1)
0.3 读者对象 (1)
0.4 参考文献 (1)
0.5 术语与缩写解释 (1)
1、系统目录结构 (1)
2、代码清单 (1)
本资料由-大学生创业|创业|创业网/提供资料0.介绍
0.1 目的
0.2 范围
0.3 读者对象
0.4 参考文献
0.5 术语与缩写解释
1、系统目录结构
提示：说明系统目录结构与功能模块间的关系
2、代码清单
提示：按功能模块划分，列出源代码文件名称：。
python70个练手项目【附源码】
Python语言是一种广泛应用于科学计算、数据分析和人工智能领域的高级编程语言，它具有简洁、易读、易学的特点，因此备受程序员们的喜爱。
为了帮助大家更好地掌握Python语言的应用和提升编程技能，本文将介绍70个Python练手项目，并附上源码，希望能对大家有所帮助。
1. 简易计算器：设计一个简单的计算器，实现加减乘除等基本运算功能。
2. 井字棋游戏：编写一个井字棋游戏，实现人机对战的功能。
3. 简易天气应用：通过API获取天气信息，实现一个简单的天气查询应用。
4. 网页爬虫：编写一个简单的网页爬虫，爬取指定全球信息站的信息。
5. 文本词频统计：统计一篇文章中单词出现的频次，并生成词频统计图表。
6. 查找文件：编写一个程序，在指定目录中查找指定类型的文件。
7. 图片处理工具：实现图片的缩放、旋转、滤镜等功能。
8. 数据可视化：利用matplotlib库，对数据进行可视化展示。
9. 简易录音机：实现录音、播放、保存等基本录音功能。
10. 简单的贪吃蛇游戏：设计一个简单的贪吃蛇游戏，控制蛇吃食物并避开障碍。
11. 图片转字符画：将一张图片转换为字符画，并输出到控制台或保存为文本文件。
12. RSS阅读器：编写一个RSS订阅工具，用于查看最新的订阅更新。
13. 网络速度测试：测试当前网络的上传下载速度，并生成测试报告。
14. 电子书阅读器：实现一个简单的电子书阅读器，支持文本阅读、目录浏览等功能。
15. 文件加密解密：实现文件的加密和解密功能，保护文件安全。
16. 电流信箱客户端：编写一个简单的邮件客户端，实现邮件的发送和接收功能。
17. 简单的音乐播放器：实现音乐播放、列表管理、歌词显示等功能。
18. 网络聊天室：设计一个简单的网络聊天室，处理用户之间的文字交流。
19. 简易的投票系统：实现一个简单的上线投票系统，支持用户投票和结果展示。
20. 图片批量处理工具：实现对指定目录中的图片进行批量处理，如缩放、旋转、加水印等操作。
源代码清单(XXXXX项目)
文档编号：
密 级：机密
XX系统
源代码清单
编制:日期:
审核: 日期:
批准: 日期:
版本:V1.0.0
控制态:
华迪计算机有限公司
修订记录
第N次变更
版本号
修订简要(章节、原因)
修订人
/日期
批准人
/日期
1系统名称
【系统名称及其版本号。】
2环境
【系统需要的软硬件开发环境、运行环境。】
3源代码清单
程序名
程序路径
THANKS !!!
致力为企业和个人提供合同协议，策划案计划书，学习课件等等
打造全网一站式需求
欢迎您的下载，资料仅供参考
项目二次开发源代码及详细说明
项目二次开发源代码及详细说明I. 项目介绍本文档描述了一个二次开发项目的源代码及详细说明。
该项目是基于一个开源的企业资源管理系统进行二次开发，以满足特定客户的需求。
原始系统功能包括客户关系管理、订单管理、库存管理等，但客户需要在原始系统的基础上增加一些新的功能，比如业务报表的定制、权限管理的优化等。
为了满足客户的需求，我们需要对原系统进行二次开发，修改和添加一些功能，以适应客户的特定业务需求。
II. 项目目标1. 通过二次开发，实现客户需求的定制化功能，并满足特定的业务需求。
2. 优化原系统的权限管理模块，增强系统的安全性和稳定性。
3. 重构原系统的报表模块，实现业务报表的定制化功能。
4. 对原系统的库存管理模块进行优化，提高系统的性能和稳定性。
III. 项目源代码及详细说明1. 新增功能模块：客户需要系统新增一个产品价格管理模块，方便他们随时根据市场需求调整产品的价格。
我们在系统中增加了产品价格管理的功能模块，客户可以在这个模块中根据自己的需求，对产品的价格进行调整。
以下是新增功能模块的主要源代码及详细说明：```python# 产品价格管理模块import datetimefrom django.db import modelsclass Product(models.Model):name = models.CharField(max_length=100, verbose_name='产品名称')price = models.DecimalField(max_digits=10, decimal_places=2, verbose_name='产品价格') create_time = models.DateTimeField(default=datetime.now, verbose_name='创建时间')class Meta:verbose_name = '产品'verbose_name_plural = verbose_name# 增加产品价格调整记录模型class PriceAdjustRecord(models.Model):product = models.ForeignKey(Product, on_delete=models.CASCADE, verbose_name='产品')old_price = models.DecimalField(max_digits=10, decimal_places=2, verbose_name='调整前价格')new_price = models.DecimalField(max_digits=10, decimal_places=2, verbose_name='调整后价格')adjust_time = models.DateTimeField(default=datetime.now, verbose_name='调整时间')class Meta:verbose_name = '价格调整记录'verbose_name_plural = verbose_name```上面的代码是在原系统中新增的产品价格管理模块的源代码。
开源源码大全
开源源码⼤全授权协议介绍先了解下相关词的解释协议和版权信息(License and copyright notice)：在代码中保留作者提供的协议和版权信息声明变更(State Changes)：在代码中声明对原来代码的重⼤修改及变更公开源码(Disclose Source)：代码必需公开。
如果是基于LGPL协议下，则只需使⽤的开源代码公开，不必将整个软件源码公开库引⽤(Library usage)：该库可以⽤于商业软件中责任承担(Hold Liable)：代码的作者承担代码使⽤后的风险及产⽣的后果商标使⽤(Use Trademark)：可以使⽤作者的姓名，作品的Logo，或商标附加协议(Sublicensing)：允许在软件分发传播过程中附加上原来没有的协议条款等协议描述要求允许禁⽌Apache⼀个较宽松且简明地指出了专利授权的协议。
协议和版权信息声明变更商⽤分发修改专利授权私⽤附加协议责任承担（禁⽌让作者承担责任，可以理解为免责）商标使⽤GPL 此协议是应⽤最为⼴泛的开源协议，拥有较强的版权⾃由(copyleft )要求。
衍⽣代码的分发需开源并且也要遵守此协议。
此协议有许多变种，不同变种的要求略有不同。
公开源码协议和版权信息声明变更商⽤分发修改专利授权私⽤责任承担附加协议MIT 宽松简单且精要的⼀个协议。
在适当标明来源及免责的情况下，它允许你对代码进⾏任何形式的使⽤。
协议和版权信息商⽤分发修改私⽤附加协议责任承担Artistic Perl社区尤为钟爱此协议。
要求更改后的软件不能影响原软件的使⽤。
协议和版权信息声明变更商⽤分发修改私⽤附加协议责任承担商标使⽤BSD 较为宽松的协议，包含两个变种BSD 2-Clause 和BSD 3-Clause，两者都与MIT协议只存在细微差异。
协议和版权信息商⽤分发修改私⽤附加协议责任承担Eclipse 对商⽤⾮常友好的⼀种协议，可以⽤于软件的商业授权。
包含对专利的优雅授权，并且也可以对相关代码应⽤商业协议。
网页编写代码大全总结
[网页设计] 网页基本标签代码大全1.公司版权注释<!— The site is designed by Maketown,Inc 06/2000 —>2.网页显示字符集简体中文：<META HTTP-EQUIV=”Content-Type” CONTENT=”text/html;charset=gb2312″>繁体中文：<META HTTP-EQUIV=”Content-Type” CONTENT=”text/html; charset=BIG5″>英语：<META HTTP-EQUIV=”Content-Type” CONTENT=”text/html;charset=iso-8859-1″>3.网页制作者信息<METAname=”author”content=”**********************”>4.网站简介<META NAME=”DESCRIPTION” CONTENT=”xxxxxxxxxxxxxxxxxxxxxxxxxx”>5.搜索关键字<META NAME=”keywords” CONTENT=”xxxx,xxxx,xxx,xxxxx,xxxx,”>6.网页的css规范<LINK href=”style/style.css” rel=”stylesheet” type=”text/css”>(参见目录及命名规范)7.网页标题<title>xxxxxxxxxxxxxxxxxx</title>.可以选择加入的标签1.设定网页的到期时间。
一旦网页过期，必须到服务器上重新调阅。
<META HTTP-EQUIV=”expires” CONTENT=”Wed, 26 Feb 1997 08:21:57 GMT”>2.禁止浏览器从本地机的缓存中调阅页面内容。
项目竣工移交申请书
项目竣工移交申请书一、项目概述本文档用于项目竣工移交申请，旨在向相关方面提交项目的完整成果以及相关文件，确保项目顺利移交并达到预期目标。
本项目的主要目标是实现XXXXX。
二、项目成果项目成果主要包括以下内容：1.项目计划书：详细描述了项目的背景、目标、范围、资源分配以及项目进度等信息；2.需求分析文档：对项目的需求进行详细的分析和描述，包括功能需求和非功能需求等；3.技术设计文档：描述了项目所采用的技术方案、系统架构以及模块设计等；4.测试报告：记录了项目测试的过程、方法和结果，确保项目的质量；5.用户手册：详细介绍了项目的安装、部署、使用方法以及常见问题的解答；6.项目演示视频：展示了项目的主要功能和特点，以便相关方面了解项目的具体情况；7.项目源代码：包括前端、后端以及数据库等部分的源代码，确保项目的可维护性。
三、项目移交流程1.整理项目资料：将项目成果按照规定的格式整理好，确保文件的完整性和有效性；2.项目评审：与相关方面进行项目评审，确保项目的质量达到要求；3.项目演示和验收：向相关方面进行项目演示，展示项目的功能和特点，并进行验收；4.移交申请书提交：将项目成果和相关文件提交给相关方面，并附上本移交申请书。
四、项目移交准备工作在提交项目移交申请之前，需要完成以下准备工作：1.确保项目成果的准确性：对项目成果进行仔细的审核和检查，确保没有遗漏和错误；2.沟通和协调相关方面：与相关方面进行沟通，了解他们对项目的需求和期望，并进行适当的调整；3.项目演示和培训：对项目进行演示，让相关方面了解项目的功能和特点，并进行培训，确保顺利使用；4.文档整理和归档：将项目的相关文件整理好，按照规定的格式进行归档，方便以后查阅和使用。
五、项目移交申请说明1.项目名称：XXXXX2.项目负责人：XXX3.移交日期：XXXX年XX月XX日4.移交内容：请参考第二部分的项目成果内容5.移交原因：项目已经完成并通过了相关方面的评审和验收，达到了预期的目标和要求，现准备进行移交。
XX金服系统源代码转交确认书(三级等保)
源代码移交确认书
移交方：XXX
接收方：XXX
移交方为接收方开发_XX系统_ 项目（_X.0_版），于_XXXX_年_XX_月_XX_日全部开发完成。
接收方已验收源码并付清全款。
现移交方将程序源代码移交给接收方。
移交清单如下：XXXXX
1、XXXX
2、XXXX
移交时间：_XXXX_年_XX_月__XX__日
接收方已核对源码并确认全部接收均无异议，双方承诺如下：
1、移交后，移交方在维护合同期内对移交的源码有义务提供全面的技术支持服务；
2、移交方保证移交后的源码可以进行修改；
3、移交方保证源代码中不包含任何后门程序或隐蔽信道。
移交方（签字）：接收方(签字)：
日期：日期：。
工程项目管理源代码(3篇)
第1篇摘要：随着我国经济的快速发展，工程项目管理在各个行业中的地位日益凸显。
工程项目管理源代码作为工程项目管理的重要工具，能够有效地提高工程项目的管理效率和质量。
本文将介绍工程项目管理源代码的基本概念、功能特点、实现方法以及在实际应用中的优势。
一、引言工程项目管理源代码是一种基于计算机技术的工程项目管理工具，它能够将工程项目的管理过程、信息、资源等有机地整合在一起，为项目管理人员提供全面、高效、便捷的项目管理服务。
工程项目管理源代码的开发和应用，有助于提高工程项目的管理水平，降低项目成本，缩短项目周期。
二、工程项目管理源代码的基本概念1. 概念工程项目管理源代码是指使用编程语言编写，用于实现工程项目管理功能的计算机程序。
它主要包括项目计划、进度管理、资源管理、成本管理、质量管理、风险管理等模块。
2. 特点（1）模块化设计：工程项目管理源代码采用模块化设计，将项目管理的各个功能模块进行封装，便于用户根据实际需求进行选择和配置。
（2）易于扩展：工程项目管理源代码具有良好的可扩展性，用户可以根据实际需求添加新的功能模块，满足不同类型工程项目的管理需求。
（3）易用性：工程项目管理源代码操作简便，用户界面友好，易于学习和使用。
（4）数据安全性：工程项目管理源代码采用加密技术，确保项目数据的安全性和保密性。
三、工程项目管理源代码的功能特点1. 项目计划管理（1）制定项目计划：工程项目管理源代码可以根据项目需求，制定详细的项目计划，包括项目目标、进度、资源、成本等。
（2）项目进度跟踪：实时跟踪项目进度，确保项目按计划进行。
（3）项目调整：根据实际情况，对项目计划进行调整，确保项目目标的实现。
2. 资源管理（1）资源分配：合理分配项目资源，包括人力、设备、材料等。
（2）资源调度：根据项目进度，实时调整资源分配，确保项目顺利进行。
（3）资源利用率分析：分析项目资源利用率，提高资源利用效率。
3. 成本管理（1）成本估算：根据项目需求，估算项目成本。
档案验收编制指南(学习模板)
档案验收编制指1.档案编号及类型档案编号即档号。
档号及档号规则由项目归属档案指定(项目归属档案见文件《重大建设项目档案验收实施细则》)。
例如：XXXX二期项目档号为“XXXX-XXXX”，由XXXX档案指定。
档号后以“.”符号加序号进行档案提供方的区别、项目区别，以“-”符号加序号作为资料份数的编号。
举例：XXXX二期项目。
1.1.资料类型编号表依此类推。
1.2.XXXX二期项目编号表2.档案年限根据《国家档案、国家发展和改革委员会关于印发《国家电子工程建设项目档案管理暂行办法》的通知（档发〔2008〕3号）》文件的规定的各类资料需保存的年限，详见附件1：国家电子工程建设项目文件归档范围和保管期限表。
3.档案资料类型及要求3.1.技术制图、复制图的折叠方法3.2.录音、录像档案管理规范将声像资料刻录在不可擦写的光盘上保存，光盘盒说明格式见附件7。
待补充3.3.照片档案管理规范数码照片应刻录在不可擦写的光盘上保存，同时还按封面、简介、目录、照片、备考表顺序用200克以上高光相纸打印成册。
封面、目录、照片格式见附件七、八、九。
1.照片盒：待补充。
2.册内照片目录（格式见附件6）：3.照片：格式及示例：题名：XXXX建设需求确认照片号：XXXX-XXXX.05.04-001底片号：XXXX-XXXX.05.04-001参见号：时间：20200220摄影者：XXX文字说明：XXXXX3.4.案卷封面(档案盒正面)案卷封面包括以下内容：档号、项目名称(合同名称)、案卷题名、项目编号、卷数、立卷单位、起止日期、保管期限、密级，字体与格式见附件2；4.档号：参照章节1：档案编号及类型。
同案卷题名的档号一样。
5.项目名称：项目盖章生效的名称。
6.案卷题名：所包含的资料名称和。
多份资料间以“、”顿号间隔。
例如：需求规格说明书、概要设计说明书。
7.项目编号：立项文件中所确定的项目编号。
8.卷数：按“第N卷共N卷”的格式填写，每卷必须包含以目录开始、卷内备考表结束。
毕业设计——代码清单
CENTRAL SOUTH UNIVERSITY 本科生毕业设计代码清单题目通用文本算法库的设计学生姓名赵扶摇指导老师余腊生学院信息科学与工程学院专业班级计算机科学与技术0610班完成时间 2010年6月目录第一章工程结构说明 (1)第二章源程序头文件 (2)Base.h (2)Queue.h (2)ExactMatchingS.h (3)Automata.h (4)ExactMatchingM.h (5)RegularExpression.h (5)SuffixArray.h (7)ExtendKMP.h (8)DES.H (8)DoubleHash.h (10)第三章源程序代码文件 (12)ExactMatchingS.cpp (12)ExactMatchingM.cpp (20)Automata.cpp (23)RegularExpression.cpp (26)SuffixArray.cpp (33)DES.cpp (39)DoubleHash.cpp (45)ExtendKMP.cpp (47)第一章工程结构说明整个工程由10个头文件以及8个源文件组成，可在Visual C++或者GCC下编译。
头文件中含有所有的函数声明，而源文件中则是所有函数的具体实现。
该工程的结构如下图所示：第二章源程序头文件Base.h//Base.h//头文件包含及基础数据结构，头文件//by 赵扶摇#include <iostream>#include <algorithm>#include <functional>#include <queue>#include <cstdio>#include <cstdlib>#include <cstring>#include <cmath>#include <list>#include <vector>#include <iostream>#include <fstream>using namespace std;#define MAX_RANGE 256#define MAX_PATTERN_LENGTH 1024#define MAX_TEXT_LENGTH 100000#define MAX_LOGN 20#define FAIL -1#define EPSILON 1#define MAX_REP 50#define MACHINE_WORD_LENGTH 32#define LOG_2 0.693147 //ln(2)的大小#define log_2(a) (int)(log((double)(a)) / LOG_2)#define newArray(type, p, size, val) {(p) = new type[(size)]; memset(p,(val),sizeof(type)*(size));}Queue.h//Queue.h//队列，头文件//by 赵扶摇#pragma oncetypedef struct {int curr;int parent;char label;} QueueNode; //专用队列节点#define EnQueue(Q) (&(Q[rear++])) //取得要记录的节点#define DeQueue(Q) (&(Q[front++]))#define EmptyQueue() (rear == front)#define InitQueue(Q, size) {Q = new QueueNode[(size)]; rear = front = 0;} ExactMatchingS.h//ExactMatchingS.h//多串精确模式匹配，头文件//by 赵扶摇#pragma once#include "Base.h"//Shift-And算法void ShiftAnd(char *t, char *p, int n, int m, int res[], int cnt);//ShiftOr算法void ShiftOr(char *T, char *P, int n, int m, int res[], int cnt);//暴力算法void Naive(char *t, char *p, int n, int m, int res[], int cnt);//RabinKarp算法void RabinKarp(char *t, char *p, int n, int m, int res[], int cnt);//更快的RabinKarp匹配版本void RabinKarpFaster(char *t, char *p, int n, int m, int res[], int cnt); //自动机的建立void Build_DFA(char *P, int m, int trans[][MAX_PATTERN_LENGTH]);//使用前向自动机的匹配算法void PrefixFiniteAutomata(char*T, char*P, int n, int m, int res[], int cnt); //KMP算法预处理函数void preKmp(char *P, int m, int kmpNext[]);//KMP算法void KMP(char *P, int m, char *T, int n, int res[], int cnt);//Horspool算法void Horspool(char *t, char *p, int n, int m, int res[], int cnt);//BOM算法void BOM(char *T, char *P, int n, int m, int res[], int cnt);//BNDM算法void BNDM(char *t, char *p, int n, int m, int res[], int cnt);//algo3算法void Algo3(char *T, char *P, int n, int m, int res[], int cnt); Automata.h//Automata.h//用于多串匹配的自动机，头文件//by 赵扶摇#pragma once#include "Base.h"#define TERMINAL 1#define NON_TERMINAL 0#define INITIAL_STATE 0#include "base.h"//自动机的结构体typedef struct Automata {int *matrix[MAX_RANGE];int vexnum;int *F[50]; //F[curr][1...m]表示终止状态所代表那些模式串，点存储着数量int *S;bool *terminal;char *next[MAX_RANGE]; //快速获得一个节点的邻接节点，而不是做range次的扫描char *first;} Automata;//取得trans[curr, c] 的转移#define getTrans(au, curr, c) a u.matrix[c][curr]//设置trans[curr, c] 的转移为state#define setTrans(au, curr, c, state) au.matrix[c][curr] = state//判断curr 的特征是否为结束#define isTerminal(au, curr) au.terminal[curr] != NON_TERMINAL//设置curr 的特征为结束#define setTerminal(au, curr) a u.terminal[curr] = TERMINAL//创建一个新的状态，返回其节点编号#define newState(au, s) (au.terminal[au.vexnum] = NON_TERMINAL,au.vexnum++)//F集合中的数量#define sizeFSet(au, curr) (au.F[0][(curr)])//增加集合集中的字符串#define addFSet(au, curr, i) (au.F[++sizeFSet(au, curr)][(curr)] = (i)) #define getFSet(au, curr, i) au.F[i][(curr)]//查找指定转移的标号void InitAutomata(Automata &au, int lmax, int r, int init = FAIL); //初始化自动机void DestroyAutomata(Automata &au);int Trie(char *P[], int m[], int r, Automata &au, bool rev = false); //构造Trie, rev表示是否倒排//P为模式串集合，m是模式串大小集合，r为模式串数量//F(q)[]中包含q所对应的P中的字符串//返回lminvoid ClearAutomata(Automata &au, int lmax, int r); ExactMatchingM.h//ExactMatchingM.h//多串精确模式匹配，头文件//by 赵扶摇#pragma once//AhoCorasick匹配算法（完全性自动机）void Aho_Corasick_Ad(char *T, char *P[], int n, int m[], int r, int res[][2], int cnt);//SBOM匹配算法void SBOM(char *T, char *P[], int n, int m[], int r, int res[][2], int cnt); RegularExpression.h//RegularExpression.h//正则表达式匹配，头文件//by 赵扶摇#pragma once#include "Base.h"//解析树的节点结构struct PaserTreeNode {char val;PaserTreeNode *lchild, *rchild;PaserTreeNode();PaserTreeNode(char letter, PaserTreeNode* left, PaserTreeNode *right); };//是否是正则表达式字符bool isRegLetter(char letter);//解析正则表达式PaserTreeNode *Parse(char *p, int &last);//状态struct State{struct Pair {State *next;char letter;Pair (char letter, State *next);};int id;bool isAcc;bool mark;list<Pair> transList;State();State(bool isAcc);void SetNFATrans(char letter, State *next);void SetDFATrans(char letter, State *next);State * GetDFATrans(char letter);list<State*> GetNFATrans(char letter);};//闭包集合struct Closure {list<int> stateSet;int hashValue;bool containTerminal;Closure();void Add(State *s);void Merge(const Closure &b);bool isEqual(Closure &b);};class NFA {private:void Identify(State *s, int &last);void setMark(State *s);//Tompson自动机的构造的递归过程void TompsonRecur(PaserTreeNode *v, State * &start, State * &terminal); public:State *start;int stateNumber;NFA();NFA (char *reg);//Tompson自动机的构造void ConstructTompson(char *reg);};class DFA {private:void Identify(State *s, int &last);vector<State *> stateIndex;//tempelyvector<State *> nStatesIndex;public:State *start;int stateNumber;//构造函数，从NFA转成DFADFA(State *NFA);//自动机的最小化void Minimize();//DFA匹配过程void DFAMatcher(char *text, int res[], int cnt);};SuffixArray.h//SuffixArray.h//头文件（包括Lempel-ziv压缩）//by 赵扶摇#include "Base.h"//s为原串,SA为后缀数组void SuffixArray(char * s, int n, int * SA, int * Rank);//O(n)时间内求height数组void GetLcp(char * s, int n, int * SA, int * Rank, int * &Hgt);//RMQ问题预处理void BuildSparseTable(int * A, int ST[][MAX_LOGN], int n);//返回待查数组中最小值的编号, 如果不能保证i<j, 需要加判断int RMQ(int ST[][MAX_LOGN], int i, int j);//suffix(i), suffix(j)的最长公共前缀长度int LCP(int ST[][MAX_LOGN], int * Rank, int n, int i, int j);//两个字符串的公共最长前缀int LCP(char *a, char *b);//一个串最长重复子串（至少出现k>1次）int LongestRepeatSubstringAtLeastK(char *s, int n, int k);//在后缀数组上进行二分搜索int BinarySearchSA(int *SA, int *lcp, int *rank, int ST[][MAX_LOGN], char *t, int n, char *p, int m);//最近最小元素计算void calNearestElement(int a[], int n, int leftElements[], int rightElements[]);//LEMPEL-ZIV分解算法void LempelZiv(char *s, int n, int LZ[], int k);ExtendKMP.h//ExtendKMP.h//扩展KMP及其应用，头文件//by 赵扶摇#include "Base.h"//下标位从开始, 保证最后为\0void PreExtKMP(char *p, int m, int *lcp);//res为t[i]和p的lcpvoid ExtKMP(char *t, int n, char *p, int m, int *lcp, int *res);//分治法，借助扩展KMP求平方子串数量void MainLorentz(char s[], int n, int &cnt);DES.H//DES.h//DES加密，头文件//by 赵扶摇#include "Base.h"class DES {public:int (*PermutedKey)[8];int *shiftList;int (*keyCompress)[8];int (*txttRightExpand)[8];int (*initialPermutation)[8];char (*sBox)[4][16];int (*permutationFunc)[8];int (*inversePermutation)[8];//保存个key,每个key有*8=48位,但是为了扩展与压缩的方便，我们这里用位字符进行存储,数据靠前存储char keys[16][8];//存放明文，左半部分前四个字节，右半部分后四个字节char txtt[8];char key[9];//标记是加密还是解密,1是加密,0是解密int decodeEncode;//定义文件流ifstream fileIn;ofstream fileOut;DES();virtual ~DES();//产生个key,void generateKey();//对于一个分块数据的处理进行加密,并存储到文件中去void txttCeil(ofstream *, bool);void solve();private://所有进行表的替代的操作的集中函数void substitution(int, int, char *, int (*)[8], char *, int, int, int);//移位函数,用于实现对于某个多字节整体的移位,是函数generateKey的一个附属函数void shiftKeyPar(int, int, char *);//函数用于s盒压缩void sBoxCompress(char *, char *);};DoubleHash.h//DoubleHash.h//双哈希应用//by 赵扶摇#include "Base.h"struct HashString { //倍增算法计算LCPstatic const int d1 = 3, d2 = 4;static const int q1 = 990001, q2 = 999883;long long hvalue1[MAX_TEXT_LENGTH][MAX_LOGN];long long hvalue2[MAX_TEXT_LENGTH][MAX_LOGN];char s[MAX_TEXT_LENGTH];int n;int logn;HashString(char str[]);//建立哈希表void BuildHashTable();//两个子串的公共最长前缀int LCP(int i, int j) ;//不同串的两个子串的公共最长前缀int LCP(int i, HashString &t, int j);//两个子串的字母序int Compare(int i, int leni, int j, int lenj);//不同串的两个子串的字母序int Compare(int i, int leni, HashString &t, int j, int lenj); };class LongestCommonSubstring{public:int n; //字符串的总数量char str[6][1000011]; //不同的字符串int len[6]; //字符串的长度#define q1 990001#define q2 999883#define CON 2#define MAX 1000000int hash[MAX][CON]; //这里理论上应该用链表的，不然就有水的嫌疑char cnt[MAX][CON]; //这里存的是一组哈希值是在第几个字符串被发现的bool ok;void Add(int v1, int v2, int l); //把两个hash值分别为v1,v2的字符串加入哈希表bool Check(int m); //寻找m长的公共最长子串};第三章源程序代码文件ExactMatchingS.cpp//ExactMatchingS.cpp//单串精确模式匹配//by 赵扶摇#include "Base.h"//Shift-And算法void ShiftAnd(char *t, char *p, int n, int m, int res[], int cnt) { //在字符集小及m较小的情况为优register unsigned int B[MAX_RANGE];int i;register unsigned int mask, D;cnt = 0;if (m > 32) return;//Preprocessingmemset(B, 0, sizeof(B));for (i = mask = 1; i <= m; i++, mask <<= 1)B[p[i]] |= mask;mask >>= 1;//SearchingD = 0;for (i = 1; i <= n; i++) {D = ((D << 1) | 1) & B[t[i]];if ((D & mask) != 0) res[cnt++] = i - m + 1;}}//ShiftOr算法void ShiftOr(char *T, char *P, int n, int m, int res[], int cnt) { //在字符集小及m较小的情况为优register unsigned int B[MAX_RANGE], mask;int i;register unsigned int lim, D;cnt = 0;//Preprocessingmemset(B, ~0, sizeof(B));mask = 1; lim = 0;for (i = 1; i <= m; i++, mask <<= 1) {B[P[i]] &= ~mask;lim |= mask;}lim = ~(lim >> 1);//SearchingD = ~0;i = 1;while (i <= n) {D = (D << 1) | B[T[i++]];if (D < lim) res[cnt++] = (i - m);}}//暴力算法void Naive(char *t, char *p, int n, int m, int res[], int cnt) { int i, j, k = 0;cnt = 0;for (i = 0; i <= n - m; i++) {for (j = 1; j <= m; j++)if (p[j] != t[i+j])break;if (j == m + 1)res[cnt++] = i + 1;}}//RabinKarp算法void RabinKarp(char *t, char *p, int n, int m, int res[], int cnt) { #define HASH(t, i, T) t = (d * t + T[i]) % q#define REHASH(t, i, T) t = ((d * (t - T[i]*h) + T[i+m]) % q);int d = 26;int q = 65537;int offset = q * d;int _t = 0;int _p = 0;int h;int i, j;cnt = 0;//Preprocessingfor (i = h = 1; i < m; i++) h = (h * d) % q;for (i = 1; i <= m; i++) {HASH(_p, i, p);HASH(_t, i, t);}//Searchingi = 0;while (i <= n - m) {if (_p == _t) {for (j = 1; j <= m && p[j] == t[i+j]; j++);if (j == m + 1) res[cnt++] = i + 1;}i++;//REHASH(_t, i, t);_t = (d * (_t - t[i] * h) + t[i + m]) % q;}}//更快的RabinKarp匹配版本void RabinKarpFaster(char *t, char *p, int n, int m, int res[], int cnt) { int _t = 0;int _p = 0;int h;int i, j;cnt = 0;//Preprocessingh = 1 << (m - 1);for (i = 1; i <= m; i++) {_p = (_p << 1) + p[i];_t = (_t << 1) + t[i];}//Searchingi = 0;while (i <= n - m) {if (_p == _t) {for (j = 1; j <= m && p[j] == t[i+j]; j++);if (j == m + 1) res[cnt++] = i + 1;}i++;_t = ((_t - t[i] * h) << 1) + t[i+m];}}void Build_DFA(char *P, int m, int trans[][MAX_PATTERN_LENGTH]) { int S[MAX_PATTERN_LENGTH + 1];int curr, down, i;int c;for (i = 0; i < MAX_RANGE; i++) trans[i][0] = 0;S[0] = FAIL;for (curr = 1; curr <= m; curr++) {c = P[curr];trans[c][curr - 1] = curr;down = S[curr - 1];while (down != FAIL && trans[c][down] == FAIL) //回溯down = S[down];if (down != FAIL)S[curr] = trans[c][down];else S[curr] = 0;for (int i = 0; i < MAX_RANGE; i++)if (trans[i][curr] == FAIL)trans[i][curr] = trans[i][S[curr]]; //完全化}}//使用前向自动机的匹配算法void PrefixFiniteAutomata(char *T, char *P, int n, int m, int res[], int cnt) {int i, curr;cnt = 0;int trans[MAX_RANGE][MAX_PATTERN_LENGTH];memset(trans, FAIL, sizeof(trans));//PreprocessingBuild_DFA(P, m, trans);//Searchingfor (i = 1, curr = 0; i <= n; i++) {curr = trans[T[i]][curr];if (curr == m)res[cnt++] = i - m + 1;}}void preKmp(char *P, int m, int kmpNext[]) {int i, j;i = 0;j = kmpNext[0] = -1;while (i < m) {while (j > -1 && P[i] != P[j])j = kmpNext[j];i++;j++;if (P[i] == P[j])kmpNext[i] = kmpNext[j];elsekmpNext[i] = j;}}//KMP算法void KMP(char *P, int m, char *T, int n, int res[], int cnt) { int i, j, kmpNext[MAX_PATTERN_LENGTH + 1];cnt = 0;/* Preprocessing */preKmp(P, m, kmpNext);/* Searching */i = j = 0;while (j < n) {while (i > -1 && P[i] != T[j])i = kmpNext[i];i++;j++;if (i >= m) {res[cnt++] = j - i;i = kmpNext[i];}}}//Horspool算法void Horspool(char *t, char *p, int n, int m, int res[], int cnt) { //在字符集小及m较小的情况为优int d[MAX_RANGE+1];int i, pos;cnt = 0;//Preprocessingfor (i = 0; i <= MAX_RANGE; i++)d[i] = m;for (i = 1; i <= m - 1; i++)d[p[i]] = m - i;//Searchingpos = 0;while (pos <= n - m) {i = m;while (i > 0 && t[pos+i] == p[i])i--;if (i == 0)res[cnt++] = pos + 1;pos += d[t[pos+m]];}}void Oracle_on_line(char *p, int m, int trans[][MAX_PATTERN_LENGTH]) { int S[MAX_PATTERN_LENGTH + 1];int k, s, j;int c;S[0] = FAIL;for (j = 0; j < m; j++) {c = p[m - j];trans[c][j] = j + 1;k = S[j];while (k != FAIL && trans[c][k] == FAIL) {trans[c][k] = j + 1;k = S[k];}if (k == FAIL) s = 0;else s = trans[c][k];S[j + 1] = s;}}//BOM算法void BOM(char *T, char *P, int n, int m, int res[], int cnt) { int i, pos, current;cnt = 0;int trans[MAX_RANGE][MAX_PATTERN_LENGTH];memset(trans, FAIL, sizeof(trans));//PreprocessingOracle_on_line(P, m, trans);//Searchingpos = 0;while (pos <= n - m) {current = 0;i = m;while (i > 0 && current != FAIL) {current = trans[T[pos + i]][current];i--;}if (current != FAIL)res[cnt++] = pos + 1;pos += i + 1;}}//BNDM算法void BNDM(char *t, char *p, int n, int m, int res[], int cnt) { //在字符集小及m较小的情况为优register unsigned int B[MAX_RANGE+1];int last, pos, i, temp;register unsigned int D;register int mask = 1 << (m - 1);int count = 0;if (m > 32) return;cnt = 0;//Preprocessingmemset(B, 0, sizeof(B));temp = 1;for (i = m; i > 0; i--) {B[p[i]] |= temp;temp <<= 1;}//Searchingpos = 0;while (pos <= n - m) {i = last = m;D = ~0;while (D) {D &= B[t[pos+i]];i--;if (D & mask) {if (i > 0) last = i;else res[cnt] = pos + 1;}D <<= 1;}pos += last;}}void algo1(char *T, int n, char *P, int m, int res[], int cnt) { int i, j;register unsigned int p = 0;register unsigned int t = 0;cnt = 0;register int beta = MACHINE_WORD_LENGTH / m;bool flag = MAX_RANGE < (1 << beta);//the mask to get the bit of a characterregister unsigned int get = (1 << beta) - 1;//the mask to eliminate the bits shifted higherregister unsigned int remove = ((long long)1 << (m * beta)) - 1;for (i = 0; i < m; i++) {p = (p << beta) | (P[i] & get);t = (t << beta) | (T[i] & get);}i = m;while (i <= n) {if (p == t) {if (flag) {res[cnt++] = i;} else {for (j = 0; j < m && P[j] == T[i + j - m]; j++);if (j == m) res[cnt++] = i;}}t = ((t << beta) & remove) | (T[i++] & get);}}//use the macro the define functions in algo2 keeps the 'beta' and 'get' to be implemented as constants#define algo2_macro(name, beta, get) \void name (char *T, int n, char *P, int m, int mm, int res[], int cnt) { \ int i, j, nn; \register unsigned int p = 0 , t = 0; \for (i = 0; i < mm; i++) { \p = (p << beta) | (P[i] & get); \t = (t << beta) | (T[i] & get); \} \nn = n - (m - mm); \i = mm; \while (i <= nn) { \if (p == t) { \for (j = 0; j < m && P[j] == T[i + j - mm]; j++); \if (j == m) res[cnt++]=(i - mm); \} \t = (t << beta) | (T[i++] & get); \} \} \//define functions used in algo2algo2_macro(algo2_b1, 1, 1)algo2_macro(algo2_b2, 2, 3)algo2_macro(algo2_b4, 4, 15)algo2_macro(algo2_b8, 8, 127)algo2_macro(algo2_b16, 16, 127)void algo2(char *T, int n, char *P, int m, int res[], int cnt) {int mm = 1 << log_2(m);int beta = MACHINE_WORD_LENGTH / mm;if (beta == 1) algo2_b1(T, n, P, m, mm, res, cnt);else if (beta == 2) algo2_b2(T, n, P, m, mm, res, cnt);else if (beta == 4) algo2_b4(T, n, P, m, mm, res, cnt);else if (beta == 8) algo2_b8(T, n, P, m, mm, res, cnt);else if (beta == 16) algo2_b16(T, n, P, m, mm, res, cnt);}//algo3算法void Algo3(char *T, char *P, int n, int m, int res[], int cnt) { T++; P++;cnt = 0;if ((MAX_RANGE == 2 && m < 8) || (MAX_RANGE < 7 && m < 4)) algo1(T, n, P, m, res, cnt);else algo2(T, n, P, m, res, cnt);}ExactMatchingM.cpp//ExactMatchingM.cpp//多串精确模式匹配//by 赵扶摇#include "Base.h"#include "ExactMatchingM.h"#include "Queue.h"#include "Automata.h"int Build_Oracle_Multiple(char *P[], int m[], int r, Automata &OR) { int curr, par, down, i;char c;int lmin = Trie(P, m, r, OR, true); //这个时间是很短的OR.S[0] = FAIL;int front, rear; //队列最大长度不超过QueueNode *queue, *state;front = rear = 0;InitQueue(queue, r*m[r] + 1);//以下主要求S这个供给链函数//先把点入队列state = EnQueue(queue);state->curr = 0; state->parent = 0;while (!EmptyQueue()) {state = DeQueue(queue); //获取当前状态curr = state->curr;par = state->parent;c = state->label;down = OR.S[par];while (down != FAIL && getTrans(OR, down, c) == FAIL) { //回溯//几乎就这与AC自动机不同setTrans(OR, down, c, curr);down = OR.S[down];}if (down != FAIL) //另一个区别是这没有奇怪的语句OR.S[curr] = getTrans(OR, down, c);else if (curr > 0) OR.S[curr] = 0;//重整队列for (i = OR.first[curr]; i != FAIL; i = OR.next[i][curr]) {state = EnQueue(queue);state->curr = getTrans(OR, curr, i); state->parent = curr;state->label = i;}}//delete queue;return lmin;}void SBOM(char *T, char *P[], int n, int m[], int r, int res[][2], int cnt) {int i, j, k, index, pos, curr, lmax = 0;Automata OR;for (i = 0; i < r; i++) lmax = max(lmax, m[i]);InitAutomata(OR, m[i], r);int lmin = Build_Oracle_Multiple(P, m, r, OR);cnt = 0;pos = 0;while (pos <= n - lmin) {curr = 0;i = lmin;while (curr != FAIL && i >= 1) {curr = getTrans(OR, curr, T[pos+i]);i--;}if (curr != FAIL) {for (j = 1; j <= sizeFSet(OR, curr); j++) {index = getFSet(OR, curr, j); //获取匹配的模式串编号for (k = 1; k <= m[index]; k++)if (P[index][k] != T[pos+k]) break;if (k > m[index]) {res[cnt][0] = index;res[cnt][1] = pos + 1;}}}pos += (i + 1);}}void Build_AC_Ad(char *P[], int m[], int r, Automata &AC) { int curr, par, down;char c;Trie(P, m, r, AC);AC.S[0] = FAIL;int front, rear; //队列最大长度不超过PATTERN_LENGTHQueueNode *queue, *state;front = rear = 0;InitQueue(queue, r*m[r] + 1);//以下主要求S这个供给链函数//先把点入队列state = EnQueue(queue);state->curr = 0; state->parent = 0;while (!EmptyQueue()) {state = DeQueue(queue); //获取当前状态curr = state->curr; par = state->parent; c = state->label; down = AC.S[par];while (down != FAIL && getTrans(AC, down, c) == FAIL) //回溯down = AC.S[down];if (down != FAIL) {AC.S[curr] = getTrans(AC, down, c); //我认为古怪的事情终究还是发生啦，哈哈哈if (isTerminal(AC, AC.S[curr])) {setTerminal(AC, curr);for (int i = 1; i <= sizeFSet(AC, AC.S[curr]); i++) //将S[curr]的F并入addFSet(AC, curr, getFSet(AC, AC.S[curr], i));}} else if (curr > 0) AC.S[curr] = 0;//重整队列for (int i = 0; i < MAX_RANGE; i++) {if (getTrans(AC, curr, i) != FAIL) {state = EnQueue(queue);state->curr = getTrans(AC, curr, i); state->parent = curr;state->label = i;} else if (curr > 0) setTrans(AC, curr, i, getTrans(AC,AC.S[curr], i)); //完全化else setTrans(AC, 0, i, 0);}//队列重整完毕}//delete queue;}void Aho_Corasick_Ad(char *T, char *P[], int n, int m[], int r, int res[][2], int cnt) {//完全的自动机int curr, pos, i, j;Automata AC;cnt = 0;InitAutomata(AC, m[r], r);//ProprocessingBuild_AC_Ad(P, m, r, AC);//Searchingcurr = 0;for (pos = 1; pos <= n; pos++) {curr = getTrans(AC, curr, T[pos]);if (isTerminal(AC, curr))for (i = 1; i <= sizeFSet(AC, curr); i++) {j = getFSet(AC, curr, i); //获取匹配的模式串编号res[cnt][0] = j;res[cnt++][1] = pos - m[j] + 1;}}}Automata.cpp#include "Automata.h"Automata au; //不考虑内存分配时间构造int *matrix;char *next;int *F;void InitAutomata(Automata &au, int lmax, int r, int init) { //init为各状态初始的值，默认为FAILau.S = new int[r*lmax+1];au.terminal = new bool[r*lmax+1];newArray(char, au.first, r*lmax + 1, FAIL);newArray(int, matrix, (r*lmax + 1)*MAX_RANGE, FAIL);newArray(char, next, (r*lmax + 1)*MAX_RANGE, FAIL);newArray(int, F, (r*lmax + 1)*MAX_REP, 0);}void DestroyAutomata(Automata &au) {delete matrix;delete next;delete F;delete au.first;delete au.S;delete au.terminal;}int Trie_SimpleRev(char *P[], int m[], int r, Automata &au) { //P为模式串集合，m是模式串大小集合，r为模式串数量//F(q)[]中包含q所对应的P中的字符串,这里认为不可能用两个相同的串int i, j, curr, state, trans;char *last;int lmin = 65536;newArray(char, last, r*m[r] + 1, FAIL);newState(au, NON_TERMINAL);//Create an initial non terminal state 0 for (i = 1; i <= r; i++) {lmin = min(lmin, m[i]);j = m[i];curr = 0;while (j >= 1 && (trans = getTrans(au, curr, P[i][j])) != FAIL) { curr = trans;j--;} //略过公共的部分while (j >= 1) {state = newState(au, NON_TERMINAL); //state为转移到的下一个状态setTrans(au, curr, P[i][j], state);//如果该状态还无任何转移if (au.first[curr] == FAIL) au.first[curr] = P[i][j];else au.next[last[curr]][curr] = P[i][j];last[curr] = P[i][j]; //为curr最新创建的转移curr = state;j--;} //添加新的转移if (!isTerminal(au, curr))setTerminal(au, curr);addFSet(au, curr, i);}delete last;return lmin;}int Trie(char *P[], int m[], int r, Automata &au, bool rev) { if (rev)return Trie_SimpleRev(P, m, r, au);//P为模式串集合，m是模式串大小集合，r为模式串数量//F(q)[]中包含q所对应的P中的字符串,这里认为不可能用两个相同的串int i, j, curr, state, trans;char *last;newArray(char, last, r*m[r] + 1, FAIL);newState(au, NON_TERMINAL);//Create an initial non terminal state 0for (i = 1; i <= r; i++) {curr = 0;j = 1;while (j <= m[i] && (trans = getTrans(au, curr, P[i][j])) != FAIL) { curr = trans;j++;} //略过公共的部分while (j <= m[i]) {state = newState(au, NON_TERMINAL); //state为转移到的下一个状态setTrans(au, curr, P[i][j], state);//如果该状态还无任何转移if (au.first[curr] == FAIL) au.first[curr] = P[i][j];else au.next[last[curr]][curr] = P[i][j];last[curr] = P[i][j]; //为curr最新创建的转移curr = state;j++;} //添加新的转移if (!isTerminal(au, curr))setTerminal(au, curr);addFSet(au, curr, i);}delete last;return 0;}RegularExpression.cpp//RegularExpression.cpp//正则表达式匹配//by 赵扶摇#include "RegularExpression.h"PaserTreeNode::PaserTreeNode() {val = -1;lchild = rchild = NULL;}PaserTreeNode::PaserTreeNode(char letter, PaserTreeNode* left, PaserTreeNode *right) {val = letter;lchild = left;rchild = right;}bool isRegLetter(char letter) {return isdigit(letter) || isalpha(letter);}//解析正则表达式PaserTreeNode *Parse(char *p, int &last) {PaserTreeNode *v = NULL, *vr;while (p[last] != '\0') {if (isRegLetter(p[last]) || p[last] == EPSILON) {vr = new PaserTreeNode(p[last], NULL, NULL);if (v != NULL) v = new PaserTreeNode('.', v, vr);else v = vr;last++;} else if (p[last] == '|') {last++;vr = Parse(p, last);v = new PaserTreeNode('|', v, vr);} else if (p[last] == '*') {v = new PaserTreeNode('*', v, NULL);last++;} else if (p[last] == '(') {last++;vr = Parse(p, last);last++; //skip ')'if (v != NULL) v = new PaserTreeNode('.', v, vr);else v = vr;} else if (p[last] == ')')break;}return v;}State::Pair::Pair (char letter, State *next) {this->letter = letter;this->next = next;}State::State() {mark = isAcc = false;id = -1;}State::State(bool isAcc) {mark = false;this->isAcc = isAcc;id = -1;}void State::SetNFATrans(char letter, State *next) {transList.push_back(Pair(letter, next));}void State::SetDFATrans(char letter, State *next) {for (list<Pair>::iterator it = transList.begin(); it != transList.end(); it++) {if (it->letter == letter) {it->next = next;return;}}transList.push_back(Pair(letter, next));}State * State::GetDFATrans(char letter) {for (list<Pair>::iterator it = transList.begin(); it != transList.end(); it++) {if (it->letter == letter)return it->next;}return NULL;}list<State*> State::GetNFATrans(char letter) {list<State*> res;for (list<Pair>::iterator it = transList.begin(); it != transList.end(); it++) {if (it->letter == letter)res.push_back(it->next);}return res;}Closure::Closure() {hashValue = 0;containTerminal = false;}void Closure::Add(State *s) {stateSet.push_back(s->id);containTerminal |= s->isAcc;hashValue += s->id;}void Closure::Merge(const Closure &b) {stateSet.insert(stateSet.end(), b.stateSet.begin(), b.stateSet.end());containTerminal |= b.containTerminal;hashValue += b.hashValue;}bool Closure::isEqual(Closure &b) {if (stateSet.size() != b.stateSet.size() || hashValue != b.hashValue) return false;stateSet.sort();b.stateSet.sort();for(list<int>::iterator it = stateSet.begin(), itb = b.stateSet.begin(); it != stateSet.end(); it ++, itb++)if (*it != *itb) return false;return true;}void NFA::Identify(State *s, int &last) {if (s->mark == true) return;s->id = last++;s->mark = true;for (list<State::Pair>::iterator it = s->transList.begin(); it !=s->transList.end(); it++) {Identify(it->next, last);}}void NFA::setMark(State *s) {if (s->mark == false) return;s->mark = false;for (list<State::Pair>::iterator it = s->transList.begin(); it !=s->transList.end(); it++) {setMark(it->next);。
项目代码20183307832103055762000
百度文库- 让每个人平等地提升自我项目代码：2003-055762-000建设项目环境影响报告表项目名称：年产200套家具技改项目建设单位：东阳市城东歌诗图家具厂评价单位：杭州一达环保技术咨询服务有限公司编制日期：2018年8月《建设项目环境影响报告表》编制说明《建设项目环境影响报告表》由具有从事环境影响评价工作资质的单位编制。
1、项目名称——指项目立项批复时的名称，应不超过30个字（两个英文字段作一个汉字）。
2、建设地点——指项目拟选地详细地址，公路、铁路应填写起止地点。
3、行业类别——按国标填写。
4、总投资——指项目投资总额。
5、主要环境保护目标——指项目区周围一定范围内集中居民住宅区、学校、医院、保护文物、风景名胜区、水源地和生态敏感点等，应尽可能给出保护目标、性质、规模和距厂界距离等。
6、结论与建议——给出该项目清洁生产、达标排放和总量控制的分析结论，确定污染防治措施的有效性，说明该项目对环境造成的影响，给出建设项目环境可行性的明确结论。
同时提出减少环境影响的其他建议。
7、预审意见——由行业主管部门填写答复意见，无主管部门项目，可不填。
8、审批意见——由负责审批该项目的环境保护行政主管部门批复。
项目名称：东阳市城东歌诗图家具厂年产200套家具技改项目文件类型：环境影响报告表适用的评价范围：一般项目法定代表人：方定标（签章）主持编制机构：杭州一达环保技术咨询服务有限公司（签章）东阳市城东歌诗图家具厂年产200套家具技改项目环境影响报告表编制人员名单表编制主持人姓名职（执）业资格证书编号登记（注册证）编号专业类别本人签名官爱令0010228 B3 冶金机电主要编制人员情况序号姓名职（执）业资格证书编号登记（注册证）编号编制内容本人签名1 官爱令0010228 B3 全文审核人员名单表职责姓名职称职（执）业资格证书编号登记（注册证）编号本人签名审核陈林青工程师00013478 B2 审定马树海高级工程师0003091 B2目录一、建设项目基本情况 (1)二、建设项目拟选地自然环境社会环境简况 (7)三、环境质量状况 (13)四、评价适用标准 (16)五、项目工程分析 (22)六、项目主要污染物产生及预计排放情况 (30)七、环境影响分析 (31)八、建设项目采取的防治措施及治理效果 (36)九、环保审批原则符合性分析 (38)十、结论与建议 (41)附件附件1 项目备案通知书附件2 营业执照附件3 规划许可证、租赁协议附件4 项目规划意见附件5 工业废水委托处理合同附件6 建设项目环境保护审批信息一览表附件7 建设项目环境保护“三同时”措施一览表附件8 环评确认书附图附图1 项目地理位置图附图2 项目周围环境概况图（含噪声监测点位）附图3 项目厂区平面布置图附图4 项目地表水环境功能区划图附图5 项目环境功能区划图附表建设项目环评审批基础信息表一、建设项目基本情况项目名称年产200套家具技改项目建设单位东阳市城东歌诗图家具厂法人代表单红钢联系人单红钢通讯地址东阳市城东街道新屋村联系电话传真/ 邮政编码322100 建设地点东阳市城东街道新屋村立项审批部门东阳市经济和信息化局项目代码20033-055762-000建设性质技改（补办）行业类别及代码C2110 木制家具制造占地面积（平方米）800绿化面积（平方米）/总投资（万元）150其中：环保投资（万元）40环保投资占总投资比例%评价经费（万元）/ 拟投产日期已投产工程内容及规模：1、项目由来红木是东阳市支柱产业之一，近年来，随着行业的发展壮大，“低小散”、环境污染、资源分配不均等问题成为制约产业长远发展的瓶颈。
项目编号-项目立项书
说明：
1. 模板版本V1.0；文件命名格式：项目编号-项目立项书，没有编号的用项目名称替换项目编号；
2. 由项目经理填写，其中项目编号由质量管理部设定；
3. 暂时无法确定人员姓名的以“初级、中级、高级、资深和专家”字样代替；
4. 项目阶段验收日期、项目结束标志和验收标准必须设定；
5. 实施周期跨年的项目年度内必须设定至少一个阶段考评点；不跨年项目可不设定，项目结束后进行考评；
6. 项目交付物允许根据项目实际情况进行剪裁；
7. 表单签字应由左至右依次完成。
源代码清单
附录：主要窗体的源代码：1：订房信息窗体的源代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc AsPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim mrcc AsDim intCount As IntegerDim MsgText As StringIf gintBmode = 1 ThenIf Index = 0 ThentxtSQL = "select * from rooms where roomNO = '" & Trim(cboItem(0)) & "' and putup <> '是'"Set mrcc = ExecuteSQL(txtSQL, MsgText)For intCount = 1 To 3cboItem(intCount).ClearcboItem(intCount).AddItem (intCount)cboItem(intCount).ListIndex = 0Next intCounttxtItem(5) = (5)End IfEnd IfEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And ThenIf MsgBox("保存当前记录的变化吗", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc AsDim MsgText As StringFor intCount = 0 To 3If Trim(txtItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "顾客姓名"Case 1sMeg = "身份证号码"Case 2sMeg = "折扣"Case 3sMeg = "入住时间"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountFor intCount = 0 To 3If Trim(cboItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "客房编号"Case 1sMeg = "客房种类"Case 2sMeg = "客房位置"Case 3sMeg = "客房单价"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告" cboItem(intCount).SetFocusExit SubEnd IfNext intCountIf IsDate(txtItem(2)) ThentxtItem(2) = Format(txtItem(2), "yyyy-mm-dd")ElseMsgBox "入库时间应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"txtItem(2).SetFocusExit SubEnd IfFor intCount = 1 To 3 Step 2If Not IsNumeric(txtItem(intCount)) ThenMsgBox "请输入数字", vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintBmode = 2 ThentxtSQL = "delete from bookin where bookno = '" & Trim(txtNo) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)End IftxtSQL = "select * from bookin"Set mrcc = ExecuteSQL(txtSQL, MsgText)(0) = txtNoFor intCount = 0 To 1(intCount + 1) = txtItem(intCount)Next intCount(3) = cboItem(0)For intCount = 2 To 4(intCount + 2) = txtItem(intCount)Next intCount(8) = 0txtSQL = "select * from rooms where roomNO = '" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not Thenmrcc!putup = "y"End IfIf gintBmode = 1 ThenMsgBox "添加订房信息成功!", vbOKOnly + vbExclamation, "添加订房消息"Unload MeIf flagBedit ThenUnload frmBookinEnd If= "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0'"ElseMsgBox "修改订房信息成功!", vbOKOnly + vbExclamation, "修改订房消息"Unload MeIf flagBedit ThenUnload frmBookinEnd If= "select bookno,customname,customID,roomno,indate,discount,inmemo frombookin where ammount = '0'"End IfEnd SubPrivate Sub Form_Load()Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf flagSedit ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If Not ThenFor intCount = 0 To 3cboItem(intCount).AddItem (intCount) cboItem(intCount).ListIndex = 0Next intCounttxtItem(5) = (5)End IftxtNo = GetRkno()gintBmode = 1ElseIf gintBmode = 1 Then= & "添加"'初始化客房信息txtSQL = "select DISTINCT roomNO from rooms where putup <> 'y'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not ThenDo While NotcboItem(0).AddItem Trim(0))LoopElseMsgBox "请先进行客房登记！", vbOKOnly + vbExclamation, "警告"= FalseExit SubEnd IftxtNo = GetRknoElseIf gintBmode = 2 ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If = False ThenWith mrctxtNo = !booknoFor intCount = 0 To 1If Not IsNull(.Fields(intCount + 1)) ThentxtItem(intCount)= .Fields(intCount + 1)End IfNext intCountcboItem(0).AddItem !roomnocboItem(0).ListIndex = 0For intCount = 2 To 4If Not IsNull(.Fields(intCount + 2)) ThentxtItem(intCount)= .Fields(intCount + 2)End IfNext intCountEnd WithEnd If= & "修改"txtSQL = "select * from rooms where roomNO = '" & Trim(cboItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not ThenFor intCount = 1 To 3cboItem(intCount).AddItem (intCount) cboItem(intCount).ListIndex = 0Next intCounttxtItem(5) = (5)End IfEnd IfEnd IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintBmode = 0End SubPrivate Sub txtItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd Sub2：订房信息查询窗体源代码：Option Explicit'用于传递查询块Private Sub chkItem_Click(Index As Integer)If Index = 2 ThencboYear(0).SetFocusElsetxtItem(Index).SetFocusEnd IfEnd SubPrivate Sub cmdExit_Click()End SubPrivate Sub cmdOK_Click()Dim dBeginDate As StringDim sQSql As StringIf chkItem(0).Value = vbChecked ThensQSql = " customname = '" & Trim(txtItem(0) & " ") & "'"End IfIf chkItem(1).Value = vbChecked ThenIf Trim(sQSql & " ") = "" ThensQSql = " roomno ='" & Trim(txtItem(1) & " ") & "'" ElsesQSql = sQSql & " and roomno ='" & Trim(txtItem(1) & " ") & "'"End IfEnd IfIf chkItem(2).Value = vbChecked ThendBeginDate = Format(CDate(cboYear(0) & "-" & cboMonth(0) & "-" & cboDay), "yyyy-mm-dd")If Trim(sQSql & " ") = "" ThensQSql = " indate ='" & dBeginDate & "'"ElsesQSql = sQSql & " and indate ='" & dBeginDate & "'" End IfEnd IfIf Trim(sQSql) = "" ThenMsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"Exit SubElseIf flagBedit ThenUnload frmBookinEnd If= "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0' and " & sQSqlEnd IfEnd SubPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc AstxtSQL = "select distinct datepart(yy,indate) from bookin where ammount = '0' "Set mrc = ExecuteSQL(txtSQL, MsgText)If = False ThenWith mrcDo While Not .EOFcboYear(0).AddItem .Fields(0).MoveNextLoopEnd WithcboYear(0).ListIndex = 0For j = 1 To 12cboMonth(0).AddItem jNext jcboMonth(0).Text = Month(Now())For j = 1 To 31jNext j= Day(Now())Else= FalseEnd IfEnd SubPrivate Sub lblitem_Click(Index As Integer)chkItem(Index).Value = vbCheckedEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index)) End Sub3：订房信息列表窗体源代码：Option ExplicitPublic txtSQL As StringDim mrc AsDim MsgText As StringPrivate Sub Form_Load()ShowTitleShowDataflagBedit = TrueEnd SubPrivate Sub Form_Resize()If <> vbMinimized And <> vbMinimized Then '边界处理If < 10 * ThenExit SubEnd IfIf < + / 2 ThenExit SubEnd If'控制控件的位置== - / 2= + + / 2= - 200= + 100= - - 200End IfEnd SubPublic Sub FormClose()Unload MeEnd Sub'删除记录Private Sub Form_Unload(Cancel As Integer) flagBedit = FalsegintBmode = 0End Sub'显示Grid的内容Private Sub ShowData()Dim j As IntegerDim i As IntegerSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList.Rows = 1Do While Not.Rows = .Rows + 1For i = 1 To Select Case (i - 1).Type Case adDBDate.TextMatrix(.Rows - 1, i) = Format(i - 1) & "", "yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = (i - 1) & "" End SelectNext iLoopEnd WithEnd Sub'显示Grid表头Private Sub ShowTitle()Dim i As IntegerWith msgList.Cols = 8.TextMatrix(0, 1) = "".TextMatrix(0, 2) = "顾客姓名" .TextMatrix(0, 3) = "身份证号码" .TextMatrix(0, 4) = "房间编号" .TextMatrix(0, 5) = "入住日期" .TextMatrix(0, 6) = "折扣".TextMatrix(0, 7) = "备注"'固定表头.FixedRows = 1'设置各列的对齐方式For i = 0 To 7.ColAlignment(i) = 0Next i'表头项居中.FillStyle = flexFillRepeat.Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4'设置单元大小.ColWidth(0) = 300.ColWidth(1) = 0.ColWidth(2) = 1000.ColWidth(3) = 2000.ColWidth(4) = 2000.ColWidth(5) = 1000.ColWidth(6) = 1000.ColWidth(7) = 600.Row = 1End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)'右键弹出If Button = 2 And Shift = 0 ThenPopupMenuEnd IfEnd Sub4：结算信息窗体源代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc AsPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer) '有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer) Dim sSql As StringDim MsgText As StringDim mrcc AsDim intCount As IntegerIf gintCmode = 1 Then'初始化员工名称和IDIf Index = 0 ThencboItem(1).Enabled = TruecboItem(2).Enabled = TruecboItem(3).Enabled = TruecboItem(1).ClearcboItem(2).ClearcboItem(3).CleartxtSQL = "select roomNO,roomtype,roomposition,roomprice from rooms where roomNO ='" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not ThencboItem(1).AddItem mrcc!roomtypecboItem(2).AddItem mrcc!roompositioncboItem(3).AddItem mrcc!roompricecboItem(1).Enabled = FalsecboItem(2).Enabled = FalsecboItem(3).Enabled = FalsecboItem(1).ListIndex = 0cboItem(2).ListIndex = 0cboItem(3).ListIndex = 0= TrueElseMsgBox "没有订房信息！", vbOKOnly + vbExclamation, "警告"= FalseExit SubEnd IftxtSQL = "select * from bookin where ammount = '0' and roomno = '" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not ThentxtNo = mrcc!booknotxtItem(0) = mrcc!customnametxtItem(1) = mrcc!customIDtxtItem(2) = mrcc!indatetxtItem(3) = mrcc!discounttxtItem(5) = mrcc!inmemoFor intCount = 0 To 3txtItem(intCount).Enabled = FalseNext intCountEnd IfEnd IfEnd IfExit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And ThenIf MsgBox("保存当前记录的变化吗", vbOKCancel + vbExclamation, "警告") = vbOK ThenCall cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc AsDim MsgText As StringDim bYear As IntegerDim eYear As IntegerDim bDays As IntegerDim eDays As IntegerDim aDays As IntegerDim amMount As DoubleIf Trim(txtItem(4) & " ") = "" ThenMsgBox sMeg, vbOKOnly + vbExclamation, "警告" txtItem(4).SetFocusEnd IfIf IsDate(txtItem(4)) ThentxtItem(4) = Format(txtItem(4), "yyyy-mm-dd")ElseMsgBox "入库时间应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"txtItem(4).SetFocusExit SubEnd If'再加入新记录txtSQL = "select * from bookin where bookno = '" & Trim(txtNo) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)(6) = txtItem(5)(7) = txtItem(4)bYear = DatePart("yyyy", txtItem(2))eYear = DatePart("yyyy", txtItem(4))bDays = DatePart("y", txtItem(2))eDays = DatePart("y", txtItem(4))If bYear = eYear ThenaDays = eDays - bDaysElseaDays = (eYear - bYear - 1) * 365 + (365 - bDays) + eDays End If(8) = aDays * Trim(cboItem(3)) * Trim(txtItem(3)) / 100amMount = aDays * Trim(cboItem(3)) * Trim(txtItem(3)) / 100txtSQL = "select * from rooms where roomNO = '" & cboItem(0) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not Thenmrcc!putup = " "End IfIf gintCmode = 1 ThenUnload MemblChange = FalseMsgBox "金额为" & amMount & "元，结算完毕！", vbOKOnly +vbExclamation, "添加结算信息"If flagCedit ThenUnload frmCheckoutEnd If= "select * from bookin where ammount <> '0'"ElseIf gintCmode = 2 ThenMsgBox "金额为" & amMount & "元，结算信息修改完毕！", vbOKOnly + vbExclamation, "修改结算信息"Unload MeIf flagCedit ThenUnload frmCheckoutEnd If= "select * from bookin where ammount <> '0'"End IfEnd SubPrivate Sub Form_Load()Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf gintCmode = 1 Then= & "添加"'初始化物资名称txtSQL = "select DISTINCT roomno from bookin where ammount = '0'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not ThenDo While NotcboItem(0).AddItem Trim(mrc!roomno)LoopElseMsgBox "没有顾客入住！", vbOKOnly + vbExclamation, "警告"= FalseExit SubEnd IfElseIf gintCmode = 2 ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If = False ThenWith mrctxtNo = (0)For intCount = 0 To 1txtItem(intCount) = .Fields(intCount + 1)Next intCountcboItem(0).AddItem .Fields(3)cboItem(0).ListIndex = 0For intCount = 2 To 3If Not IsNull(.Fields(intCount + 2)) ThentxtItem(intCount) = .Fields(intCount + 2) End IfNext intCounttxtItem(5) = .Fields(6)txtItem(4) = .Fields(7)End WithEnd IftxtSQL = "select * from rooms where roomNO = '" & cboItem(0) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If = False ThenWith mrcFor intCount = 1 To 3cboItem(intCount).AddItem .Fields(intCount) cboItem(intCount).ListIndex = 0Next intCountEnd WithEnd IfFor intCount = 0 To 3txtItem(intCount).Enabled = FalseNext intCount= & "修改"End IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintCmode = 0End SubPrivate Sub txtItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer,Shift As Integer)EnterToTab KeyCodeEnd Sub5：结算信息查询窗体源代码：Option Explicit'用于传递查询块Private Sub chkItem_Click(Index As Integer) If Index = 2 ThencboYear(0).SetFocusElsetxtItem(Index).SetFocusEnd IfEnd SubPrivate Sub cmdExit_Click()End SubPrivate Sub cmdOK_Click()Dim dBeginDate As StringDim sQSql As StringIf chkItem(0).Value = vbChecked ThensQSql = " customname = '" & Trim(txtItem(0) & " ") & "'" End IfIf chkItem(1).Value = vbChecked ThenIf Trim(sQSql & " ") = "" ThensQSql = " roomno ='" & Trim(txtItem(1) & " ") & "'" ElsesQSql = sQSql & " and roomno ='" & Trim(txtItem(1) & " ") & "'"End IfEnd IfIf chkItem(2).Value = vbChecked ThendBeginDate = Format(CDate(cboYear(0) & "-" & cboMonth(0) & "-" & cboDay), "yyyy-mm-dd")If Trim(sQSql & " ") = "" ThensQSql = " indate ='" & dBeginDate & "'"ElsesQSql = sQSql & " and indate ='" & dBeginDate & "'" End IfEnd IfIf Trim(sQSql) = "" ThenMsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"Exit SubElseIf flagBedit ThenUnload frmCheckoutEnd If= "select * from bookin where ammount <> '0' and " & sQSql End IfEnd SubPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc AstxtSQL = "select distinct datepart(yy,indate) from bookin where ammount <> '0'"Set mrc = ExecuteSQL(txtSQL, MsgText)If = False ThenWith mrcDo While Not .EOFcboYear(0).AddItem .Fields(0).MoveNextLoopEnd WithcboYear(0).ListIndex = 0For j = 1 To 12cboMonth(0).AddItem jNext jcboMonth(0).Text = Month(Now())For j = 1 To 31jNext j= Day(Now())Else= FalseEnd IfEnd SubPrivate Sub lblitem_Click(Index As Integer)chkItem(Index).Value = vbCheckedEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index)) End Sub6：结算信息列表窗体源代码：Option ExplicitPublic txtSQL As StringDim mrc AsDim MsgText As StringPrivate Sub Form_Load()ShowTitleShowDataflagCedit = TrueEnd SubPrivate Sub Form_Resize()If <> vbMinimized And <> vbMinimized Then '边界处理If < 10 * ThenExit SubEnd IfIf < + / 2 ThenExit SubEnd If'控制控件的位置== - / 2= + + / 2= - 200= + 100= - - 200End IfEnd SubPublic Sub FormClose()Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) flagCedit = FalsegintCmode = 0End Sub'显示Grid的内容Private Sub ShowData()Dim j As IntegerDim i As IntegerSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList.Rows = 1Do While Not.Rows = .Rows + 1For i = 1 To Select Case (i - 1).Type Case adDBDate.TextMatrix(.Rows - 1, i) = Format(i - 1) & "", "yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = (i - 1) & "" End SelectNext iLoopEnd WithEnd Sub'显示Grid表头Private Sub ShowTitle()Dim i As IntegerWith msgList.Cols = 10.TextMatrix(0, 1) = "".TextMatrix(0, 2) = "顾客姓名" .TextMatrix(0, 3) = "身份证号码" .TextMatrix(0, 4) = "房间编号" .TextMatrix(0, 5) = "入住日期" .TextMatrix(0, 6) = "折扣".TextMatrix(0, 7) = "备注信息" .TextMatrix(0, 8) = "结算日期" .TextMatrix(0, 9) = "金额"'固定表头.FixedRows = 1'设置各列的对齐方式For i = 0 To 9.ColAlignment(i) = 0Next i'表头项居中.FillStyle = flexFillRepeat .Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4'设置单元大小.ColWidth(0) = 300.ColWidth(1) = 0.ColWidth(2) = 1000.ColWidth(3) = 2000.ColWidth(4) = 2000.ColWidth(5) = 2000.ColWidth(6) = 2000.ColWidth(7) = 2000.ColWidth(8) = 2000.ColWidth(9) = 1000.Row = 1End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)'右键弹出If Button = 2 And Shift = 0 ThenPopupMenuEnd IfEnd Sub7：客房信息窗体源代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc AsPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim sSql As StringDim MsgText As StringDim mrcc As'初始化员工名称和IDIf Index = 0 ThentxtSQL = "select typename,price from roomtype where typename='" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not ThentxtItem(2) = mrcc!price= TrueElseMsgBox "请先建立客房标准！", vbOKOnly + vbExclamation, "警告"= FalseExit SubEnd IfEnd IfExit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And ThenIf MsgBox("保存当前记录的变化吗", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc AsDim MsgText As StringFor intCount = 0 To 3If Trim(txtItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "客房编号"Case 1sMeg = "客房位置"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintRmode = 1 ThentxtSQL = "select * from rooms where roomNO='" & Trim(txtItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If = False ThenMsgBox "已经存在此客房编号的记录！", vbOKOnly + vbExclamation, "警告"txtItem(0).SetFocusExit SubEnd IfEnd IfIf gintRmode = 2 Then'先删除已有记录txtSQL = "delete from rooms where roomNO='" & Trim(txtItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)End If'再加入新记录txtSQL = "select * from rooms"Set mrc = ExecuteSQL(txtSQL, MsgText)(0) = Trim(txtItem(0))(1) = Trim(cboItem(0))For intCount = 1 To 2If Trim(txtItem(intCount) & " ") = "" Then (intCount + 1) = NullElse(intCount + 1) = Trim(txtItem(intCount)) End IfNext intCount(4) = " "(5) = Trim(txtItem(3))If gintRmode = 1 ThenFor intCount = 0 To 3txtItem(intCount) = ""Next intCountmblChange = FalseIf flagRedit ThenUnload frmRoom= "select * from rooms"End If。
20个python3大项目开发源代码(附源码)
在此文中，我们将为您介绍20个Python3大型项目开发的源代码，以帮助您了解Python3的应用和实际项目开发。
以下是这20个Python3大型项目开发源代码的详细内容：1. 人脸识别系统- 该项目使用Python3编写，利用OpenCV和Dlib库实现人脸识别功能。
它可以识别图像和视频中的人脸，并进行特征提取和匹配。
2. 文件同步工具- 这个项目使用Python3编写，可以实现不同计算机之间的文件同步。
它可以检测文件的新增、删除和修改，并及时同步到其他设备。
3. 聊天机器人- 该项目利用Python3编写，使用自然语言处理技术和机器学习算法，实现了一个智能聊天机器人。
它可以回答一般性问题，处理用户输入的文本，并给出相应的回复。
4. 数据可视化工具- 这个项目采用Python3编写，利用Matplotlib和Seaborn库实现数据可视化功能。
它可以将数据以图表、图形等形式展现出来，方便用户分析和理解数据。
5. 网络爬虫- 该项目使用Python3编写，利用BeautifulSoup和Requests库实现网络爬虫功能。
它可以抓取网页数据，对数据进行处理和分析，用于各种网页数据的采集和整理。
6. 视频流分析系统- 这个项目利用Python3编写，借助FFmpeg和NumPy库实现对视频流的分析和处理。
它可以提取视频流中的特征，并进行目标识别和跟踪。
7. 在线投票系统- 该项目采用Python3编写，利用Django框架实现在线投票系统。
它可以处理用户投票请求，进行实时统计数据，并生成相应的数据报表。
8. 电流信箱客户端- 这个项目使用Python3编写，利用smtplib和poplib库实现电流信箱客户端功能。
它可以发送、接收和管理电流信箱，支持对邮件进行筛选、归档等操作。
9. 文档管理系统- 该项目利用Python3编写，使用Django框架实现文档管理系统。
它可以上传、下载和管理文档，支持文档的分类、版本管理等功能。
工程量清单项目编码【范本模板】
工程量清单项目编码结构简介030208004XXX03：第一级工程分类码，01建筑工程,02装饰装修工程,03安装工程02：第二级专业工程顺序码，02为第二章电气设备安装工程08：第三级分部工程顺序码，08表示第八节电缆安装工程004：第四级分项工程项目名称顺序码，004表示电缆桥架XXX：第五级为工程量清单项目名称顺序码（由工程量清单编制人编制，从001开始）项目编码的相关说明：1、编制分部分项工程量清单时应按附录中的相应项目编码设置，不得随意变动、调整;2、编制人设置的项目编码，应做到一个项目编码对应一个项目名称、一个计量单位、唯一工程数量、一个综合单价、一个合价；3、项目编码不设付码（如010*********-1）,也不在第四级编码后和第五级编码前加横杠（如：010405001-001）。
每条项目编码的第五级编码十至十二位阿拉伯数字，可容纳999个清单项目，由编制人自行按顺序填写；4、自行补充的项目编码也必须考虑项目编码的连续性;5、第五级项目编码，划分几种情况：第一，由工程量清单编制人自行设置,同一工程不充许出现重码（如10401001001带形基础混凝土C30，010*********带形基础混凝土C25）；不同工程可以出现重码(如某一工程010*********带形基础混凝土C30，另一工程010*********带形基础混凝土C25）;第二，清单编制人依据设计施工图及项目特征的描述信息，对同一类项目，结合施工图反映不同部位且与计价关联的项目特征描述有所区别的,直接影响到组成的综合单价不能够清晰的反映出该项目单价信息的，应当按第五级编码列项。
如10402001矩形柱，设计图中标明有框架柱、构造柱等,混凝土存在C25/ C30两种强度等级的情况时,如综合只列一个项目，则对应的工程量就不可能清晰的反映出框架柱、构造柱以及混凝土C25、混凝土C30各占多少比例，造成组合的综合单价无对比性，结算时当某项发生变化时容易引起争议.第三，《计价规则》建筑及建筑装饰装修工程工程量清单项目及计算规则说明中规定的可按项目分项以第五级编码列项的项目（如构筑物、满堂基础、天棚等），应根据具体工程项目特征，预计变更情况自行设置.在具体操作过程中，必须慎重考虑按综合项目或分别按第五级编码列项的项目如何设项、描述、并项，否则会影响投标人的报价质量，或给工程发生变更后带来不必要的计算麻烦。
35个Python实战项目，完整源代码！
35个Python实战项目，完整源代码！
收集整理最新36个python实战项目源代码，系统实用，不是普通的小脚本！多看多练是提升代码能力的最佳途径，一起操练起来！
1.视频转字符动画
2.12306
3.B站弹幕
4.B站滑块验证码破解
5.GUI签名
6.python爬取并简单分析51job
7.python破解滑块验证码
8.pothon实现代码雨效果
9.python制作简易时钟
inter计算器
11.web安全
12.WIFI测试
13.百度搜索引擎
14.电影小助手
15.动态更新地球壁纸
16.抖音表白小程序
17.多肉数据查询系统
18.二维码生成器
19.翻译
20.飞机大战
21.记录键盘
22.简单计时器
23.截图工具
24.快递查询
25.美肤
26.妹子
27.你生日那天的宇宙
28.爬明日小说
29.爬斗鱼颜值主播
30.爬简书
31.让电脑蜂鸣器唱歌
32.人工智能
33.生成新年祝福贺卡
34.视频下载
35.私人邮件获取
学会爬虫可以做什么？
1.把别人网站上的数据拿下来，放到自己家公司网站上，如小说网，把别家的小说爬下来，放自己网站上。
如抢票，飞机票你信息等，把官网的数据拿下来放自己网站上。
2.爬取数据做分析，或各种使用，比如，把股票网站的数据拿下来，作数据分析。
3.实现批量上传下载等。