原创 數據庫使用MSSQL固定情況下調用存儲過程
//換了數據庫後臺就肯定失敗 function MaxVal(TableName: string) : integer;
2020-06-26 06:22:34
原创 StringGrid的Click事件中獲取選中的當前行
StringGrid 的option中的goRangeSelect設置爲false 確保goRowSelect爲true; 然後 procedure TfrmEvent.StringGrid1Click(Sender: TObject);
2020-06-26 06:22:34
3
原创 delphi的MessageBox
Application.MessageBox 是 TApplication 的成員函數，宣告如下： function TApplication.MessageBox(const Text, Caption: PChar; Flags:
2020-06-26 06:22:34
37
原创 del調用返回遊標的存儲過程
一.創建包與包體1.附：建表aaclass爲下面作測試用create table aaclass(CID VARCHAR2(50), CNAME VARCHAR2(50), pnumber NUMBER(10,0) );INSERT IN
2020-06-26 06:22:23
原创 ADO訪問excel
要用DELPHI中的ADO系列控件訪問Excel數據文件，首先應該建立一些基本概念。你需要將一個Excel數據文件想象爲一個關係數據庫，Excel文件中的每個工作表就對應該數據庫中的一個表，而工作表中的每一列當然就是表的列了。然後，按照下
2020-06-09 07:11:44
3
原创 fcTreeView的弱點
//就是節點上的小圖片不能立馬更新//以下是對delphi自帶的treeview和fctreeview的比較//手工爲兩個treeview各加兩個節點
2020-06-09 07:11:44
原创 delphi操作excel
delphi 控制 excel，創建報表 http://www.delphibbs.com/keylife/iblog_show.asp?xid=11659一) 使用動態創建的方法首先創建 Excel 對象，使用ComObj:var
2020-02-24 01:37:04
原创 在類中自定義事件
自定義事件定義的方法和定義屬性差不多，只是類型時TNotifyEvent。 TNotifyEvent是默認事件，其定義爲： TNotifyEvent = procedure(Sender: TObject)示例一(僅列出相當代碼)：t
2020-02-24 01:37:04
原创 dephi 綁定變量
//作高效數據庫程序比較有用var S:string;begin S:='select dept_name from department whe
2020-02-24 01:37:04
原创 TStringList的一些高級用法
TStringList的用法 TStrings是一個抽象類，在實際開發中，是除了基本類型外，應用得最多的。常規的用法大家都知道，現在來討論它的一些高級的用法。先把要討論的幾個屬性列出來：1、CommaText2、Delimiter &
2020-02-24 01:37:04
原创 fcTreeView任何情況下只有一節點被選中
procedure TfmeEvtReg.tvEvtTypeToggleCheckbox(TreeView: TfcCustomTreeView;
2020-02-24 01:37:04
原创 delphi面向對象的部分
overload與overwrite的區別 overload--過載:同一類中實現名字相同的函數或過程,但它們的參數列表或返回類型不同 overwrite--重載:子類中用來覆蓋父類中名字相同的函數或過程,以實現子類中該函數或過程的、使其
2020-02-24 01:37:03
原创 不知道是不是TpageControl的bug
修改TpageControl的ActivePage屬性 //定義的全局變量FlagDept:smallInt;//0 ：人員 1：部門 2：崗位；//MDI窗體的菜單CLick事件//1procedure TFrmStart.NBuMen
2020-02-24 01:37:03
原创 窗體加載時StringGrid的第一行數據不被選中(去掉藍色背景色)
uses Grids; procedure TfrmEvent.FormCreate(Sender: TObject); var rect:TGridRect; begin //24爲stringgrid1中不存在的範圍
2020-02-24 01:37:03
原创 delphi操作word
//插入圖片var WordApp,WordDoc:variant;begin WordApp :=CreateOLEObject('Word
2020-02-24 01:37:03