原创 delphi使用存儲過程
with adoProc do begin ProcedureName := 'HOCRM_SCF1_Update'; Parameters.Clear; Parameters.CreateParameter('P1
原创 cxVerticalGrid1EditorRow
cxVerticalGrid1EditorRow2.Properties.ItemIndex --RadioGroup 取得索引
原创 cxgrid行變色
界面上有一個按鈕,點擊後cxgrid顯示不同數據,當點擊按鈕取到的記錄在另外一張表中存在時則字體顯示爲紅色 該怎麼寫,加個標識位,在cxgrid表上 然後在style中的ongetcontentstyle事件中寫處理代碼,如下面這樣 i
原创 delphi數據庫存儲圖片
--存 str_sql := 'update photo set photo = :photo '; str_sql := str_sql + ' where sex = ''女'''; with qry_for_show do b
原创 讀取excel
procedure TfrmBuyingItems.barsaveClick(Sender: TObject); var excelx,excely : string; ExcelApp,WorkBook:oleVariant; E
原创 Windows上Python3.6環境django部署到Apache服務器
Windows上Python3.6環境django部署到Apache服務器 原創 2017年07月05日 19:55:00
原创 我的友情鏈接
編程浪子朱雲翔的家(支持原創作品)肖舸的blogIT男孩李雲喻勇的博客貓熊的幸福生活601880狗窩李濤的技術專欄存儲之道carywu小魏的修行路delphi盒子CSDNmorewindows酷殼得閒筆記I'm DH詠南delphi麻省理工
原创 delphi pchar char byte string轉換問題
delphi pchar char byte string轉換問題 注:Delphi中的Char,PChar,PByte,Byte,String的相互轉換,您是不是也遇到過,爲此頭疼過嗎?你要是明白了他們的原理就會輕鬆了。話題064840的
原创 apache2
apache2 bin 目錄下--啓動服務 httpd -k restart
原创 labeledit
var i:Integer;begin for i := 0 to self.ComponentCount - 1 do begin if Self.Components[i] is TLabeledEdit then b
原创 delphi使用正則表達式
implementation{$R *.dfm} uses PerlRegEx; //uses 正則表達式單元procedure TForm1.FormCreate(Sender: TObject);var reg: TPerlReg
原创 delphi模擬登陸
實現用代碼來登錄一個網站,登錄用戶名、密碼的輸入及提交按鈕的點擊事件全部用程序來模擬下面以登錄博客園來舉例說明 http://passport.cnblogs.com/login.aspx一、模擬錄入用戶名及密碼:先將關鍵代碼寫出 proc
原创 delphi 導出excel
Var FExcel:OleVariant; //excel應用程序 FWorkBook :OleVariant; //工作表 Temsheet:OleVariant; //工作薄 FPicture:OleVariant;//圖片
原创 cxgrid header
lookandfeel nativestyle 爲false kind = office11
原创 Windows上Python3.6環境django部署到Apache服務器
Windows上Python3.6環境django部署到Apache服務器 原創 2017年07月05日 19:55:00