摘要：
ADOQuery参数传递 dbgrid1.DataSource := datasource1; datasource1.DataSet := adoquery1; Value := 1221; SQL := 'SELECT * FROM customer WHERE CustNo>:Number'; adoquery1.SQL.Clear; adoquery1.Parameters.Clear; adoquery1.sql.Add(SQL);// adoquery1.ParamCheck := true; adoquery1.Parameters.ParamByName( 阅读全文
posted @ 2013-10-16 23:18
angelbd
阅读(822)
评论(0)
推荐(0)
摘要：
delphi checklistbox用法在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等删除：CheckListBox.DeleteSelected; 上下移： CheckListBox.Items.Move 删除用 CheckListBox1.Items.Delete(Index); 上下移动用 CheckListBox1.Items.Move(CurrentIndex,NewIndex);//在项目中添加字符串(子项目的最后一位接着添加) CheckListBox1.Items.Add(edit1.Text); ... 阅读全文
posted @ 2013-10-16 23:13
angelbd
阅读(785)
评论(0)
推荐(0)
摘要：
c++builder/delphi中透明panel及透明窗口的实现方法_delphi教程可能大多数程序员会问：透明窗口，特别是透明Panel有什么应用价值呢？可别小看它们哦，下面我就来讲讲他们的巨大作用。 （1）透明窗口可以用于软件界面特效。大家可以看到很多软件的窗口出现或退出的时候是渐进或渐出的，而并非象WinArray8那样直接弹出窗口。这就是Win2000下所提供的功能。实现方法很简单： this->AlphaBlend=true; this->AlphaBlendValue=100; 代码中this是窗口的指针，当然你不能在数据模块或是其他类里调用（废话）。... 阅读全文
posted @ 2013-10-16 23:12
angelbd
阅读(2789)
评论(0)
推荐(0)
摘要：
Delphi TStringList的用法TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange(0,1); {置换}List.Insert(0,'Strings3'); {插入}i := List.IndexOf('Strings1 阅读全文
posted @ 2013-10-16 23:11
angelbd
阅读(37603)
评论(0)
推荐(0)
摘要：
图片的漫游把图片放在一个Panel里面,设置图片的AutoSize:=true，Cursor:=crHandPoint;通过改变Panel的大小控制图片可见内容的范围。然后在图片的OnMouseMove写相关代码，控制图片的Top,Left值。var CanMove : boolean; X1, Y1 : integer;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin CanMove := True; Ima... 阅读全文
posted @ 2013-10-16 23:09
angelbd
阅读(363)
评论(0)
推荐(0)
摘要：
SQL中导入图片 分类： 论坛精贴 2006-05-10 12:07 398人阅读 评论(0) 收藏 举报 sqlimage服务器insertlogingo1、建立过程CREATE PROCEDURE sp_textcopy ( @srvname varchar (30), @login varchar (30), @password varchar (30), @dbname varchar (30), @tbname varchar (30), @colname varchar (30), @filename ... 阅读全文
posted @ 2013-10-16 23:08
angelbd
阅读(1279)
评论(0)
推荐(0)
摘要：
Q：三层结构，在服务器端使用adoconnection连接到sqlserver2000，然后想在 datasetprovider的beforupdaterecord中使用语句： try adoconnection.begintrans; //这一句出错，错误信息如下 .... adoconnection.committrans; except .... end 错误信息如下: 无法在此会话中启动更多的事务 我在启用adoconnection.begintrans前判断adoconnection.InTransaction是false, 为什... 阅读全文
posted @ 2013-10-16 23:07
angelbd
阅读(6418)
评论(0)
推荐(0)
摘要：
delphi 中如何调用sql 存储过程 使用TADOStoredProc组件,可以，给你举个例子好了 with ADOStoredProc1 do begin Close; Parameters.Clear; ProcedureName:='SaveDate_dbzsm'; //存储过程名称 Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数（数字代表长度） Parameters.CreateParameter('... 阅读全文
posted @ 2013-10-16 23:03
angelbd
阅读(6132)
评论(0)
推荐(0)
摘要：
Delphi StringGrid常用属性和常用操作 StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。一、Delphi StringGrid控件的属性及使用说明1、固定行及固定列： (没有固定行列的时候，不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedCols := 固定行数； ... 阅读全文
posted @ 2013-10-16 22:58
angelbd
阅读(671)
评论(0)
推荐(0)
摘要：
delphi 常用函数(数学)Delphi中怎么将实数取整？floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124round 计算四舍五入，比如 round(-123 阅读全文
posted @ 2013-10-16 22:57
angelbd
阅读(653)
评论(0)
推荐(0)
摘要：
通过dbgrideh 从数据集中选择合适的记录//---------------------------------------------------------// 通过dbgrideh 从数据集中选择合适的记录 //---------------------------------------------------------比较常用，前几天好像论坛上有人提过类似问题，哪位朋友有更好的办法，请不吝赐教。 通过dbgrideh 从数据集中选择合适的记录，可以通过鼠标拖动选择，shift 多选。 1、dggrideh 的 options = [dgTitles,dgIndic... 阅读全文
posted @ 2013-10-16 22:50
angelbd
阅读(2513)
评论(0)
推荐(0)
摘要：
EhLib 在 Delphi 7 下的安装方法1、将 EhLib 解压到一个目录，如：E:\VCL\EhLib；2、将 EhLib 安装目录下 Common 目录、DataService 目录下的所有文件拷贝到 EhLib 安装目录下的 Delphi 7 目录；3、启动 Delphi 7；4、选择 File — Open Project，跳转到 EhLib 安装目录，在出现的打开文件对话框文件类型下拉列表中选择 Delphi Package（*.dpk；*.dpkw），在文件列表中选择 EhLib70.dpk 打开，然后在出现的 Package 窗口中点击按钮 Compile，编译此包；5、按 阅读全文
posted @ 2013-10-16 22:49
angelbd
阅读(3552)
评论(0)
推荐(0)
摘要：
Delphi StringGrid常用属性和常用操作 StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。一、Delphi StringGrid控件的属性及使用说明1、固定行及固定列： (没有固定行列的时候，不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedCols := 固定行数； ... 阅读全文
posted @ 2013-10-16 22:48
angelbd
阅读(659)
评论(0)
推荐(0)
摘要：
delphi 把图片存入数据库procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程var Stream:TMemoryStream;begin try Stream := TMemoryStream.Create; // 创建内存流 Image1.Picture.Graphic.SaveToStream(Stream); // 将图片保存到内存流中 adoquery1.Close; adoquery1.SQL.Clear; adoQuery1.SQL.Add('Insert into tblt... 阅读全文
posted @ 2013-10-16 22:47
angelbd
阅读(3531)
评论(0)
推荐(0)
摘要：
在状态栏即时显示Hint（所有窗口，包括子窗口控件的hint）在主窗体中放入一个ApplicationEvents控件。添加如下代码。其中Items[***]中的***代表状态栏的各个子panel，integer类型。procedure TfrmMain.ApplicationEvents1Hint(Sender: TObject);begin statusbar1.Panels.Items[nInfo].Text:=Application.Hint;end;procedure TfrmMain.ApplicationEvents1Idle(Sender: TObject; var Do... 阅读全文
posted @ 2013-10-16 22:46
angelbd
阅读(281)
评论(0)
推荐(0)
摘要：
delphi实例TDBGrid用右键菜单复制行粘贴行 这个从本质上来说就是DBGrid后台数据库的插入右键复制当前行的相关数据到临时变量点粘贴时，覆盖数据或插入数据！db为数据库: 字段名id,name,string型通过adoquery-》datasource->dbgrid,adoquery的SQL中填写select * from db在form定义两个变量（全局）：var id,name:string;复制代码：procedure CopyToMem;begin if not adoquery.active then begin showmessage('数据库没有打开！& 阅读全文
posted @ 2013-10-16 22:45
angelbd
阅读(2084)
评论(0)
推荐(0)
摘要：
CREATE function dbo.GetPY (@Char varchar(100)) returns varchar(100) as begin --字符串长度 返回数据 遍历字符串位置 遍历的字符 declare @i_Len int, @c_Return varchar(100), @i_pos int,@c varchar(2),@c_CN varchar(100) --初始化数据 --set @str='龙岂池中物' set @i_Len = len(@Char) set @c_Return = '' set @i_pos = 0 --遍历字符串 阅读全文
posted @ 2013-10-16 22:43
angelbd
阅读(209)
评论(0)
推荐(0)
摘要：
将DELPHI数据库连接写进INI配置文件中 procedure TDM.DataModuleCreate(Sender: TObject); var piececonfg:Tinifile; pathconfgstr,Providerstr,UserIDstr, Passwordstr,DataSourceStr,DatabaseNamestr :string; begin pathconfgstr:= ExtractFilePath(Application.ExeName); if pathconfgstr[length(pathconfgs... 阅读全文
posted @ 2013-10-16 22:39
angelbd
阅读(766)
评论(0)
推荐(0)
摘要：
在Delphi中利用MSDASC来配置数据库链接在运行期进行数据库的连接是一个问题，自己写一个窗体配置吧，数据库不一样，所用的参数也不一样，还有那讨厌的连接字符串，有时真不知该写什么好。那天无意中发现一个UDL文件，打开时自动弹出标准的数据库链接属性配置窗体，用过ADOConnection的一定知道。可惜的是UDL文件是明码，而且要放在一个目录下，要是能放在注册表中多好，还可以加密存放，我们如何调用这个窗体呢？通过查找注册表，发现打开UDL文件的是MSDASC，再查MSDASC，OK，在OLEDB32.dll中。好啦，我们开始编程吧。 为了找到OLEDB32.DLL中的接口描述，以便知道有什么 阅读全文
posted @ 2013-10-16 22:37
angelbd
阅读(636)
评论(0)
推荐(0)
摘要：
delphi中获取汉字的拼音首字母1.py: array[216..247] of string = ({216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL' + 'W 阅读全文
posted @ 2013-10-16 22:34
angelbd
阅读(576)
评论(0)
推荐(0)
摘要：
OpenDialog的一个问题 有一个功能要求就是【每次打开文件的对话框的默认路径是上一次保存文件的路径】，本来这个就是设置OpenDialog控件的InitialDir属性就行了，但是第一次打开的时候还行，把文件保存在另一个目录下，再打开OpenDialog对话框时弹出的还是第一次的目录，让人很不解。。。但是SaveDialog对话框，满足上面提到的要求，OpenDialog和SaveDialog两个控件的初始情况如下： OpenDialog的初始情况： OpenDialog.Filter:='Gamma System file(*.ini)|*.ini|All files(... 阅读全文
posted @ 2013-10-16 22:32
angelbd
阅读(548)
评论(0)
推荐(0)
摘要：
DBGridEh导出Excel等格式文件 uses DBGridEhImpExp; {------------------------------------------------------------------------------- 过程名: TfrmEmplyExport.OutToFile 作者: han 日期: 2007.08.08 参数: IADO : TADOQuery; DgEh : TDBGridEh 返回值: 无 说明: 导出查询结果到文件--------------------------------... 阅读全文
posted @ 2013-10-16 22:32
angelbd
阅读(802)
评论(0)
推荐(0)
摘要：
文本文件导入到数据库中的几种方法 大型的数据库开发中常常遇到数据源是平面文件（如文本文件）的情况，对于这样的数据源，无法使用数据库对其数据进行有效的管理，另外也无法使用SQL语句对其进行查询和操作，所以当务之急就是将这些平面文件导 入到数据库中，然后就可以对其进行高效的操作了。 下面介绍几种常见的数据导入的方法，希望能够给大家启迪。另外，本文所涉及到的数据库均为Oracle数据库，其实对于其他数据库而言，方法类似。 一、Sql*:Loader 该方法是Oracle数据库下数据导入的最重要的方法之一，该工具由Oracle客户端提供，其基本工作原理是：首先要针对数据源文件制作一个控制文件... 阅读全文
posted @ 2013-10-16 22:25
angelbd
阅读(4173)
评论(0)
推荐(0)
摘要：
delphi文件流 [复制链接] 在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。 TStream类中定义的属性介绍如下： 1、Size: 此属性以字节返回流中数据大小。 2、Position: 此属性控制流中存取指针的位置。 Tstream中定义的虚方法有四个： 1、Read:此方法实现将数据从流中读出。函数原形为： Function Read(var Buffer;Count:Longint):Longint;virtual;abstract; 参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际读出的.. 阅读全文
posted @ 2013-10-16 22:21
angelbd
阅读(666)
评论(0)
推荐(0)
摘要：
近一年来,自己基本上是靠自己单打独斗+外援指导模式做了几个小得不能再小的小CASE,当然此小CASE非往日女儿经常学说自己的口头禅"小CASE"来缩代谦虚客套话的那个“小CASE”。在这些所谓“开发生涯”日子的苦捱和煎熬中，自己多多少少也取得一定的收获，当然不单单是指经济物质上的，个人的技术水平上也有了一定的长进。凭心而论，只有亲身经历过的苦难方能称得上真正的“苦难”，只有亲身体验过的风景方才算得上好风景。套用句歌词，不经历风雨，哪能见到彩虹？ 通过网络和朋友的热心指导，自己最终都算较成功地完成的任务。现在趁稍稍有闲瑕之际，特意整理一下自己的学习资料，当然绝大多数都是转载自 阅读全文
posted @ 2013-10-16 21:34
angelbd
阅读(209)
评论(0)
推荐(0)
浙公网安备 33010602011771号