楼主，我也有一张Delphi光盘要送给你，包括25本书，几百个控件和例子程序
http://download.csdn.net/album/detail/637
var
n:integer=0;
begin
if (用户名1.text = name[i] ) and (密码1.text = ‘123456') then inc(n);
if (用户名2.text = name[i] ) and (密码2.text = ‘123456') then inc(n);
if (用户名3.text = name[i] ) and (密码3.text = ‘123456') then inc(n);
if (用户名4.text = name[i] ) and (密码4.text = ‘123456') then inc(n);
if (用户名5.text = name[i] ) and (密码5.text = ‘123456') then inc(n);
if n=5 then
form1.moduleresult := mrOK
else
form1.moduleresult := mrCancel;
end;
- 其他相关推荐
- delphi设计登录界面密码错误限制3次登录
- 本人在用delphi做一个登录界面， 想限制登录次数，如果密码输错3次，禁止登录，退出系统。请教大家帮我看一下，限制密码错误登录3次的代码哪里错了？运行结果是:无论密码输错几次，都不会退出系统。很着急，求大神，在线等，谢谢！
- delphi 实现验证码功能
- 本人在用delphi做一个登录界面，想实现验证码的功能。但在百度上没找到源码。求源码连接地址或源码，谢谢。
- delphi生成验证码 求源码
- 本人在用delphi做一个登录界面，想实现有验证码的功能。(随机生成一组数字)但是找不到源代码，求大神提供链接地址或源码，谢谢！
- delphi 7中怎么给图书管理系统加上一个简单的登录界面，只要用户名密码的输入，怎么写？
- delphi 7中怎么给图书管理系统加上一个简单的登录界面，只要用户名密码的输入，怎么写？
- delphi webbrowser怎样才能登陆一个网站！望赐教，感激不尽
- 如题，比如说百度网站，用delphi 的webbrowser打开，点击登陆会显示脚本错误，怎样才能实现这个功能。 望赐教，谢谢~ 不胜感激！
- delphi 7和delphi xe，你选哪一个？
- 过去开发项目一直用delphi 7，为了避免版权问题，现在想买套正版软件，纠结于买delphi 7还是delphi xe，大家来说说它们的优缺点吧
- 如何用delphi xe设计文档阅读器
- 如何用delphi xe设计文档阅读器,求高手赐教！！！！！！！！！1
- 如何用delphi设计将表二减表一，然后把结果写入表三中。
- SQl2005数据库有两个表如下表一，表二。 如何用delphi设计将表二减表一，然后把结果写入表三中。 一、表名：NNew 结构如下： ID， 品名，数量 1 花香 100 2 飘柔 125 3 秀美 126 二、表名：TTew 结构如下： ID， 品名，数量 1 花香 500 2 飘柔 625 3 秀美 726 如何将表一，和表二逐项相减，将结果写入表三中 正解结果如下 三、表名：TTMP ID， 品名，数量 1 花香 400 2 飘柔 500 3 秀美 600
- C++中的类静态变量在delphi7中怎么实现。
- 请教一下，类TCat，TDog都是继承类TAnimal,我想自改TAnimal中myKind属性然后TCat和TDog实例中的MyKind都改了，怎么弄？？ myKind是工程全局变量，cat:TCat;dog:TDog; 都能访问，现在想做个封装，封装到父类TAnimal中，
- Delphi 使用Timer控件实现自动退出登陆权限的问题.
- Delphi 使用Timer控件实现自动退出登陆权限的问题. 1.登陆后,5分钟内没有任何操作(包括鼠标点击,鼠标移动,键盘输入等),即自己退出登陆权限,提示:需要重新登陆; 2.使用Timer控件实现: 鼠标点击,鼠标移动,键盘输入,实现的方法;
- delphi线程问题 delphi 程序里我写了一个方法
- delphi 程序里我写了一个方法，方法里面的算法比较复杂，计算起来时间比较长，我想把这个方法单独放到一个线程里去执行，请问是怎么写？一点头绪没有啊，谢谢
- delphi 可以通过FDQuery来执行导入数据库操作吗？
- delphi 可以通过FDQuery来执行导入数据库操作吗？ 如题： 在delphi里怎么操作可以导入SQL文件到MYSQL数据库里呢，麻烦老是指点。
- delphi dbgrideh的导出功能，导出某几列？
- delphi dbgrideh的导出功能，导出某几列？ 使用自带的函数SaveDBGridEhToExportFile导出全部的数据OK的， 现在我只想导出第2列 至 第5列 其他列的不要，怎么实现啊。 有知道的老师吗？
- window下用delphi写一个系统服务的问题
- window下用delphi写一个系统服务，系统服务再生成一个form，求大神指点下这个为什么没生成窗口 这是service application的代码 unit Unit_Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,Unit3; type TServiceDemo = class(TService) procedure ServiceContinue(Sender: TService; var Continued: Boolean); procedure ServiceExecute(Sender: TService); procedure ServicePause(Sender: TService; var Paused: Boolean); procedure ServiceShutdown(Sender: TService); procedure ServiceStart(Sender: TService; var Started: Boolean); procedure ServiceStop(Sender: TService; var Stopped: Boolean); private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var ServiceDemo: TServiceDemo; FrmMain: TForm1; gbCanClose: Boolean; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin ServiceDemo.Controller(CtrlCode); end; function TServiceDemo.GetServiceController: TServiceController; begin Result := ServiceController; end; procedure TServiceDemo.ServiceContinue(Sender: TService;var Continued: Boolean); begin while not Terminated do begin Sleep(10); ServiceThread.ProcessRequests(False); end; end; procedure TServiceDemo.ServiceExecute(Sender: TService); begin while not Terminated do begin Sleep(10); ServiceThread.ProcessRequests(False); end; end; procedure TServiceDemo.ServicePause(Sender: TService;var Paused: Boolean); begin Paused := True; end; procedure TServiceDemo.ServiceShutdown(Sender: TService); begin gbCanClose := true; FrmMain.Free; Status := csStopped; ReportStatus(); end; procedure TServiceDemo.ServiceStart(Sender: TService;var Started: Boolean); begin Started := True; Svcmgr.Application.CreateForm(TForm1, FrmMain); gbCanClose := False; FrmMain.Hide; end; procedure TServiceDemo.ServiceStop(Sender: TService;var Stopped: Boolean); begin Stopped := True; gbCanClose := True; FrmMain.Free; end; end. 这是form1的 procedure TForm1.FormCreate(Sender: TObject); begin FormStyle := fsStayOnTop; SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); gbCanClose := False; tmr2.Interval := 1000; tmr2.Enabled := True; end;
- delphi FileListBox 排序
- delphi FileListBox 显示的内容如何按照文件的名称进行排序
- Delphi7 中如何实现 TStringBuilder
- Delphi7 中如何实现 TStringBuilder Delphi7 中如何实现 TStringBuilder
- delphi 怎么作出这样的界面并打印出来？
- 
- delphi7 如何把一个表数据读出来再写到另一个表中
- 现有一个SQL数据库文件 请问怎么用DELPHI7把里面数据读取出来再写入另外一个表中。 数据库结构为： 学校名 学号 姓名 考号 ...... 一中 1 啊啊 1 二中 2 问问 2 ........ 以此类推 请问该怎么把数据读取再导入另一个表里面。
- delphi 如何在界面创建之后再对控件进行监听监听
- 对窗体上的一个dbedit 控件的 Onchange 进行监听。 首先，这个dbEdit关联着一个数据库字段。而连接这个数据库的数据模块，要在 formCreate()之后才进行创建（这是公司的要求） dbedit 控件的 Onchange 的内容是对数据库进行一个操作 于是产生的问题就是：如果直接将代码加载在dbedit.Onchange 中的话，窗体还没有绘制出来，似乎它就已经执行了一次 Onchange 操作，此时，数据模块还没有被创建，从而提示我相关的数据库为空的错误 那么怎么才能规避掉这个最开始的一次监听呢？我希望是在执行了 formCreate 之后，这个监听才能有效。 有没有类似于 dbedit.Onchange() := xxx自定义方法 这样的可以把一个自定义方法赋值给Onchange 监听的的办法？那样我就可以在 formCreate() 中创建监听，从而规避掉创建前的那一次监听了。
- 爬虫福利二 之 妹子图网MM批量下载
- 爬虫福利一：27报网MM批量下载 点击 看了本文，相信大家对爬虫一定会产生强烈的兴趣，激励自己去学习爬虫，在这里提前祝：大家学有所成！ 目标网站：妹子图网 环境：Python3.x 相关第三方模块：requests、beautifulsoup4 Re：各位在测试时只需要将代码里的变量 path 指定为你当前系统要保存的路径，使用 python xxx.py 或IDE运行即可。
- Java学习的正确打开方式
- 在博主认为，对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结，前三者博主将淋漓尽致地挥毫于这篇博客文章中，至于总结在于个人，实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍，博客次之，这又是一个层次了，这里暂时不提后面再谈。博主将为各位入门java保驾护航，各位只管冲鸭！！！上天是公平的，只要不辜负时间，时间自然不会辜负你。 何谓学习？博主所理解的学习，它
- 程序员必须掌握的核心算法有哪些？
- 由于我之前一直强调数据结构以及算法学习的重要性，所以就有一些读者经常问我，数据结构与算法应该要学习到哪个程度呢？，说实话，这个问题我不知道要怎么回答你，主要取决于你想学习到哪些程度，不过针对这个问题，我稍微总结一下我学过的算法知识点，以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的，并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构，当然，我也会整理一些看过
- 大学四年自学走来，这些私藏的实用工具/学习网站我贡献出来了
- 大学四年，看课本是不可能一直看课本的了，对于学习，特别是自学，善于搜索网上的一些资源来辅助，还是非常有必要的，下面我就把这几年私藏的各种资源，网站贡献出来给你们。主要有：电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意：文中提到的所有资源，文末我都给你整理好了，你们只管拿去，如果觉得不错，转发、分享就是最大的支持了。 一、PDF搜索网站推荐 对于大部
- linux系列之常用运维命令整理笔录
- 本博客记录工作中需要的linux运维命令，大学时候开始接触linux，会一些基本操作，可是都没有整理起来，加上是做开发，不做运维，有些命令忘记了，所以现在整理成博客，当然vi，文件操作等就不介绍了，慢慢积累一些其它拓展的命令，博客不定时更新 顺便拉下票，我在参加csdn博客之星竞选，欢迎投票支持，每个QQ或者微信每天都可以投5票，扫二维码即可，http://m234140.nofollow.ax.
- 比特币原理详解
- 一、什么是比特币 比特币是一种电子货币，是一种基于密码学的货币，在2008年11月1日由中本聪发表比特币白皮书，文中提出了一种去中心化的电子记账系统，我们平时的电子现金是银行来记账，因为银行的背后是国家信用。去中心化电子记账系统是参与者共同记账。比特币可以防止主权危机、信用风险。其好处不多做赘述，这一层面介绍的文章很多，本文主要从更深层的技术原理角度进行介绍。 二、问题引入 假设现有4个人
- 程序员接私活怎样防止做完了不给钱？
- 首先跟大家说明一点，我们做 IT 类的外包开发，是非标品开发，所以很有可能在开发过程中会有这样那样的需求修改，而这种需求修改很容易造成扯皮，进而影响到费用支付，甚至出现做完了项目收不到钱的情况。 那么，怎么保证自己的薪酬安全呢？ 我们在开工前，一定要做好一些证据方面的准备（也就是“讨薪”的理论依据），这其中最重要的就是需求文档和验收标准。一定要让需求方提供这两个文档资料作为开发的基础。之后开发
- 网页实现一个简单的音乐播放器（大佬别看。(⊙﹏⊙)）
- 今天闲着无事，就想写点东西。然后听了下歌，就打算写个播放器。 于是乎用h5 audio的加上js简单的播放器完工了。 欢迎 改进 留言。 演示地点跳到演示地点 html代码如下`<!DOCTYPE html> <html> <head> <title>music</title> <meta charset="utf-8">
- Python十大装B语法
- Python 是一种代表简单思想的语言，其语法相对简单，很容易上手。不过，如果就此小视 Python 语法的精妙和深邃，那就大错特错了。本文精心筛选了最能展现 Python 语法之精妙的十个知识点，并附上详细的实例代码。如能在实战中融会贯通、灵活使用，必将使代码更为精炼、高效，同时也会极大提升代码B格，使之看上去更老练，读起来更优雅。 1. for - else 什么？不是 if 和 else 才
- 数据库优化 - SQL优化
- 前面一篇文章从实例的角度进行数据库优化，通过配置一些参数让数据库性能达到最优。但是一些“不好”的SQL也会导致数据库查询变慢，影响业务流程。本文从SQL角度进行数据库优化，提升SQL运行效率。 判断问题SQL 判断SQL是否有问题时可以通过两个表象进行判断： 系统级别表象 CPU消耗严重 IO等待严重 页面响应时间过长
- 2019年11月中国大陆编程语言排行榜
- 2019年11月2日，我统计了某招聘网站，获得有效程序员招聘数据9万条。针对招聘信息，提取编程语言关键字，并统计如下： 编程语言比例 rank pl_ percentage 1 java 33.62% 2 c/c++ 16.42% 3 c_sharp 12.82% 4 javascript 12.31% 5 python 7.93% 6 go 7.25% 7
- 通俗易懂地给女朋友讲：线程池的内部原理
- 餐厅的约会 餐盘在灯光的照耀下格外晶莹洁白，女朋友拿起红酒杯轻轻地抿了一小口，对我说：“经常听你说线程池，到底线程池到底是个什么原理？”我楞了一下，心里想女朋友今天是怎么了，怎么突然问出这么专业的问题，但做为一个专业人士在女朋友面前也不能露怯啊，想了一下便说：“我先给你讲讲我前同事老王的故事吧！” 大龄程序员老王 老王是一个已经北漂十多年的程序员，岁数大了，加班加不动了，升迁也无望，于是拿着手里
- 经典算法（5）杨辉三角
- 写在前面： 我是 扬帆向海，这个昵称来源于我的名字以及女朋友的名字。我热爱技术、热爱开源、热爱编程。技术是开源的、知识是共享的。 这博客是对自己学习的一点点总结及记录，如果您对 Java、算法 感兴趣，可以关注我的动态，我们一起学习。 用知识改变命运，让我们的家人过上更好的生活。 目录一、杨辉三角的介绍二、杨辉三角的算法思想三、代码实现1.第一种写法2.第二种写法 一、杨辉三角的介绍 百度
- 腾讯算法面试题：64匹马8个跑道需要多少轮才能选出最快的四匹？
- 昨天，有网友私信我，说去阿里面试，彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static？他被难住了，因为他从来都没有考虑过这个问题。无独有偶，今天笔者又发现有网友吐槽了一道腾讯的面试题，我们一起来看看。 腾讯算法面试题：64匹马8个跑道需要多少轮才能选出最快的四匹？ 在互联网职场论坛，一名程序员发帖求助到。二面腾讯，其中一个算法题：64匹
- 面试官：你连RESTful都不知道我怎么敢要你？
- 面试官：了解RESTful吗？ 我：听说过。 面试官：那什么是RESTful？ 我：就是用起来很规范，挺好的 面试官：是RESTful挺好的，还是自我感觉挺好的 我：都挺好的。 面试官：… 把门关上。 我：… 要干嘛？先关上再说。 面试官：我说出去把门关上。 我：what ？，夺门而去 文章目录01 前言02 RESTful的来源03 RESTful6大原则1. C-S架构2. 无状态3.统一的接
- 为啥国人偏爱Mybatis，而老外喜欢Hibernate/JPA呢？
- 关于SQL和ORM的争论，永远都不会终止，我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论，感触还是有一些，于是就有了今天这篇文。 声明：本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实，讲道理，所以，请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题，争论已经很多年了。一直也没有结论，毕竟每个人的喜好和习惯是大不相同的。我也看
- SQL-小白最佳入门sql查询一
- 一 说明 如果是初学者，建议去网上寻找安装Mysql的文章安装，以及使用navicat连接数据库，以后的示例基本是使用mysql数据库管理系统； 二 准备前提 需要建立一张学生表，列分别是id，名称，年龄，学生信息；本示例中文章篇幅原因SQL注释略； 建表语句： CREATE TABLE `student` ( `id` int(11) NOT NULL AUTO_INCREMENT, `
- 项目中的if else太多了，该怎么重构？
- 介绍 最近跟着公司的大佬开发了一款IM系统，类似QQ和微信哈，就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // dosho
- 【图解经典算法题】如何用一行代码解决约瑟夫环问题
- 约瑟夫环问题算是很经典的题了，估计大家都听说过，然后我就在一次笔试中遇到了，下面我就用 3 种方法来详细讲解一下这道题，最后一种方法学了之后保证让你可以让你装逼。 问题描述：编号为 1-N 的 N 个士兵围坐在一起形成一个圆圈，从编号为 1 的士兵开始依次报数（1，2，3…这样依次报），数到 m 的 士兵会被杀死出列，之后的士兵再从 1 开始报数。直到最后剩下一士兵，求这个士兵的编号。 1、方
- 致 Python 初学者
- 文章目录1. 前言2. 明确学习目标，不急于求成，不好高骛远3. 在开始学习 Python 之前，你需要做一些准备2.1 Python 的各种发行版2.2 安装 Python2.3 选择一款趁手的开发工具3. 习惯使用IDLE，这是学习python最好的方式4. 严格遵从编码规范5. 代码的运行、调试5. 模块管理5.1 同时安装了py2/py35.2 使用Anaconda，或者通过IDE来安装模
- “狗屁不通文章生成器”登顶GitHub热榜，分分钟写出万字形式主义大作
- 一、垃圾文字生成器介绍 最近在浏览GitHub的时候，发现了这样一个骨骼清奇的雷人项目，而且热度还特别高。 项目中文名：狗屁不通文章生成器 项目英文名：BullshitGenerator 根据作者的介绍，他是偶尔需要一些中文文字用于GUI开发时测试文本渲染，因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理，所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的： 你发现，
- 程序员：我终于知道post和get的区别
- IT界知名的程序员曾说：对于那些月薪三万以下，自称IT工程师的码农们，其实我们从来没有把他们归为我们IT工程师的队伍。他们虽然总是以IT工程师自居，但只是他们一厢情愿罢了。 此话一出，不知激起了多少(码农)程序员的愤怒，却又无可奈何，于是码农问程序员。 码农：你知道get和post请求到底有什么区别？ 程序员：你看这篇就知道了。 码农：你月薪三万了？ 程序员：嗯。 码农：你是怎么做到的? 程序员：
- 《程序人生》系列-这个程序员只用了20行代码就拿了冠军
- 你知道的越多，你不知道的越多 点赞再看，养成习惯GitHub上已经开源https://github.com/JavaFamily，有一线大厂面试点脑图，欢迎Star和完善 前言 这一期不算《吊打面试官》系列的，所有没前言我直接开始。 絮叨 本来应该是没有这期的，看过我上期的小伙伴应该是知道的嘛，双十一比较忙嘛，要值班又要去帮忙拍摄年会的视频素材，还得搞个程序员一天的Vlog，还要写BU
- 加快推动区块链技术和产业创新发展，2019可信区块链峰会在京召开
- 11月8日，由中国信息通信研究院、中国通信标准化协会、中国互联网协会、可信区块链推进计划联合主办，科技行者协办的2019可信区块链峰会将在北京悠唐皇冠假日酒店开幕。 区块链技术被认为是继蒸汽机、电力、互联网之后，下一代颠覆性的核心技术。如果说蒸汽机释放了人类的生产力，电力解决了人类基本的生活需求，互联网彻底改变了信息传递的方式，区块链作为构造信任的技术有重要的价值。 1
- 程序员把地府后台管理系统做出来了，还有3.0版本！12月7号最新消息：已在开发中有github地址
- 第一幕：缘起 听说阎王爷要做个生死簿后台管理系统，我们派去了一个程序员…… 996程序员做的梦： 第一场：团队招募 为了应对地府管理危机，阎王打算找“人”开发一套地府后台管理系统，于是就在地府总经办群中发了项目需求。 话说还是中国电信的信号好，地府都是满格，哈哈！！！ 经常会有外行朋友问：看某网站做的不错，功能也简单，你帮忙做一下？ 而这次，面对这样的需求，这个程序员
- 网易云6亿用户音乐推荐算法
- 网易云音乐是音乐爱好者的集聚地，云音乐推荐系统致力于通过 AI 算法的落地，实现用户千人千面的个性化推荐，为用户带来不一样的听歌体验。 本次分享重点介绍 AI 算法在音乐推荐中的应用实践，以及在算法落地过程中遇到的挑战和解决方案。 将从如下两个部分展开： AI 算法在音乐推荐中的应用 音乐场景下的 AI 思考 从 2013 年 4 月正式上线至今，网易云音乐平台持续提供着：乐屏社区、UGC
- 【技巧总结】位运算装逼指南
- 位算法的效率有多快我就不说，不信你可以去用 10 亿个数据模拟一下，今天给大家讲一讲位运算的一些经典例子。不过，最重要的不是看懂了这些例子就好，而是要在以后多去运用位运算这些技巧，当然，采用位运算，也是可以装逼的，不信，你往下看。我会从最简单的讲起，一道比一道难度递增，不过居然是讲技巧，那么也不会太难，相信你分分钟看懂。 判断奇偶数 判断一个数是基于还是偶数，相信很多人都做过，一般的做法的代码如下
- 日均350000亿接入量，腾讯TubeMQ性能超过Kafka
- 整理 | 夕颜出品 | AI科技大本营（ID:rgznai100） 【导读】近日，腾讯开源动作不断，相继开源了分布式消息中间件TubeMQ，基于最主流的 OpenJDK8开发的
- 8年经验面试官详解 Java 面试秘诀
- 作者 | 胡书敏 责编 | 刘静 出品 | CSDN（ID：CSDNnews） 本人目前在一家知名外企担任架构师，而且最近八年来，在多家外企和互联网公司担任Java技术面试官，前后累计面试了有两三百位候选人。在本文里，就将结合本人的面试经验，针对Java初学者、Java初级开发和Java开发，给出若干准备简历和准备面试的建议。 Java程序员准备和投递简历的实
- 面试官如何考察你的思维方式？
- 1.两种思维方式在求职面试中，经常会考察这种问题：北京有多少量特斯拉汽车？ 某胡同口的煎饼摊一年能卖出多少个煎饼？ 深圳有多少个产品经理？ 一辆公交车里能装下多少个乒乓球？ 一
