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 ...
分类：
数据库 时间：
2019-03-28 00:35:57
阅读次数：
285
Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：procedure ChildForm.OnClose(Sender: TObject ...
系统: win7 64位+ MySql 将libmysql.dll和Dbxmys.dll 拷到 C:\Windows\SysWOW64 目录. ( 64位系统) 32位则拷到 c:\windows\system32. 注意: libmysql.dll和Dbxmys.dll 这2个文件安装DELPHI ...
分类：
数据库 时间：
2019-03-24 10:03:40
阅读次数：
338
在数据库系统设计中经常要用到在表格中进行数据录入，如何判断在数据导入时的数据有效性呢？下面介绍几种常用的方法与大家交流。 方法一：Dbgrid是与Table，在Table的Column的OnSetText和OnValidate事件中处理。 1、在OnSetText中判断数据的合法性，如果不合法，在O ...
分类：
数据库 时间：
2019-03-22 18:55:02
阅读次数：
187
//Email验证 function TDeptCaptionFrm.EMailAddCheck(EmailAdd: string; var Errorcode: string): Boolean; function CheckAt(s: string): integer; var num, t: ... ...
分类：
移动开发 时间：
2019-03-22 13:01:01
阅读次数：
211
问题： Incorrect string value: '\xE6\xB2\x99\xE6\xB2\xB3' for column 'name' at row 1 解决： 在mysql中输入： show variables like "char%"; 查看mysql的编码方式： + + + | Va ...
分类：
数据库 时间：
2019-03-20 11:54:34
阅读次数：
192
1 引言 当前的数据库应用系统中，按其结构划分为两类，一类是两层结构的数据库应系统，另一类是多层结构的数据库应用系统。 两层结构的数据库应用系统包括客户/服务器（C/S）模式和浏览器/服务器（B/S）模式，它的特点是数据和程序分离，数据库服务器端管理数据，客户机或浏览器显示、访问和更新数据，因此可以 ...
分类：
数据库 时间：
2019-03-18 18:23:32
阅读次数：
232
Delphi之TStrings和TStringLists类 有些类不是组件，但它们支持存在的组件。这些类是其他组件的典型属性，直接由TPersistent派生，如TStrings、TCanvas和TCollection。 TStrings和TStringLists类 TStrings是一个抽象类，使 ...
通过TADOQuery的方法Locate，输入字符，查找到定位到对应的数据位置，优点快速定位，缺点是只匹配查找到的和第一个位置，无法连续定位下一个！ //定位qrymembertype.Locate('Cname', Cname, [loCaseInsensitive]); 'Cname'列名Cna ...
