其他

Chr("0") 為0的字元Chr("1") Chr("2") Chr("3") Chr("4") Chr("5") Chr("6") Chr("7") 響鈴Chr("8") 回格Chr("9") tab(水平定位字元)Chr("10") 換行Chr("11") tab(垂直定位字元)Chr("12") 換頁Chr("13") 斷行符號 chr(13)&chr(10) 斷行符號和換行的組合Chr("14") Chr("15") Chr("16") Chr("17") Chr("18")

 procedure TForm1.Button1Click(Sender: TObject);var  F:TextFile;beginAssignfile(f,'LPT1');rewrite(f);Write(f,chr(27)+'@');  //Chr(27)+'@' 即ESC @ 指令    WRITELN(F,'TEST1   FIRST   LINE');    WRITELN(F,chr(12));   //   move   the   paper   to   a   new 

DBGRIDEH 組件在Borland開發工具中應用全攻略    2003-08-05 16:36:18   陳文彬  DBGRIDEH 是Enlib 3.0組件包中的組件之一。Enlib 3.0組件包是一位俄國人為增強Borland系列開發工具功能而開發的第三方組件，它具有介面友好、功能強大、開發效率高、、快速製作預  覽/列印簡單中國式報表等特點。因此，一推出即受到廣大Borland程式員的青睞。目前這個版本支援Borland Delphi versions 4，5，6

在   sql   server   2005的db環境中. 如何取得:字元     b   在字串     abcefbpqbe   中最後一次出現的位置. 有什麼函數可以取得這個位置嗎? DECLARE    @str varchar(8000),    @search_str varchar(10)SELECT    @str = 'abcefbpqbbpe',    @search_str = 'bp'SELECT     CASE         WHEN

ADOQuery 的幾個事件：procedure ADOQuery1_BeforePost ( DataSet : TDataSet);beginend;是在ADOQuery1或者相關聯的DataSource的資料集改動後，在將改動儲存到記憶體之前激發的事件，上次使用這個事件是用來判斷修改之後的資料是否規範，如果不規範，就給出提示樣本如下： 要修改的列關聯的Column 是Scoreprocedure ADOQuery1_BeforePost ( DataSet :

delphi控制POS印表機RPrinter為TextFile類型； SContent為TStringList類型。// 建立列印串連並列印資料 Assignfile(RPrinter,'lpt1'); // 設定印表機 Rewrite(RPrinter); // 準備寫檔案 Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40)); // 向後倒紙！

有時候許多報表很可能大同小異，只是有個別地方顯示的不同，如報表標題，一些控制項標題等等。這樣我們只需要設計一次報表，在許多地方調用同一份報表，這時候，我們可能需要在顯示一份報表前，稍微改變一下樣式或內容（適用於fastreport3.0）： procedure TForm2.printReportButtonClick(Sender: TObject);var  s:tfrxMemoView;//申明一個fastreport的memo控制項對象begin 

1.對查詢進行最佳化，應盡量避免全表掃描，首先應考慮在 where 及 order by 涉及的列上建立索引。2.應盡量避免在 where 子句中對欄位進行 null 值判斷，否則將導致引擎放棄使用索引而進行全表掃描，如：select id from t where num is null可以在num上設定預設值0，確保表中num列沒有null值，然後這樣查詢：select id from t where num=03.應盡量避免在 where

 今天終於把糾纏了幾天的問題改完了，說到底只是一個很小的問題，就是ADOQuery的一個小屬性。         把控制項DBGridEh的一列的checkbox設為true，將其綁定DataSourceA和DOQuery。用Button添加了一個事件，用來取消對checkbox的操作：ADOQuery.CancelBatch()；可是只能取消最後一步的操作。檢查了很長時間才發現在DBGridEh的DataSource的Dataset

//增加   i := listview1.Items.Count;   with ListView1 do   begin     ListItem:=Items.Add;     ListItem.Caption:= IntToStr(i);     ListItem.SubItems.Add('第 '+IntToStr(i)+' 行');     ListItem.SubItems.Add('第三列內容');   end;//按標題刪除   for

瞭解事務 事務是作為單個邏輯工作單元執行的一系列操作。可以是一條SQL語句也可以是多條SQL語句。 事務具有四個特性  原子性：不可分隔、成則具成、敗則具敗。  一致性：事務在完成時，必須使所有的資料都保持一致狀態  隔離性：獨立的執行互不干擾。由並發事務所作的修改必須與任何其他並發事務所作的修改隔離。  持久性：務完成之後，它對於系統的影響是永久性的。該修改即使出現系統故障也將一直保持。 應用程式主要通過指定事務啟動和結束的時間來控制事務。 啟動事務：使用 API 函數和

一直在找最好的根據DBGridEH(或者DBGrid)的內容和標題列設定自適應列寬的方法，一直沒有太好的。今天從園地上發現了源碼：地址如下，非常好用。與大家分享：http://www.delphifans.com/SoftView/SoftView_2019.html 代碼哪下：//需要定義這個類，才能使用OptimizeSelectedColsWidth方法調整列寬type  TZYDBGridEH = class(TCustomDBGridEh)  public 

.瞭解鎖         鎖定是資料庫引擎用來同步多個使用者同時對同一個資料區塊的訪問的一種機制。         在事務擷取資料區塊目前狀態的依賴關係之前，它必須保護自己不受其他事務對同一資料進行修改的影響。鎖粒度和階層        RID 用於鎖定堆中的單個行的行標識符。        KEY 索引中用於保護可序列化事務中的鍵範圍的行鎖。        PAGE 資料庫中的 8 KB 頁，例如資料頁或索引頁。         EXTENT 一組連續的八頁，例如資料頁或索引頁。       

IIf返回由邏輯測試確定的兩個數值或字串值之一。文法數字IIf(Logical EXPression, Numeric Expression1, Numeric Expression2)如果 Logical Expression 取值為 TRUE，則此函數返回 Numeric Expression1，否則，返回 Numeric Expression2。字串IIf(Logical Expression, String Expression1, String Expression2)如果

首部 function QuotedStr(const S: string): string; $[SysUtils.pas功能 返回字串S在pascal中的表現形式說明 單引號中的一個單引號將轉成兩個參考 procedure System.Insert例子 Edit2.Text := QuotedStr(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━首部 function AnsiQuotedStr(const S: string; Quote: Char):

在MS SQL SEVER的預存程序中，最好加上事務哦，一般的書上都沒提到這點，以後要注意下：set xact_abort onbegin transcation/**中間執行的SQL代碼*/commit transcation if @@error>0       rollbackSET XACT_ABORT指定當 Transact-SQL 陳述式產生執行階段錯誤時，Microsoft? SQL Server?

 筆者在工作中遇到對區域網路中各工作站與伺服器之間進行Socket通訊的問題。現在將本人總結出來的TServerSocket和TClientSocket兩個組件的基本用法寫出來，希望與您分享。　　ClientSocket組件為用戶端組件。它是通訊的請求方，也就是說，它是主動地與伺服器端建立串連。　　ServerSocket組件為伺服器端組件。它是通訊的回應程式，也就是說，它的動作是監聽以及被動接受用戶端的串連請求，並對請求進行回複。　　ServerSocket組件可以同時接受一個或多個Clien

樹形圖(Treeview)是Win95下新增加的通用顯示組件(Common   Control，在COMCTL32.DLL中)之一，從Delphi2.0開始也增加了相應的控制項Treeview，用於取代原Outline控制項。由於樹形圖結構較複雜，使用起來常不知如何下手。這裡就使用中的一些問題作些介紹。            

2003-12-11 21:31:47    去掉DbGrid的自動添加功能procedure TForm1.DataSource1Change(Sender: TObject; Field: TField);  begin    if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;  end;     2003-12-11 21:34:39   

利用以下方法：在form1裡面編寫函數:function ExecuteForm1(var S : string) : word;var    Form1 : TForm1;begin    Form1 := TForm1.createform(application);    result := form1.showmodual;    try    if result = mrOK then    begin        S :=