摘要：
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
阅读(820)
评论(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
阅读(773)
评论(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
阅读(2784)
评论(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
阅读(37555)
评论(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
阅读(360)
评论(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
阅读(1276)
评论(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
阅读(6409)
评论(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
阅读(6121)
评论(0)
推荐(0)
摘要：
Delphi StringGrid常用属性和常用操作 StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。一、Delphi StringGrid控件的属性及使用说明1、固定行及固定列： (没有固定行列的时候，不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedCols := 固定行数； ... 阅读全文
posted @ 2013-10-16 22:58
angelbd
阅读(668)
评论(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
阅读(647)
评论(0)
推荐(0)
摘要：
通过dbgrideh 从数据集中选择合适的记录//---------------------------------------------------------// 通过dbgrideh 从数据集中选择合适的记录 //---------------------------------------------------------比较常用，前几天好像论坛上有人提过类似问题，哪位朋友有更好的办法，请不吝赐教。 通过dbgrideh 从数据集中选择合适的记录，可以通过鼠标拖动选择，shift 多选。 1、dggrideh 的 options = [dgTitles,dgIndic... 阅读全文
posted @ 2013-10-16 22:50
angelbd
阅读(2508)
评论(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
阅读(3539)
评论(0)
推荐(0)
摘要：
Delphi StringGrid常用属性和常用操作 StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。一、Delphi StringGrid控件的属性及使用说明1、固定行及固定列： (没有固定行列的时候，不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedCols := 固定行数； ... 阅读全文
posted @ 2013-10-16 22:48
angelbd
阅读(657)
评论(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
阅读(3524)
评论(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
阅读(279)
评论(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
阅读(2071)
评论(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
阅读(208)
评论(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
阅读(765)
评论(0)
推荐(0)
摘要：
在Delphi中利用MSDASC来配置数据库链接在运行期进行数据库的连接是一个问题，自己写一个窗体配置吧，数据库不一样，所用的参数也不一样，还有那讨厌的连接字符串，有时真不知该写什么好。那天无意中发现一个UDL文件，打开时自动弹出标准的数据库链接属性配置窗体，用过ADOConnection的一定知道。可惜的是UDL文件是明码，而且要放在一个目录下，要是能放在注册表中多好，还可以加密存放，我们如何调用这个窗体呢？通过查找注册表，发现打开UDL文件的是MSDASC，再查MSDASC，OK，在OLEDB32.dll中。好啦，我们开始编程吧。 为了找到OLEDB32.DLL中的接口描述，以便知道有什么 阅读全文
posted @ 2013-10-16 22:37
angelbd
阅读(632)
评论(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
阅读(571)
评论(0)
推荐(0)
浙公网安备 33010602011771号