其他

 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 

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 

uses DateUtils;function StartOfTheYear(const AValue: TDateTime): TDateTime; function EndOfTheYear(const AValue: TDateTime): TDateTime; function StartOfAYear(const AYear: Word): TDateTime; function EndOfAYear(const

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

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

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

一、列印dbgrid資料：//==============================================================================//列印DBGrid中的所有資料********************************************************//==============================================================================proce

Repeater匯出為excel格式 資料繫結到Repeater1 ，下面是將Repeater1的內容匯出的範例程式碼           

MSDN datalist 介紹，多多注意一下項的布局，挺有用！ 控制項布局的模板在 DataList 控制項中，使用模板定義資訊的布局。DataList 控制項支援下列模板：模板說明ItemTemplate為資料來源中的每行呈現一次的 HTML 元素和控制項。AlternatingItemTemplate與 ItemTemplate 元素類似，但對 DataList 控制項中的行每隔一行呈現一次。如果使用此模板，通常為其建立不同的外觀，如與 ItemTemplate

一、下面的代碼實現，每行顯示三列前台代碼：<table><tr><asp:repeater id="Repeater1"

DataList中的按鈕觸發事件的方法的實現 1、要在CommandName中設定名字如：      <asp:Button id="Button1" runat="server" Text="回複" CommandName="revert"></asp:Button>2.   在DataList —>屬性—>事件標記—>雙擊“ItemCommand”（也可以自己定義名稱）3.  

DataList嵌套，分頁，點擊父DataList標題在子DataList顯示相關的內容，點擊子DataList標題顯示主要內容. 這裡例子結合了DataList的分頁和嵌套，還有點擊顯示相對內容的關聯。HTML代碼：<%@ Page language="c#" Codebehind="DataListNews.aspx.cs" AutoEventWireup="false" Inherits="DataListNesting.DataListNews" %>

首先，我們使用一種簡單的方式，即通過控制項的方式來定義預存程序和資料來源。建立一個單元，命名為：DataMConn，在加入一個ADO單元下的ADOStoredProc，這裡命名為ADOSPTempAbove ,再加入Data Access單元下的一個DataSource，這裡命名為DataSourceAbove，設定DataSourceAbove的DataSet屬性為

/* */ASCII(charactor_expression) --返回字串最左邊的字元的ascii值 select ascii('bcd')CHAR(integer_expression) --將 int ASCII 代碼轉換為字元 select char(97)   NCHAR(integer_expression) --根據unicode標準所進行的定義，用給定的整數代碼返回                          --  unicode字元 select nchar(3120

 碰到這樣一個業務需求,例如表A ,B .表A有identity列,表B 也有identity列.     use tempdb      create table TM    (M_id int  identity(1,1) primary key     M_name varchar(100)  not null     )     insert into TM   select 'aa'  union all  select 'bb'      create table TN    (N_

1.用一條SQL語句 查詢出每門課都大於80分的學生姓名　name　 kecheng　 fenshu 張三　　 語文　　　 81張三　　 數學　　　 75李四　　 語文　　　 76李四　　 數學　　　 90王五　　 語文　　　 81王五　　 數學　　　 100王五　　 英語　　　 90A: select distinct name from table　where　name not in (select distinct name from table where fenshu<=80)2

控制項版本是:----------FastReport 3.23.12 Enterpise for d2006 (DeXter)設定如下:----------function TJzpzEdit1.MoneyCn(mmje: Double): string;const  s1: string = '零壹貳三肆伍陸柒捌玖';  s2: string = '分角元拾佰仟萬拾佰仟億拾佰仟萬';  function StrTran(const S, s1, s2: string): string; 

利用以下方法：在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 :=