向上帝打申请了,下辈子再也不做程序员!! 上帝批复:OK!
楼主发表于:2004-04-12 17:58:10我用ADO连接一个EXCEL文件,如果能够取得该EXCEL文件里面有几个SHEET呢,谢谢,分不够可以再加!!!对我有用[0] 丢个板砖[0] 引用 举报 管理 TOP 回复次数:936-- lijinghe1(喜欢没有文化性格泼辣身材高大的)等 级:#1楼 得分:0回复于:2004-04-12 18:13:48procedure TForm1.Button1Click(Sender: TObject); var l : TStringList; begin ADOConnection1.Open; l := TStringLis Read More
posted @ 2011-01-24 16:07 zywuhao Views(180) Comments(0) Diggs(0)
使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿:ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿:ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );5) 设置第 Read More
posted @ 2011-01-24 14:24 zywuhao Views(320) Comments(0) Diggs(0)
select id from infoid-----------123567810111215(11 行受影响)方法一:select (select max(id)+1 from Info where id<a.id) as beginId,(id-1) as endIdfrom Info a where a.id>(select max(id)+1 from Info where i... Read More
posted @ 2010-09-17 15:16 zywuhao Views(275) Comments(0) Diggs(0)
通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件,可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式(升序/降序)。我改进了一下这功能,在单击标题后分别在标题加上三角(▲)和倒三角形(▼)表示当前排序方式为升序和降序;(gaowenjie)procedure TForm1.DBGri... Read More
posted @ 2010-09-17 14:56 zywuhao Views(513) Comments(0) Diggs(0)
function FilterQryByDBG(aQry: TQuery; aDBGrid: TDBGrid; aFilterValue: string): string; //对DBGrid的指定列的过滤var FieldNO: Integer; Condition: string;begin with aQry do begin if not Active then Exit; Fi... Read More
posted @ 2010-09-17 14:54 zywuhao Views(392) Comments(0) Diggs(0)
如果QQ在托盘显示,则可以在托盘中查找。uses CommCtrl,ShellAPI;var id: array[0..100] of integer;{$R *.dfm}procedure TFrmTray.FormCreate(Sender: TObject);var v_hShellTray: THandle; v_hTrayNotify: THandle; v_hToolBar: THan... Read More
posted @ 2010-05-17 08:59 zywuhao Views(499) Comments(0) Diggs(0)
1.CreateProcess因为使用复杂,比较少用。 2.WinExec主要运行EXE文件。如:WinExec(’Notepad.exe Readme.txt’, SW_SHOW); 3.ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。 首先必须引用shellapi.pas单元:uses ShellAPI; 1).标准用法   ShellExec... Read More
posted @ 2010-05-17 08:58 zywuhao Views(542) Comments(0) Diggs(0)
准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件. Read More
posted @ 2010-05-17 08:47 zywuhao Views(264) Comments(0) Diggs(0)
>>一天,一只兔子在山洞前写文章, >> 一只狼走了过来,问:“兔子啊,你在干什么?” >> 答曰:“写文章。”问:“什么题目?”答曰:“《浅谈兔子是怎样吃掉狼的》。” >> 狼哈哈大笑,表示不信,于是兔子把狼领进山洞。 >> 过了一会,兔子独... Read More
posted @ 2009-03-30 13:26 zywuhao Views(207) Comments(0) Diggs(0)
《夜曲》Flash键盘钢琴谱MN OOOONQQ TTTSRSOO RRRSQNQP PONOON OOOONQQ TTTSRSOO RRR QPNOM《梁祝》Flash键盘钢琴谱 LJIH IGFE NMNLMKJL IJLIJKJIH LGIFHE FHE CEFHI FHE LOMLJLI IJGFEFHICHFEFHE JLGIFHE CECEFGIF EFHILJIJIHFECH FHF... Read More
posted @ 2009-03-25 17:54 zywuhao Views(2780) Comments(0) Diggs(0)