shenlanzz-优快云博客

原创数据指针

var i:integer; begin i:=Adoquery1.recno; //获取当前指针 end; Adoquery1.RecNo:=I;//指向

2008-06-14 10:38:00 413

原创代码操作Excel

1.請參考[url]http://delphi.ktop.com.tw/topic.php?TOPIC_ID=65150[/url]2.procedure TForm1.Button2Click(Sender: TObject);var ex, ws: Variant; SrcFile,TgtFile : String;begin SrcFile := C:/Temp/Te

2008-05-17 10:56:00 731

原创 WinExec(打开外部文件)

WinExec(Calc,SW_RESTORE);//打开计算器或WinExec(Calc);---------------------------------------------------WinExec(NotePad,SW_RESTORE);//打开文本文档或WinExec(NotePad);

2008-05-12 17:24:00 1776

原创 WinAPI: ShellExecute - 打开外部程序或文件

ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil} Directory: PChar; {缺省目录}

2008-05-12 17:20:00 1000

原创 FastReport（预览，修改，打印）

////////////////////////////预览 reports_fm.frxReport1.Clear; reports_fm.frxreport1.loadfromfile(ExtractFilepath(reports/)+rztreeview1.Selected.Text); if reports_fm.frxreport1.Prep

2008-05-12 01:06:00 3366

原创 ini文件操作

uses inifiles//////////////////////////写入 var filename: String; FileIni: TIniFile;begin Filename := ExtractFilePath(paramstr(0))+connect.Ini; FileIni := TIniFile.Create(Filename); FileIni.wri

2008-05-12 01:02:00 451

原创 DBGrid(下拉框外部数据)

procedure Tyw_bjgl_new_fm.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var strcpbh:string; begin strcpbh:=dbgrideh1.Columns.Items[0].DisplayText;

2008-05-12 00:58:00 586

原创 combobox(下拉框外部数据)

with dbcomboboxeh3 do begin Items.clear; with dm_fm.Query_xl do begin close; sql.clear; sql.add(select * from cyzl_qyg); open; first; begin whi

2008-05-12 00:55:00 474

原创 treeview(读取SQL表中某个字段)

varindex:integer;strfzyw:string;treeNode:TTreeNode;begin{-----------按业务员分}strfzyw:=main_fm.RzStatusPane2.Caption;if rzpagecontrol1.ActivePage=TabSheet2 thenbegin with dm_fm.Query_xl do begin Close;

2008-05-12 00:53:00 492

原创 TreeView(产品分类)

procedure Te_cpzl_fm.AddClass(AId: integer;FatherNode:TTreeNode);var QryTmp:TADOQuery; myNode:TTreeNode; myLabel:TLabel; treeNode: TTreeNode;begin QryTmp:=TADOQuery.Create(self); Q

2008-05-12 00:49:00 504

原创查出表的各个字段的所有属性

SELECT 表名 = case when a.colorder=1 then d.name else end, 表说明 = case when a.colorder=1 then isnull(f.value,) else end, 字段序号 = a.colorder, 字段名 = a.name, 标识

2008-05-04 15:44:00 612

原创还原数据库

RESTORE database cxtrade FROM DISK = D:/db2008 WITH MOVE cxtrade TO D:/Program Files/Microsoft SQL Server/MSSQL/Data/cxtrade.mdf, MOVE cxtrade_log TO D:/Program Files/Microsoft SQL Ser

2008-05-04 15:41:00 288

原创附加数据库

create database cxtrade ON PRIMARY (NAME =cxtrade ,FILENAME=D:/Program Files/Microsoft SQL Server/MSSQL/Data/cxtrade.mdf) log on (NAME =cxtrade_log,FILENAME=D:/Program Files/

2008-05-04 15:39:00 433

原创导出到EXCEL（列不固定）

function cov(str:string):string;var ss:string;begin if str= then result:=; ss:=; while pos(,,str)>0 do begin ss:=ss+,"+copy(str,1,pos(,,str)-1)+"; delete(str,1,pos(,,str)); end; ss

2008-05-04 15:26:00 1306

暴风的专栏