癫狂编程

摘要： [delphi] view plain copy //ATableName-表名, AKeyField-主键，多个主键用;隔开，如 ;pid;times; from：unit HlsImplBase; [delphi] view plain copy function THlsImplBase.UpdateTableData(ATableName, AKeyField: AnsiString... 阅读全文

摘要： procedure TForm1.Button2Click(Sender: TObject); var R: Variant; begin R := MemTableEh1.Lookup('Name',Edit1.Text,'Name'); if not VarIsNull(R) then ShowMessage(R); end; 阅读全文

摘要： TClientDataSet[12]: 查找 方法有:1、Locate: 根据字段列表和对应的字段值查找并定位, 找到返回 True.2、Lookup: 根据字段列表和对应的字段值查找, 返回需要的字段值.3、SetKey、GotoKey 或 SetKey、GotoNearest: 根据索引字段的值 阅读全文

摘要： TDataSet类由TBDEDataSet（BDE组件）、TCustomADODataSet（ADO组件）、TIBCustomDataSet（InterBase组件）、TCustomSQLDataSet（dbExpress组件）和TCustomClientDataSet子类组成。 下面介绍DataS 阅读全文

摘要： 好多人都抱怨delphi没有提供一个可以把任意数据放入数据库的控件，虽然说用代码实现也不难，但是有控件会更方便，这次我终于还是抽出空来做了这么个控件，以后就可以直接拖放了。它支持把任意数据类型写入数据库，也可以从数据库读出到流，或是直接保存为文件。另外，我加了一些对常用图像的处理，保存 jpg或是g 阅读全文

摘要： var record = dataset.find(["status"],[curstatus]); //status指的是dataset中的某个字段，curstatus指的是指定的字段的值datasetChoose.setCurrent(record); //设置查找到的记录为当前记录 作者：巴克 阅读全文

摘要： dbgrid是从TCustomGrid继承下来的，它有col与row属性，只不过是protected的，不能直接访问，要处理一下，可以这样： TDrawGrid(dbgrid1).row:=row; TDrawGrid(dbgrid1).col:=col; dbgrid1.setfocus;就可以看 阅读全文

摘要： 哈哈，我弄出来了。在大富翁上搜索的。Form1.DBGrid1.SelectedIndex := 4;Form1.DBGrid1.SetFocus;这样就行了。谢谢你！ procedure TForm1.Button1Click(Sender: TObject);begin{修改KuCunInfo中 阅读全文

摘要： 关闭一个窗口有几种方式：最小化这个窗口，隐藏这个窗口，释放这个窗口，这句话就是说但这个窗口关闭的时候释放这个窗口，它应该是在form的onclose事件里面的 就是form.onclose() begin Action:=cafree; end;它的做用是不是相当于form.relase或form. 阅读全文

摘要： https://www.devart.com/dbx/sqlserver/ 阅读全文

摘要： Delphi IDE中包含一个Data Explorer的组件，如下图所示： 该组件基于dbExpress（包含TSQLConnection、TSQLDataSet、TSQLQuery、TSQLStoredProc、TSQLTable、TsqlServerMethod、TSQLMonitor、TSi 阅读全文

摘要： dbgrid是从TCustomGrid继承下来的，它有col与row属性，只不过是protected的，不能直接访问，要处理一下，可以这样：TDrawGrid(dbgrid1).row:=row;TDrawGrid(dbgrid1).col:=col;dbgrid1.setfocus;就可以看到效果 阅读全文

摘要： 给DBGrid动态赋值后，如何用程序指定某行某列为当前焦点？主要是如何指定列，行我能够指定,用DBGrid1.DataSource.DataSet.RecNo := 2;就行了，但是列我不会，请大家教我。谢谢！ 如果希望是第2列获得焦点(字段数组下标从0开始)：ADOTable1.RecNo := 阅读全文

摘要： SQL Server 取日期时间部分 在本文中，GetDate()获得的日期由两部分组成，分别是今天的日期和当时的时间： Select GetDate() 用DateName()就可以获得相应的年、月、日，然后再把它们连接起来就可以了： Select Datename(year,GetDate()) 阅读全文

摘要： procedure TForm1.Btn_OKClick(Sender: TObject); var sqlconn:string; begin Sqlconn:='Provider=SQLOLEDB.1;'+'password='+Edit_Password.Text +';Persist Security Info=true;User ID='+Edit_Name.Text ... 阅读全文

摘要： TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 一、TClientDataSet的基本属性和 阅读全文

摘要： unit CnCommon; {* | ================================================================================ * 软件名称：开发包基础库 * 单元名称：公共运行基础库单元 * 单元作者：CnPack开发组 * 备 注：该单元定义了组件包的基础类库 * 开发平台：PWin98SE + Delphi 5... 阅读全文

摘要： Cnpack公共窗体库 CnPack 2009-09-14 SVN 包，包括以下内容： 1. CnPack 组件包所有源代码。2. CnPack 开发组所有文档和模板，其中帮助文档目前包括多语帮助文档、CnDebugger 接口帮助文档、CnCalendar 历法说明文档、平滑字体组件帮助文档、停靠 阅读全文

摘要： Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; 阅读全文

摘要： 在程序运行中动态创建菜单，主要使用TMeunItem类，所有菜单的条目都是TMenuItem的一个实例。 打开Delphi7集成开发环境，在默认新建工程里，放置一个Button1按钮和MainMenu1菜单项，设置Button1的Caption属性为添加主菜单。 在Button1的Object In 阅读全文