欢迎来到人人文库网! | 帮助中心 人人文库renrendoc.com美如初恋!
人人文库网
首页 人人文库网 > 资源分类 > DOC文档下载

公安信息系统设计程序清单.doc

  • 资源大小:187.00KB        全文页数:40页
  • 资源格式: DOC        下载权限:游客/注册会员/VIP会员    下载费用:5
游客快捷下载 游客一键下载
会员登录下载
下载资源需要5

邮箱/手机号:
您支付成功后,系统会自动为您创建此邮箱/手机号的账号,密码跟您输入的邮箱/手机号一致,以方便您下次登录下载和查看订单。注:支付完成后需要自己下载文件,并不会自动发送文件哦!

支付方式: 微信支付    支付宝   
验证码:   换一换

友情提示
2、本站资源不支持迅雷下载,请使用浏览器直接下载(不支持QQ浏览器)
3、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰   

公安信息系统设计程序清单.doc

附录A部分程序源代码1、LOGINUNITLOGIN;INTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,STDCTRLS,DB,ADODB,INIFILES;TYPETFRMLOGINCLASSTFORMLABEL1TLABEL;LABEL2TLABEL;EDTLOGINNAMETEDIT;EDTLOGINSECRTEDIT;BUTOKTBUTTON;BTNCANCELTBUTTON;PROCEDUREFORMCLOSESENDERTOBJECT;VARACTIONTCLOSEACTION;PROCEDUREBUTOKCLICKSENDERTOBJECT;PROCEDUREBTNCANCELCLICKSENDERTOBJECT;PROCEDUREFORMCREATESENDERTOBJECT;PROCEDUREFORMDESTROYSENDERTOBJECT;PRIVATE{PRIVATEDECLARATIONS}PUBLIC{PUBLICDECLARATIONS}END;VARFRMLOGINTFRMLOGIN;ADOQRYLOGINTADOQUERY;IMPLEMENTATIONUSESMAIN,ZXTPUBLICFUNCTION;{RDFM}PROCEDURETFRMLOGINFORMCLOSESENDERTOBJECT;VARACTIONTCLOSEACTION;BEGINACTIONCAFREE;ADOQRYLOGINFREE;END;PROCEDURETFRMLOGINBUTOKCLICKSENDERTOBJECT;VARGETPOWER,NAMENOEXISTSTRING;MYINITINIFILE;BEGINIFEDTLOGINNAMETEXTANDEDTLOGINSECRTEXTTHENBEGINADOQRYLOGINCLOSE;ADOQRYLOGINSQLCLEAR;ADOQRYLOGINSQLADDSELECTFROMYHGL;ADOQRYLOGINOPEN;WHILENOTADOQRYLOGINEOFDOBEGIN//如果登录名相同IFEDTLOGINNAMETEXTADOQRYLOGINFIELDBYNAMECHHASSTRINGTHEN//检查密码是否相同IFEDTLOGINSECRTEXTADOQRYLOGINFIELDBYNAMEMMASSTRINGTHENBEGIN//保留用户名及其“权限”USERLOGINNAMEEDTLOGINNAMETEXT;USERNAMEADOQRYLOGINFIELDBYNAMEYHXMASSTRING;USERDEPARTMENTADOQRYLOGINFIELDBYNAMEGZDWASSTRING;GETPOWERADOQRYLOGINFIELDBYNAMEQXASSTRING;//根据权限进行的相应处理SHOWMESSAGESUCCESS;FRMLOGINCLOSE;EXIT;ENDELSEBEGINSHOWMESSAGE密码不正确;EDTLOGINSECRTEXT;EDTLOGINSECRSETFOCUS;EXIT;END;ADOQRYLOGINNEXT;END;SHOWMESSAGE登录名并不存在;EDTLOGINNAMETEXT;EDTLOGINNAMESETFOCUS;END;END;PROCEDURETFRMLOGINBTNCANCELCLICKSENDERTOBJECT;BEGINFRMLOGINCLOSE;END;PROCEDURETFRMLOGINFORMCREATESENDERTOBJECT;BEGINFRMLOGINLEFT0;FRMLOGINTOP0;IFZXTADOCONNECTIONCONNECTEDFALSETHENBEGINSHOWMESSAGE未能与数据库建立连接或数据库连接错误;EXIT;END;ADOQRYLOGINTADOQUERYCREATENIL;ADOQRYLOGINCONNECTIONZXTADOCONNECTION;END;PROCEDURETFRMLOGINFORMDESTROYSENDERTOBJECT;BEGINFRMLOGINNIL;END;END2、MAINUNITMAIN;INTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,COMCTRLS,TOOLWIN,MENUS,MASK,STRUTILS,ADODB,INIFILES,STDCTRLS,DB,IMGLIST,SHELLAPI,QUICKRPT,QRCTRLS,EXTCTRLS;TYPETFRMMAINCLASSTFORMCOOLBAR1TCOOLBAR;TBSYSTEMTTOOLBAR;TOOLBUTTON1TTOOLBUTTON;TOOLBUTTON2TTOOLBUTTON;TOOLBUTTON3TTOOLBUTTON;TOOLBUTTON4TTOOLBUTTON;TOOLBUTTON5TTOOLBUTTON;TOOLBUTTON6TTOOLBUTTON;TOOLBUTTON7TTOOLBUTTON;TOOLBUTTON8TTOOLBUTTON;TOOLBUTTON9TTOOLBUTTON;STATUSBAR1TSTATUSBAR;MAINMENU1TMAINMENU;MENUSYSTEMTMENUITEM;MENULOGINTMENUITEM;MENUADMINISTMENUITEM;MENUPERSONTMENUITEM;MENUDICTIONARYTMENUITEM;N6TMENUITEM;MENUEXITTMENUITEM;MENUMENUTMENUITEM;MENUAJTMENUITEM;MENUABOUTTMENUITEM;MENUHELPTMENUITEM;MENUCHRJTMENUITEM;MENUYLTZHTMENUITEM;MENUZHFTMENUITEM;MENUIMAGETMENUITEM;MENUSHOWTMENUITEM;MENUINTERNETTMENUITEM;N1TMENUITEM;A1TMENUITEM;D2TMENUITEM;ILFORTOOLTIMAGELIST;MENUTOOLTMENUITEM;C1TMENUITEM;MENUCALCULATORTMENUITEM;MENUSYSSETTMENUITEM;B1TMENUITEM;C2TMENUITEM;N3TMENUITEM;MENULANCHATTMENUITEM;MENUCLOCKTMENUITEM;SUBMENUSEVERTMENUITEM;SUBMENUCLIENTTMENUITEM;MENUDATABASETMENUITEM;SUBMENUGETINFOTMENUITEM;SUBMENUSETINFOTMENUITEM;T3TMENUITEM;N2TMENUITEM;TOOLBUTTON13TTOOLBUTTON;MENUYQTMENUITEM;SUBMENUSETTOPTMENUITEM;MMIZAAJ1TMENUITEM;MMIXZAJTMENUITEM;MMIZAAJSLLADJTMENUITEM;MMIZAAJSLCCDJTMENUITEM;MMIXZAJLASPTMENUITEM;PROCEDUREMENUADMINISCLICKSENDERTOBJECT;PROCEDUREMENUDICTIONARYCLICKSENDERTOBJECT;PROCEDUREMENULOGINCLICKSENDERTOBJECT;PROCEDUREMENUPERSONCLICKSENDERTOBJECT;PROCEDUREMENUYLTZHCLICKSENDERTOBJECT;PROCEDUREMENUEXITCLICKSENDERTOBJECT;

注意事项

本文(公安信息系统设计程序清单.doc)为本站会员(网游小王子)主动上传,人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知人人文库网(发送邮件至[email protected]或直接QQ联系客服),我们立即给予删除!

温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。

关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们

网站客服QQ:2846424093    人人文库上传用户QQ群:460291265   

[email protected] 2016-2018  renrendoc.com 网站版权所有   南天在线技术支持

经营许可证编号:苏ICP备12009002号-5