原创 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