2013年10月24日
（转载）SQL语句导入导出大全
摘要： SQL语句导入导出大全/******* 导出到excelEXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'/*********** 导入ExcelSELECT *FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\test.xls";Us 阅读全文
posted @ 2013-10-24 17:26 angelbd 阅读(253) 评论(0) 推荐(0) 编辑
（转载）Delphi开发经验谈
摘要： Delphi开发经验谈开发环境-------- Delphi 7是一个很经典的版本，在Win2000/XP下推荐安装Delphi 7来开发软件，在Vista下推荐使用Delphi 2007开发软件。安装好Delphi 7后，应立即安装Delphi 7 Update Pack 1，Delphi 2007则建议尽量安装最新的版本。工欲善其事，必先利其器，为了提升开发效率，为了能更加得心应手的处理接下来的开发工作，我们有必要安装一些有用的开发辅助工具（Delphi将此类插件以Expert命名）。首先推荐的是DelForExp这个源代码格式化工具，集成在IDE里，使用相当方便。即使我所写代码的风格非常 阅读全文
posted @ 2013-10-24 17:15 angelbd 阅读(490) 评论(0) 推荐(0) 编辑
2013年10月16日
（转载）ADOQuery参数传递
摘要： 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 阅读(731) 评论(0) 推荐(0) 编辑
（转载）delphi checklistbox用法
摘要： 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 阅读(709) 评论(0) 推荐(0) 编辑
（转载）c++builder/delphi中透明panel及透明窗口的实现方法_delphi教程
摘要： c++builder/delphi中透明panel及透明窗口的实现方法_delphi教程可能大多数程序员会问：透明窗口，特别是透明Panel有什么应用价值呢？可别小看它们哦，下面我就来讲讲他们的巨大作用。 （1）透明窗口可以用于软件界面特效。大家可以看到很多软件的窗口出现或退出的时候是渐进或渐出的，而并非象WinArray8那样直接弹出窗口。这就是Win2000下所提供的功能。实现方法很简单： this->AlphaBlend=true; this->AlphaBlendValue=100; 代码中this是窗口的指针，当然你不能在数据模块或是其他类里调用（废话）。... 阅读全文
posted @ 2013-10-16 23:12 angelbd 阅读(2713) 评论(0) 推荐(0) 编辑
（转载）Delphi TStringList的用法
摘要： 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 阅读(36891) 评论(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 阅读(357) 评论(0) 推荐(0) 编辑
（转载）SQL中导入图片
摘要： 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 阅读(1270) 评论(0) 推荐(0) 编辑
（转载）使用ADOConnet.BeginTrans后,出现错误提示:无法在此会话中启动更多的事务？
摘要： Q：三层结构，在服务器端使用adoconnection连接到sqlserver2000，然后想在 datasetprovider的beforupdaterecord中使用语句： try adoconnection.begintrans; //这一句出错，错误信息如下 .... adoconnection.committrans; except .... end 错误信息如下: 无法在此会话中启动更多的事务 我在启用adoconnection.begintrans前判断adoconnection.InTransaction是false, 为什... 阅读全文
posted @ 2013-10-16 23:07 angelbd 阅读(6339) 评论(0) 推荐(0) 编辑
（转载）delphi 中如何调用sql 存储过程
摘要： 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 阅读(6091) 评论(0) 推荐(0) 编辑