全国工程地质专家库系统的开发

《全国工程地质专家库系统的开发》由会员分享，可在线阅读，更多相关《全国工程地质专家库系统的开发（8页珍藏版）》请在装配图网上搜索。

1、全国工程地质专家库系统的开发摘要：介绍了中国地质学会工程地质专业委员会“全国工程地质专家库系统的功能和部分程序段，欢迎专家们参加专家库。关键词：工程地质专家库系统功能界面模块开发1前言自2022年中国地质学会工程地质专业委员会发起建立“全国工程地质专家库以来，得到全国各界工程地质含岩土工程和地质工程相关专业行业高科技人员的积极响应，已经收到420余份反响回来的专家登记表，均已录入数据库。“全国工程地质专家库已初具规模，从针对效劳的行业来说，包括水利电力、铁路交通、矿山和工业民用建筑等；从专业领域来说，包括工程地质勘察、岩土工程施工、地质灾害研究等；从普及的单位来说，包括高等院校、科研院所、各部

2、委直属勘测设计院和公司等一百多家；从职称分布来说，包括工程院院士、勘察大师、教授级高级工程师、高级工程师、教授、副教授、研究员、副研究员等；从工作职务来说，包括院长、副院长、总工程师、副总工程师、经理、校长、系主任等。入库的单位及其人数情况：北京国电华北电力工程14人；长安大学地质工程与测绘工程学院11人；成都理工大学环境与土木工程学院12人；国家电力公司成都勘测设计研究院43人；国家电力公司贵阳勘测设计研究院15人；国家电力公司昆明勘测设计研究院39人；建立综合勘察研究设计院11人；水利部天津水利水电勘测设计研究院11人；中国科学院地质与地球物理研究所17人；中航勘察设计研究院39人这里只列

3、出了10人以上的单位。2软件功能2.1根本功能显示工程地质地质工程、岩土工程及相关专业专家根本信息，包括姓名、性别、出生年月、技术职称、工作职务、工作单位、单位性质、联络方式。显示专家专业特长，工作领域。打印专家表。按照入库序号、姓名和工作单位排序，方便检索。可随时登记入库。2.2查询按照姓名、出生年月、工作单位、单位性质、技术职称、专业特长、工作领域等单个字段查询，查询的结果可显示专家根本信息、专业特长和工作领域，打印专家表。2.3高级查询多个字段的组合条件查询，查询结果可制作报表。2.4数据库维护数据库管理员可以轻松完成数据库的日常维护工作，如添加、删除、查询等。专家库可用于人事档案管理、

4、查找工程咨询专家、聘请工程工程评审专家、查找稿件评阅人、聘任学位论文审阅人等。3系统界面及功能模块3.1主界面全国工程地质专家库系统主界面如图1所示。界面包括菜单区、查询区、信息管理区和信息显示区。菜单包括记录、查询、管理员和帮助等项。查询区包括单个字段的简单查询和高级查询按钮。信息管理区由根本资料、专业特长、工作领域、备注、全表阅读、打英退出按钮组成，点选不同的按钮，信息显示区将显示不同的信息。3.2高级查询界面点击主界面窗口中查询区的高级查询按钮会弹出高级查询窗口，如图2所示。通过该窗口可生成查询条件、选择结果中要显示的字段、选择排序字段、选择组合查询条件，并执行查询。查询结果由查询结果窗

5、口图3显示出来。3.3查询结果窗口点击高级查询窗口中的开始查询按钮就可弹出查询结果窗口。查询结果窗口左上部分显示符合查询条件的记录，右上部分是打印全部结果按钮和打印选中结果按钮。下部是选中专家的详细信息，当点选左上部的不同专家，其详细信息会改变。3.4查询结果报表打印窗口点击查询结果窗口中的打印全部结果按钮将弹出查询结果报表打印窗口，如图4所示。上部是打印按钮、导出按钮和缩放比例下拉列表框，中间是报表显示区，下部是页码显示和翻页按钮。3.5选中结果报表打印窗口点击主界面信息管理区打印按钮和查询结果窗口中的打印选中结果按钮将弹出选中专家资料报表打印窗口，如图5所示。3.6数据库管理员界面点击主界

6、面管理员菜单下的管理员登陆菜单项后，弹出管理员登陆对话框图6,输入帐号和密码后，点击确定按钮进入数据库管理员界面图7。数据库管理员界面由菜单、工具按钮、专家信息编辑区和全表数据阅读和编辑区组成。工具按钮包括挪动记录、添加、删除等按钮组成，专家信息编辑区用来编辑专家信息，全表数据阅读、编辑区阅读和编辑数据库记录。4工程地质专家库系统开发4.1数据库1信息来源通过学术会议、信件和网上下载见/xdt-040106.ht等途径分发“全国工程地质专家库专家登记表，搜集反响回来的原始登记表，录入数据库中。2创立数据库在irsftffieaess软件中建立专家数据库。数据库中包括的字段有：姓名、性别、出生年

7、月、工作单位、技术职称、工作职务、专家特长、工作领域、通信地址、邮政编码、联络 、 和电子邮箱等，根本涵盖了专家的根本信息、特长、工作领域和联络方式。3数据录入数据录入方式有两种方式：在aess中录入；数据维护方式，即在数据库管理员界面中输入数据。所有专家的信息存储在一个数据表中，每位专家的信息在数据表中表现为一条记录。4.2系统功能的代码实现采用irsftvisualbasi6.0作为开发工具，运用其集成开发环境和快速应用程序开发技术，根据软件的功能模块分别创立程序界面和窗口图1图7。开发过程中使用了addata控件、datagrid控件、dataenvirnent设计器、datareprt

8、设计器等。下面着重表达高级查询的实现。在高级查询窗口中，用户填写的查询条件包括查询结果中显示的字段、here子句查询条件、字段排序子句，用字符串连接生成sql查询语句。然后在专家数据表中查找符合查询条件的专家记录并在查询结果窗口中显示给用户。完成高级查询功能的程序片段如下：privatesubdquery_lik()distrkeyasstringdistrsqlasstring,strsqlallasstringdistrrdersqlasstringdistrrderasstringdiintlenkeyasintegerdiiasinteger,jasinteger查询结果至少要显示一个

9、字段iflstkey.selunt=0thensgbx查询结果中至少要显示一个字段!,vbsgbxsetfregrund,缺少字段exitsubendififtxtnditin.text=vbnullstringthensgbx请参加查询条件！,vbknly+vbinfratin,提示exitsubendif查询结果中显示的字段strkey=vbnullstringstrkeys=vbnullstringfri=0tlstkey.listunt-1iflstkey.seleted(i)=truethenstrkey=strkeylstkey.list(i),endifstrkeys=strke

10、yslstkey.list(i),nextstrkey=id(strkey,1,len(strkey)-1)strkeys=id(strkeys,1,len(strkeys)-1)here子句查询条件strhere=vbnullstringiflen(tri(strquerysql)0thenstrhere=heretri(strquerysql)elsestrhere=vbnullstringendif字段排序字句iflstrderkey.listunt0thenstrrdersqls=intlenkey=0frj=0tlstrderkey.listunt-1strrdersql=lstrd

11、erkey.list(j)ifptrder(0).value=truethenintlenkey=instr(1,strrdersql,(升序),vbtextpare)strrder=aselseintlenkey=instr(1,strrdersql,(降序),vbtextpare)strrder=desendififintlenkey0thenstrrdersql=id(strrdersql,1,intlenkey-1)ifstrrdersqlsthenstrrdersqls=strrdersqls,endifstrrdersqls=strrdersqlsstrrdersqlstrrder

12、endifnextjstrrdersqls=rderbystrrdersqlselsestrrdersqls=endif字符串连接生成sql查询语句strsql=seletstrkeyfr专家库strherestrrdersqlsstrsqlall=seletstrkeysfr专家库strherestrrdersqlsadnnetin.exeutestrsqladnnetin.exeutestrsqlalliferrthensgbxerr.nubervbrlferr.desriptinerr.sure,vbritial,sql语句错误err.learexitsubendifsetreresul

13、t=neaddb.rerdsetsetrekeyrd=neaddb.rerdsetfrqueryresult.strsql=strsqlfrqueryresult.strsql=strsqlallrekeyrd.penstrsql,adnnetin,adpenstati,adlkptiistireresult.penstrsqlall,adnnetin,adpendynai,adlkptiistiifrekeyrd.rerdunt=0thensgbx没有您要查找的记录!,vbinfratin+vbknly,找不到记录exitsubendif查询结果显示frqueryresult.shvbdalendsub5结语