原创 Delphi主從表例子
在sql server 的northwide 中建立主表create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )gocreate tab
2020-02-24 11:05:25
原创 ADO 中處理多個返回結果集
在使用 SQL 語句時，常常會有多個結果集被返回的情況，比如 EXEC sp_helpconstraint [TableName] 就返回了兩個結果集。如果我們需要處理多個結果集時。可用ADO的 NextRecordSet 方法。用法如
2020-02-24 11:05:25
原创 怎麼能讓CXGRID,中某列內嵌的控件自動下拉
type TcxImageAccess = class(TcxImage); procedure <Form>.<SpeedButton>OnClick(Sender: TObject);var AHandled: Boolean;
2020-02-24 11:05:25
原创 取得cxDBLookupComboBox裏選取內容其行的其他列值。。
選擇_收貨單位1.Properties.ListColumns.Grid.DataController.GetDisplayText(選擇_收貨單位1.Properties.ListColumns.Grid.FocusedRowInde
2020-02-24 11:05:25
原创 在DLL中動態創建控件應注意的。。
在DLL中動態創建控件時，要引用ActiveX單元 CoInitialize(nil); ......創建 CoUninitialize;//釋放
2020-02-24 11:05:25
原创 delphi調用C++封裝動態庫
delphi調用C++動態庫，當C++中有枚舉類型時，在delphi定義枚舉類型時，要在定義單元上面加上 unit LocateWaitfrm; interface uses {$Z4};否則會出現結構體中大小不一致現象。
2020-02-24 11:05:25
原创 在fastreport中加入自定義函數。
procedure TForm1.FormCreate(Sender: TObject);begin frxReport1.AddFunction('function CurrToBigNum(Value:Extended):stri
2020-02-24 11:05:25
2
原创 Cxgrid用法
CxGrid 自定義代碼過慮條件幽靈湖 2009-06-10 14:59 TableView.DataController.Filter.Root.AddItem( TableView.DataController.GetI
2020-02-24 11:05:25
原创 參數爲指針參數如何傳遞。。
type TMyArr = array [0..3] of TPoint; PMyArr = ^TMyArr; TForm1 = class(TForm) Button1: TButton; proc
2019-08-09 06:43:53
原创 base64編碼問題
當用EncodeStream(Stream,sm1);//將內存流編碼爲base64字符流，轉爲base64編碼後，會每76行後加一個回車換行字符，使用中應該去掉： st
2019-04-05 08:10:23
2
原创 遞歸查詢網頁Frame
function GetFrame(ADoc:IHTMLDocument2 ; FrameNo:Integer):IWebbrowser2; var OleContainer:IOleContaine
2018-08-29 19:03:28
1
原创 在delphi中製作二維碼
var abar: TQRCode; aCode: string; begin if acode = '' then acode := 'www.163.com'; acode := acode;
2018-08-29 19:03:25
4
原创 在dll裏實現定時器功能
一，首先引入“mmsystem”單元。二，啓動定時器： var MMTimerID: Integer; // 定時器ID MMTimerID := timeSetEvent(1000, 0, @Time
2018-08-29 19:03:07
1