癫狂编程

Delphi中取得程序版本号

摘要： Delphi做的程序,如果想包含版本信息, 必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info　选项卡中选中“Include version information in project”项，并在“Modu 阅读全文

posted @ 2018-12-15 13:38 癫狂编程阅读(1382) 评论(0) 推荐(0) 编辑

Delphi 使用之连接数据库

摘要： DELPHI 中的数据库开发有很多种类的，可以连接Access数据库、MS SQL Server 数据库、Oracle 数据库、MySQL数据库等等，一般连接有两种方式：BDE和ADO两种方式，都是建立连接，使用命令执行SQL语句(查询、插入、删除、更新等操作)，后台的数据库操作核心部分都是SQL 阅读全文

posted @ 2018-12-14 11:27 癫狂编程阅读(1990) 评论(0) 推荐(0) 编辑

Delphi SQL语句字符串拼接

摘要：单引号必须成对出现，最外层的单引号表示其内部符号为字符；除最外层以外的单引号，每两个单引号代表一个'字符。加号：+用于字符串之间的连接。字符串常量用四个单引号，例如 ' select * from TABLE where COLUMN = ''汉字'' ' 字符串变量用六个单引号和两个加号，例如 ' 阅读全文

posted @ 2018-12-13 19:57 癫狂编程阅读(907) 评论(0) 推荐(0) 编辑

delphi中写SQL语句中变量的注意事项

摘要： 1、procedure TForm1.btn1Click(Sender: TObject); var s: String; begin S := 'select * from TMarketInfo where NO='''+'1'''; ShowMessage(s); end; 结果显示：sele 阅读全文

posted @ 2018-12-13 19:22 癫狂编程阅读(566) 评论(0) 推荐(0) 编辑

Delphi ADOQuery连接数据库的查询、插入、删除、修改

摘要： //查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件' 阅读全文

posted @ 2018-12-13 19:15 癫狂编程阅读(248) 评论(0) 推荐(0) 编辑

RadioGroup 的使用

摘要： //获取 RadioGroup 项目名称 procedure TForm1.RadioGroup1Click(Sender: TObject); begin Text := RadioGroup1.Items[RadioGroup1.ItemIndex]; end; //当点击 RadioGroup 阅读全文

posted @ 2018-12-13 11:24 癫狂编程阅读(789) 评论(0) 推荐(0) 编辑

RadioGroup和GroupBox有什么区别？

摘要：我在RadioGroup中放RadioButton和GroupBox中一样，搞不明白。 radiogroup有个item属性都是radio控件，不需要拖控件上去。groupbox需要自己拖控件分组的和不分组的，radiogroup方便。 RadioGroup的单选按钮是竖着排列的，怎么让它横排呢？阅读全文

posted @ 2018-12-13 11:23 癫狂编程阅读(1077) 评论(0) 推荐(0) 编辑

delphi保存文件的命名规则

摘要：没有固定的标准。自己可以定义。你可以参考PASCAL命名法则。查一下PASCAL命名。我习惯用UMain,FMain,UDM,DM,UAboutBox,AboutBox.....程序相关内容都放在同一目录(再设子目录)，习惯将项目文件名与目录名一致，以方便查找。习惯建立BIN、SCR、TMP、DO 阅读全文

posted @ 2018-12-11 18:30 癫狂编程阅读(238) 评论(0) 推荐(0) 编辑

博客个性签名

摘要：作者：不得闲出处：http://dxsoft.cnblogs.com/ 本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。作者：不得闲出处：http://dxsoft.cnblogs.com/ 本文版权归作者和博阅读全文

posted @ 2018-12-10 17:12 癫狂编程阅读(483) 评论(0) 推荐(0) 编辑

Delphi组件开发教程指南目录

摘要：用Delphi开发的时间也不短了！刚接触Delphi的时候，就觉得组件这个东西非常方便！根本不必知道组件内部的作为，只要使用就好了！然而用的多了，也不免会对各种delphi组件的内部实现方式产生兴趣！也不知道从什么时候开始，开始开发delphi的控件，这也得归功于我所在的公司了，由于老板的信任，我得阅读全文

posted @ 2018-12-10 17:11 癫狂编程阅读(627) 评论(0) 推荐(0) 编辑

Delphi 7学习开发控件(续)

摘要：继上次我们学习开发一个简单的画线控件后，基本的制作控件步骤已经清楚了，这次我们继续加深学习控件的制作。我们打开Delphi 7创建一个应用程序，拖动LineTo控件到窗体上，仔细看左边的对象设计器，可以看到默认的属性Properties有11个，而事件Events没有一个，如下图所示：我们上次开发阅读全文

posted @ 2018-12-10 16:18 癫狂编程阅读(512) 评论(0) 推荐(0) 编辑

Delphi 7学习开发控件

摘要：我们知道使用Delphi快速开发，很大的一方面就是其强大的VCL控件，另外丰富的第三方控件也使得Delphi程序员更加快速的开发出所需要的程序。在此不特别介绍一些概念，只记录自己学习开发控件的步骤。假设我们要开发一个画直线的控件，那么我们从下面开始做：1.菜单栏→Component→New Comp 阅读全文

posted @ 2018-12-10 16:11 癫狂编程阅读(801) 评论(0) 推荐(0) 编辑

制作用于日期时间型字段的DELPHI数据感知控件

摘要：用DELPHI开发C/S应用方便而快速，因为它拥有大量易于使用的数据访问和数据感知控件。然而万事总是难以完美，DELPHI的DBEdit控件用于输入日期时间型字段却很不方便，为了改善这一缺点，笔者开发了一个DBDateTime数据感知控件，大大方便了时间和日期的输入。创建一个构件时，最重要的一步是阅读全文

posted @ 2018-12-10 10:41 癫狂编程阅读(624) 评论(0) 推荐(0) 编辑

Delphi xe7组件和控件的安装方法

摘要：暂时我所遇到的所有控件安装方法大体与下面两种相同。若有不同大家提出来，一起想办法解决。 .dproj格式的组件安装方法： raise组件安装详细步骤如下：一、设置搜索路径1. 将本包中的文件连同子文件夹一起解压到一个自己希望的文件夹下。2. 设置Delphi Xe7 的库搜索路径包含你释放源代阅读全文

posted @ 2018-12-10 10:37 癫狂编程阅读(1742) 评论(0) 推荐(0) 编辑

SQL Server Profiler的简单使用，方便查找和发现SQL执行的效率和语句问题

摘要： 1 打开Server Profiler 2 去掉不必要的干扰，数据库的连接和断开之类的 3. 选择“显示所有列”，之后在列表中，勾选“DatabaseName”项。 4设置筛选器，这里设置只是过滤数据库名称，因为一个数据库实例中如果有多个数据库，那么不筛选数据库名称，那么所有数据库上的执行语句都能监阅读全文

posted @ 2018-12-09 19:19 癫狂编程阅读(563) 评论(0) 推荐(0) 编辑

Sql Server性能优化辅助指标SET STATISTICS TIME ON和SET STATISTICS IO ON

摘要： 1.前言对于优化SQL语句或存储过程，以前主要是用如下语句来判断具体执行时间，但是SQL环境是复杂多变的，下面语句并不能精准判断性能是否提高；如果需要精确知道CPU、IO等信息，就无能为力了。这时候如果使用SET STATISTICS TIME ON和SET STATISTICS IO ON 指阅读全文

posted @ 2018-12-09 18:49 癫狂编程阅读(371) 评论(0) 推荐(0) 编辑

SQLServer 查看SQL语句的执行时间

摘要：在MSSQL Server中通过查看SQL语句执行所用的时间，来衡量SQL语句的性能。通过设置STATISTICS我们可以查看执行SQL时的系统情况。选项有PROFILE，IO ，TIME。介绍如下： SET STATISTICS PROFILE ON：显示分析、编译和执行查询所需的时间（以毫秒为阅读全文

posted @ 2018-12-09 18:34 癫狂编程阅读(896) 评论(0) 推荐(0) 编辑

Delphi 检查文件是否存在

摘要： Delphi下检查文件是否存在，我们可以使用FileExists函数其原形如下： Function FileExists(const FileName: string): Boolean; 示例： if Not FileExists('路径+文件名') then begin showmessage 阅读全文

posted @ 2018-12-09 18:08 癫狂编程阅读(4457) 评论(0) 推荐(0) 编辑

delphi如何模块内部获得自身路径ExtractFilePath和paramstr(0)

摘要：如何模块内部获得自身路径？Exe程序：DLL程序： ExtractFilePath(Application.ExeName) GetCurrentDir TIniFile.Create(GetCurrentDir + '\chis.ini'); TIniFile.Create(ExtractFile 阅读全文

posted @ 2018-12-09 17:46 癫狂编程阅读(2029) 评论(0) 推荐(0) 编辑

Delphi GetCurrentDir 获取当前文件夹

摘要： //获取当前文件夹 GetCurrentDirvardir: string;begindir := GetCurrentDir;ShowMessage(dir); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projectsend; 阅读全文

posted @ 2018-12-09 17:45 癫狂编程阅读(890) 评论(0) 推荐(0) 编辑