会员注册 | 登录 | 微信快捷登录 支付宝快捷登录 QQ登录 微博登录 | 帮助中心 人人文库renrendoc.com美如初恋!
站内搜索 百度文库

热门搜索: 直缝焊接机 矿井提升机 循环球式转向器图纸 机器人手爪发展史 管道机器人dwg 动平衡试验台设计

   首页 人人文库网 > 资源分类 > DOC文档下载

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

  • 资源星级:
  • 资源大小:187.00KB   全文页数:40页
  • 资源格式: DOC        下载权限:注册会员/VIP会员
您还没有登陆,请先登录。登陆后即可下载此文档。
  合作网站登录: 微信快捷登录 支付宝快捷登录   QQ登录   微博登录
友情提示
2:本站资源不支持迅雷下载,请使用浏览器直接下载(不支持QQ浏览器)
3:本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰   

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

附录A部分程序源代码1、LOGINunitLOGINinterfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,DB,ADODB,inifilestypeTfrmLOGINclassTFormLabel1TLabelLabel2TLabeledtLOGINNAMETEditedtLOGINSECRTEditbutOKTButtonbtnCANCELTButtonprocedureFormCloseSenderTObjectvarActionTCloseActionprocedurebutOKClickSenderTObjectprocedurebtnCANCELClickSenderTObjectprocedureFormCreateSenderTObjectprocedureFormDestroySenderTObjectprivate{Privatedeclarations}public{Publicdeclarations}endvarfrmLOGINTfrmLOGINadoqryLOGINTadoqueryimplementationusesMAIN,ZXTPublicFunction{R.dfm}procedureTfrmLOGIN.FormCloseSenderTObjectvarActionTCloseActionbeginActioncaFreeadoqryLOGIN.FreeendprocedureTfrmLOGIN.butOKClickSenderTObjectvarGetPower,NameNoExiststringMyIniTInifilebeginifedtLOGINNAME.TextandedtLOGINSECR.TextthenbeginadoqryLOGIN.CloseadoqryLOGIN.SQL.ClearadoqryLOGIN.SQL.AddselectfromYHGLadoqryLOGIN.OpenwhilenotadoqryLOGIN.Eofdobegin//如果登录名相同ifedtLOGINNAME.TextadoqryLOGIN.FieldbyNameCHH.AsStringthen//检查密码是否相同ifedtLOGINSECR.TextadoqryLOGIN.FieldbyNameMM.AsStringthenbegin//保留用户名及其权限UserLoginNameedtLOGINNAME.TextUserNameadoqryLOGIN.FieldbyNameYHXM.AsStringUserDepartmentadoqryLOGIN.FieldbyNameGZDW.AsStringGetPoweradoqryLOGIN.FieldbyNameQX.AsString//根据权限进行的相应处理showmessagesuccessfrmLOGIN.Closeexitendelsebeginshowmessage密码不正确edtLOGINSECR.TextedtLOGINSECR.SetFocusexitendadoqryLOGIN.Nextendshowmessage登录名并不存在edtLOGINNAME.TextedtLOGINNAME.SetFocusendendprocedureTfrmLOGIN.btnCANCELClickSenderTObjectbeginfrmLOGIN.CloseendprocedureTfrmLOGIN.FormCreateSenderTObjectbeginfrmLOGIN.left0frmLOGIN.top0ifZXTAdoConnection.Connectedfalsethenbeginshowmessage未能与数据库建立连接或数据库连接错误exitendadoqryLOGINTadoquery.CreateniladoqryLOGIN.ConnectionZXTAdoConnectionendprocedureTfrmLOGIN.FormDestroySenderTObjectbeginfrmLOGINnilendend.2、MAINunitMAINinterfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,ToolWin,Menus,Mask,StrUtils,ADODB,inifiles,StdCtrls,DB,ImgList,shellAPI,QuickRpt,QRCtrls,ExtCtrlstypeTfrmMAINclassTFormCoolBar1TCoolBartbSYSTEMTToolBarToolButton1TToolButtonToolButton2TToolButtonToolButton3TToolButtonToolButton4TToolButtonToolButton5TToolButtonToolButton6TToolButtonToolButton7TToolButtonToolButton8TToolButtonToolButton9TToolButtonStatusBar1TStatusBarMainMenu1TMainMenumenuSYSTEMTMenuItemmenuLOGINTMenuItemmenuAdminisTMenuItemmenuPersonTMenuItemmenuDictionaryTMenuItemN6TMenuItemmenuExitTMenuItemmenuMENUTMenuItemmenuAJTMenuItemmenuABOUTTMenuItemmenuHELPTMenuItemmenuCHRJTMenuItemmenuYLTZHTMenuItemmenuZHFTMenuItemmenuImageTMenuItemmenuShowTMenuItemmenuInternetTMenuItemN1TMenuItemA1TMenuItemD2TMenuItemilFORTOOLTImageListmenuToolTMenuItemC1TMenuItemmenuCalculatorTMenuItemmenuSysSetTMenuItemB1TMenuItemC2TMenuItemN3TMenuItemmenuLanChatTMenuItemmenuClockTMenuItemsubmenuSeverTMenuItemsubmenuClientTMenuItemmenuDataBaseTMenuItemsubmenuGetInfoTMenuItemsubmenuSetInfoTMenuItemT3TMenuItemN2TMenuItemToolButton13TToolButtonmenuYQTMenuItemsubmenuSetTopTMenuItemmmiZaaj1TMenuItemmmiXzajTMenuItemmmiZaajslladjTMenuItemmmiZaajslccdjTMenuItemmmiXzajlaspTMenuItemproceduremenuAdminisClickSenderTObjectproceduremenuDictionaryClickSenderTObjectproceduremenuLOGINClickSenderTObjectproceduremenuPersonClickSenderTObjectproceduremenuYLTZHClickSenderTObjectproceduremenuExitClickSenderTObject

注意事项

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

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

copyright@ 2015-2017 人人文库网网站版权所有
苏ICP备12009002号-5