百度文库

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

首页 人人文库网 > 资源分类 > 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;typeTfrmLOGIN=class(TForm)Label1:TLabel;Label2:TLabel;edtLOGINNAME:TEdit;edtLOGINSECR:TEdit;butOK:TButton;btnCANCEL:TButton;procedureFormClose(Sender:TObject;varAction:TCloseAction);procedurebutOKClick(Sender:TObject);procedurebtnCANCELClick(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFormDestroy(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varfrmLOGIN:TfrmLOGIN;adoqryLOGIN:Tadoquery;implementationusesMAIN,ZXTPublicFunction;{$R*.dfm}procedureTfrmLOGIN.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;adoqryLOGIN.Free;end;procedureTfrmLOGIN.butOKClick(Sender:TObject);varGetPower,NameNoExist:string;MyIni:TInifile;beginif(edtLOGINNAME.Text进行的相应处理showmessage( success );frmLOGIN.Close;exit;endelsebeginshowmessage( 密码不正确! );edtLOGINSECR.Text:= ;edtLOGINSECR.SetFocus;exit;end;adoqryLOGIN.

注意事项

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

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

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

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

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

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