delphi相关文章及一些tip

最新推荐文章于 2025-04-25 18:07:04 发布

yethyeth

最新推荐文章于 2025-04-25 18:07:04 发布

阅读量1.8k

点赞数

分类专栏： Delphi 文章标签： delphi 数据库 sql server sms 数据库服务器 excel

Delphi 专栏收录该内容

2 篇文章

订阅专栏

在Delphi编程中的文件操作 http://news.softhouse.com.cn/news/show/15723.html

delphi关于文件操作的函数 http://www.cncfan.com/cncfan_com_article.asp?art_id=2502&cat_id=74

Delphi中根据分类数据生成树形结构的最优方法作者 http://www.delphiun.com/article_view.asp?id=680

《Delphi7完美经典》之第15章有delphi到各种数据库的连接(paradox,dBase,MSSQL,MySql,Access)－－实用过。不错！

另，该书第16章有delphi访问数据库的架构，perfect！

SQL SERVER跨库查询：因为程序里建立连接时已经有了服务器和数据库，库 connGZ.Provider="SQLOLEDB.1" connGZ.ConnectionString="DATABASE=SMS_DB;SERVER=10.244.74.2;UID=sa;PWD=;" 那跨库查询时应该怎么建立连接才能同时访问两个数据库呢？请多多指教，谢谢！

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

如果两个数据库在同一个服务器，那不必改变连接，查询时用 select * from SMS_DB1..tablename select * from SMS_DB..tablename （以验证，注意SMS_DB1与tablename之间的两个点）

---------------------------------------------------------------

如果不是以管理员的身份连接数据库的话，牵涉用户授权的问题，估计就不会这么简单了

---------------------------------------------------------------

把你的程序修改一下，对另外一个数据库也连接。可能要另外定义一个 connGZ connGZ.Provider="SQLOLEDB.1" connGZ.ConnectionString="DATABASE=SMS_DB;SERVER=10.244.74.2;UID=sa;PWD=;"

怎样对几个计算机上的数据库同时进行读写？？？？（未验证）

建立一个异构查询的一般步骤是这样的：
第一步，把一个TQuery构件放到窗体或数据模块上，让DatabaseName属性空着。
第二步，为要查询的每一个数据库建立一个单独的BDE别名。
第三步，设置SQL属性以指定要执行的SQL语句。在SQL语句中，表的名字前要加别名和冒号，并且用双引号括起来。字段名前要加表名和小圆点。例如：
SELECT Customer.CustNo, Orders.OrderNoFROM "Oracle1:CUSTOMER"JOIN "Sybase1:ORDERS"ON (Customer.CustNo = Orders.CustNo)WHERE (Customer.CustNo = 1503)
第四步，设置Params属性提供参数。
第五步，调用Prepare通知BDE或服务器做好准备，然后调用Open或ExecSQL执行查询。
如果显式地使用TDatabase构件连接数据库，并且设置了它的DatabaseName属性定义了应用程序专用的别名，在SQL语句中可以用专用的别名代替BDE别名。

Delphi中的INI文件编程 http://bbs.why99010.com/thread.jsp?boardid=13&threadid=727

http://www.cncfan.com/cncfan_com_article.asp?art_id=1980&cat_id=74

应用程序级信息 http://www.itfat.com/tech/delphitech/delphitech20060305/64359.htmlDelphi经验技巧集锦

http://www.5uwl.net/Article/msmir400/msmir501/msmir502/200601/5130.html

读注册表 http://www.delphibbs.com/keylife/iblog_show.asp?xid=4463

列出SQL SERVER数据库中所有表及字段信息 http://www.wangchao.net.cn/bbsshowlist.jsp?parent_id=26128&area_id=02&board_id=01

列出sql server数据库中所有数据库的所有表信息

sp_helpdb//获得数据库服务器上的所有的数据库的信息

use databasename//先将数据库服务器的默认数据库改为databasename

sp_tables//然后列出改数据库的表的信息

利用上面的三个语句可以完成目标.

在程序运行期动态改变控件位置和大小，http://www.evget.com/articles/evget_1317.html，http://iask.sina.com.cn/b/1342619.html （http://blog.youkuaiyun.com/yethyeth/articles/624007.aspx）第一篇文章中的prec的意义参见第二篇中的conprec

在使用qreport的时候，如果要动态改变page.papersize之类的属性，要引用QRPrntr单元。

在TTreeView中有三个结点，其父子关系为a->b->c，其中b还有很多其它的子结点，要选中c并且让treeview自动展开到c：treeview.selected := c; b.expand(true); (大概是这样。)

字体大小与像素的关系：n号字的意思好像是n磅字，1磅=1/72英寸，所以

font所占像素数：=round(font.pixelsPerInch*font.size/72);

QRPreview控件怎么用呢？

http://www.faq-it.org/archives/delphi_database/c1926d996859d003b788ba37adb4c5cd.php

在delphi中使用了异常捕捉机制后，在调试的过程中，在编译状态下会先出现系统的出错提示的，再运行一次，就会出现设置的异常提示。或者脱离编译状态运行可执行文件，就可以了。

在窗体按钮的单击事件中设置ModalResult := mrOK 后不用调用Close即可关闭窗口，若调用Close则导致ModalResut 为mrCancel

delphi 讀取 excel 範列

http://w2.sy3es.tnc.edu.tw/blogs/index.php?blog=3&title=delphi_er_a_excel_cm_a&more=1&c=1&tb=1&pb=1

请问如何用delphi读取excel文件的内容？

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1994205

Delphi与Excel的亲密接触

http://www.cn-doc.com/_soft_delphi_tech_doc/2005_08_18_01/20050818012558978.htm

用DELPHI把数据库中的数据导入excel中?

open application within Windows in Delphi

use shellAPI

var handle:Word

shellexecute(handle,'open',filename,nil,nil,SW_SHOW);

note:filename is as 'c:/tmp/1.html' or 'c:/tmp/1.txt' or 'http://blog.youkuaiyun.com/yethyeth'

you can also use OLEObject to deal this problem

you can also use the components in the servers page of Delphi IDE to open application such as office.

去掉窗口的标题栏：

今天考虑作界面的时候，想去掉窗体的标题栏，但设置 Form.BorderStyle := bsNone; 会导致窗体不可再 Sizeable （通过鼠标操作改变窗体大小），仔细翻看了相关Help也没找到解决办法。
在DFW里终于搜索到答案：

// 对指定窗体设置属性
SetWindowLong(Handle, // 当前窗体句柄
GWL_STYLE, // 表示当前是要设置新的窗体（普通）样式
// 得到指定窗体信息
GetWindowLong(Handle, GWL_STYLE)
and (not WS_CAPTION)); // 去掉样式(s)中的“标题”样式
Height := ClientHeight;
Width := ClientWidth;

去掉窗体中的最大化，最小化，关闭按钮

修改BorderIcons中的几个属性，即可。

自定义快速报表的打印预览窗口

http://www.chinadz.com/~wzdz/free/free/delphi/def_preview.htm