摘要：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ '.',#8]) then key:=#0; //只能输入小数点end; procedure TForm1.Edit1KeyP 阅读全文

摘要：1.1Delphi数据库应用程序的层次结构 Delphi数据库应用程序通过数据存取构件对数据库进行访问，通过可视的数据构件(Data Control)将数据呈现给用户，并与用户进行交互。Delphi数据库应用程序的结构如下图： 图 2‑1 Delphi数据库应用程序结构图 Delphi访问数据库可以 阅读全文

摘要：我想在关闭delphi编译的程序时，弹出“您是否确实要退出的窗口”点击否不退出，是退出 在主窗体的CloseQuery事件里，使用messagebox进行提示，根据选择的按钮对Canclose进行设置就可以了 如 begin if messagebox(handle, '是否退出程序', '提示', 阅读全文

摘要：ADOQry.Filtered:=false; ADOQry.Filtered:=true; ADOQry.FilterGroup:=fgPendingRecords ;FilterGroup参数解释如下：FgUnassigned 指定不使用任何的过滤器来过滤数据fgNone 移去任何的过滤器，让所 阅读全文

摘要：１　DataSet.Table[0].Rows[ i ][ j ] 其中i　代表第 i 行数, j 代表第 j 列数 ２　DataSet.Table[0].Rows[ i ].ItemArray[ j ] 其中i　代表第 i 行数, j 代表第 j 列数 ３　DataSet.Tables[0].Co 阅读全文

摘要：LabelText = DataSet11.Tables("COMM.USERS").Rows[0]["User_Name"].tostring() LabelText = DataSet11.Tables("COMM.USERS").Rows(0).Item("user_name") Label. 阅读全文

摘要：比如我查找张三,那么DBGrid就可以定位到张三那行并选中这行,除了用循环实现还有没有快速定位的方法,谢谢! 解决方案 » to SuperTitan001 那如何找到张三的这行呢?除了用循环还有什么快速找到这行的方法吗? 最简单的dbgrid1.datasource.dataset.locate( 阅读全文

摘要：self.ADOQuery2.Edit;self.ADOQuery2.First;while not self.ADOQuery2.Eof dobeginself.ADOQuery2.FieldByName('单价').Value:=roundto(self.ADOQuery2.FieldByNam 阅读全文

摘要：varaintf:_Recordset;RecordsAffected:OleVariant; begin ADOStoredProc1.Close;ADOStoredProc1.Open;aintf:=ADOStoredProc1.Recordset;ADOQuery1.Recordset:=ai 阅读全文

摘要：一、建库和建表 二、完全连接的用法 结果集中包含三部分内容： 实例演示： 两张表连接： 三张表连接： 阅读全文

摘要：Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：procedure ChildForm.OnClose(Sender: TObject 阅读全文

摘要：1.窗口的所有资源真正释放时调用 FormDestroy。当你关闭窗口时,VCL会调用FormClose，如果你在FormClose里写Action = caFree，那么VCL会继续调用FormDestroy；如果你将Action的值赋为其它任何值，VCL不会真正释放窗口资源（如果Action=c 阅读全文

摘要：无论点窗口上的【按钮】还是【右上角的叉】，能出现一个提示窗口，“是”-退出窗口，“否”-重新登录（调出登录窗口），“取消”-返回。MessageBox能实现吗？还是要调用新窗口（我调用窗口，有些错误）？如图一样。 有谁能给代码？谢谢了热心网友：你好，我用你的代码，已经好了。但用在 procedure 阅读全文

摘要：1.如果要创建一个mdi child，先看是否有这个child 存在，如果有，则用它，如果没有再创建 //该函数判断MDI 子窗体是否存在，再进行创建和显示function isInclude(formclass: TFormClass): boolean;var i: Integer; form: 阅读全文

摘要：运行效果截图: 阅读全文

摘要：cnpack下载地址：http://www.cnpack.org/showdetail.php?id=726&lang=zh-cn 时候创建的子窗体不能关闭，点关闭按钮时子窗体最小化了。 出现这种情况的时候可在窗体的 onClose 事件 中加入 Action := caFree; 即可； 例： p 阅读全文

摘要：case具有两种格式。简单case函数和case搜索函数。 这两种方式，可以实现相同的功能。简单case函数的写法相对比较简洁，但是和case搜索函数相比，功能方面会有些限制，比如写判定式。 还有一个需要注重的问题，case函数只返回第一个符合条件的值，剩下的case部分将会被自动忽略。 下面实例演 阅读全文

摘要：当我们需要从数据源上 直接判断数据显示代表的含义的时候 ,就可以在SQL语句中使用 Case When这个函数了. Case具有两种格式。简单Case函数和Case搜索函数。 第一种 格式 : 简单Case函数 : 格式说明 case 列名 when 条件值1 then 选择项1 when 条件值2 阅读全文

摘要：什么是 GUID ? 全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 Web 浏览器和媒体播放器）中，都使用 GUID。 GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx” 阅读全文

摘要：什么是 GUID ? 全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 Web 浏览器和媒体播放器）中，都使用 GUID。 GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx” 阅读全文