- 博客(23)
- 资源 (1)
- 收藏
- 关注
RSS订阅转载 在DBGrid表格控件中实现下拉表格控件
一、DBGrid网格处理的原理 Delphi提供了功能强大的DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。
2011-11-26 13:00:01
4949
转载 网络地址URL的介绍
1、网络地址URL的知识简介：URL : 统一资源定位符 (Uniform Resource Locator, URL)完整的URL由这几个部分构成：scheme://host:port/path?query#fragment scheme = 通信协议 (常用的http,ftp,maito等)host = 主机 (域名或IP)port = 端口号path = 路径
2011-11-26 12:58:53
2274
转载 Delphi 利用API实现网格内组件的嵌入
在DELPHI中利用API实现网格内组件的嵌入 Delphi中向TDBGrid添加组件是一件十分麻烦的事情。笔者在这里向大家介绍一种利用WIN32 API函数在TDBGRID中嵌入CHECKBOX组件的方法。 TDBGrid部件是用于显示和编辑数据库表中记录信息的重要部件，它是我们在程序设计过程中要经常使用的一个强有力的工具。TDBGrid具有很多重要的属性，我
2011-11-26 12:53:04
1105
转载 Delphi 把客户端的文件或者目录上传到服务器端
1、StringReplace字符串替换函数：function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;rfReplaceAll：全部替换rfIgnoreCase：忽略大小写 aStr := 'This is a book, not a pen
2011-11-26 12:51:55
7799
原创 StringReplace字符串替换函数
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;rfReplaceAll：全部替换rfIgnoreCase：忽略大小写 aStr := 'This is a book, not a pen!'; //This is two boo
2011-11-26 12:50:46
2515
转载 Delphi StringGrid常用属性和常用操作
StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。 一、Delphi StringGrid控件的属性及使用说明1、固定行及固
2011-11-26 12:50:07
60807
原创 Delphi DBGrid中嵌套按钮
procedure TManageProjForm.dbgrdhProjectDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);var btnName,IconName:string; i :inte
2011-11-26 12:49:22
6791
转载 Delphi 判断ClientDataSet控件的UpdateStatus属性类型为 (usUnmodified, usModified, usInserted, usDeleted)）
Delphi 判断ClientDataSet控件的UpdateStatus属性类型为 (usUnmodified, usModified, usInserted, usDeleted)） 根据ClientDataSet控件的UpdateStatus属性类型为（usUnmodified, usModified, usInserted, usDeleted）
2011-11-26 12:48:23
6599
转载 [Microsoft][ODBC SQL Server Driver][SQL Server]无法连接到 XXXXX上的调试程序（错误 = 0x800401f3）。请确保已在
[Microsoft][ODBC SQL Server Driver][SQL Server]无法连接到 DNG-23AP2YV5NM6 上的调试程序（错误 = 0x800401f3）。请确保已在 DNG-23AP2YV5NM6 上安装并注册了客户端组件（如 SQLLE.DLL）。已禁用对 55 的调试。找了sqlle.dll，加到bin目录下； mssdi98.dll替换掉都没有用。 后
2011-11-26 12:43:19
6175
1
转载 用“本地系统帐户”登录而SQL Server配置作为服务运行，则SP调试可能不会正常工作。
如果您用“本地系统帐户”登录而SQL Server配置作为服务运行，则SP调试可能不会正常工作。可以打开Event Viwer以查看详细信息。要继续吗？ 在控制面板－－》管理工具－－》服务中找到MSSQLServer，双击，登录页面：有两个选项，上面是“本地系统账户”， 下面的是“此账户”。 选中“此账户”， 选择一个账户如Administrator ，并输入密码
2011-11-26 12:40:45
3391
原创 SQL truncate 、delete与drop区别
相同点：1.truncate和不带where子句的delete、以及drop都会删除表内的数据。 2.drop、truncate都是DDL语句(数据定义语言),执行后会自动提交。 不同点：1. truncate 和 delete 只删除数据不删除表的结构(定义)drop 语句将删除表的结构被依赖的约束(constrain)、触发器(trigger)、索引(index)；
2011-11-24 09:05:29
1243
原创 Delphi 从数据库中读取数据给TreeView赋值，然后从TreeView结点中读取数据
// 树节点类型记录 TNodeLocalParam = ^TLocalParam; TLocalParam = record FProjectID: Integer; FVersionID: Integer; FSubItemID: Integer; FSubItemParentID: Integer; FUnitID: Intege
2011-11-23 08:54:23
5493
原创 DelPhi 动态给ComBoBox赋值，从ComBoBox中取值
1、把数据库中的项目信息（项目名称、项目编号）动态赋给ComBoBox cbProjectName.Items.Clear; with adoQryProject do begin First; while not Eof do begin ProjectNameStr := fieldByName('ProjectName').AsSt
2011-11-22 11:33:11
24850
原创 减少MS SQL死锁技巧
一、减少MS SQL死锁技巧1.使用事务时，尽量缩短事务的逻辑处理过程，及早提交或回滚事务. 2.在事务期间禁止任何用户输入。应当在事务开始之前收集用户输入。 3.尽量保持事务的短小和简单。 4.一般不要修改SQL SERVER事务的默认级别。不推荐强行加锁 5.让应用每次都以相同的次序访问服务器资源。 二、几则实践中很有用的小技巧1.使用SQL Ser
2011-11-22 09:55:17
1001
原创 把ClientDataSet的修改的数据集Delta提交到服务器端
// 把版本的信息更新至服务器function SubmitVersionInfo(var vMsg: string): Boolean;var RetData, Msg: OleVariant;begin Result := False; try with DMCaseClient.ClientDsVersion do begin /
2011-11-17 11:18:56
2284
原创 Delphi SQL数据库存取图片（利用流）
1、存图片到数据库 var PicStream: TMemoryStream; if imgBugPic.Picture.Graphic begin PicStream := TMemoryStream.Create; // 创建内存流 imgBugPic.Picture.Graphic.SaveToStream(PicStream); TB
2011-11-16 20:47:44
3021
原创 使用DataSetProvider的ApplyUpdate增加或者修改数据的样例
function TRDMEnterCaseServer.UpdateBugInfo(BugDelta: OleVariant; var aMsg: OleVariant): OleVariant;var ErrorCount: Integer; BUGID: Integer;begin ErrorCount := 0; // 用于在更新过程中记录发生错误的次数
2011-11-16 19:14:22
3038
原创 SQL 创建函数的样例（按指定的符号分割字符串，并返回临时表）
create function f_split(@c varchar(2000),@split varchar(2)) returns @t table(col varchar(20)) as begin while(charindex(@split,@c) begin i
2011-11-16 09:45:39
939
原创 SQL 把多个字段连接成一个字符串、替换字符串字段中的某些字符串
1、 连接多个字段为一个字段 SELECT @RelVersionStr = CONVERT(VARCHAR(10), VersionID) +'; ' + VersionName + ';' FROM BL_TBL_Version WHERE VersionID = @VersionID; 2、替换字符串字段中的某些字符串（此为删除此字符串）。 UPDATE
2011-11-14 17:46:31
7399
原创 Delphi 使用TAdoQuery执行存储过程的样例
Delphi 使用TAdoQuery执行存储过程的样例 procedure TCustomerForm.FindCustomerInfo;var strSql:string;begin // BL_HV_FindCustomerInfo 存储过程的名称，后面是需要的全部的参数 strSql:='exec BL_HV_FindCustomerInfo :StyleI
2011-11-10 14:28:32
4700
原创 Delphi 使用TADOStoredProc执行存储过程
Delphi 使用TADOStoredProc执行存储过程 if MessageDlg('是否要删除信息？',mtInformation,mbOKCancel,0) = mrOk then begin with adoSp1 do // adoSp1是 TADOStoredProc类型的控件 begin Close; Proced
2011-11-10 14:25:28
5008
转载 托盘图标的现实（利用类）
unit Unit_TrayIcon;interfaceuses Windows, SysUtils, Messages, ShellAPI, Classes, Graphics, Forms, Menus, StdCtrls, ExtCtrls;type TTrayNotifyIcon = class private Tray: TNotifyIco
2011-11-05 16:23:08
993
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人