- Aug 11 Mon 2014 21:25
-
[個人作品][Android] 移倉作業
- May 27 Mon 2013 08:23
-
[SQL] SQL Server 2008 R2 10054，ErrorMessage:「TCP 提供者: 遠端主機已強制關閉一個現存的連線。」
- Jun 08 Fri 2012 10:59
-
[Delphi] Dbgrid 加 checkbox
TDBGrid
TMyBookmarkList = Class(DBGrids.TBookmarkList)
Public
procedure DoLinkActive(Value: Boolean);
end;
- May 31 Thu 2012 16:32
-
[Delphi XE] TSQLConnection 連接 SQL Server 2000
錯誤訊息 DBX Error: Driver could not be properly initialized. Client library may be missing, not istalled properly, or of the wrong version
解決方法:
安裝 Microsoft® SQL Server® 2008 R2 Native Client (x86) (x64)
解決方法:
安裝 Microsoft® SQL Server® 2008 R2 Native Client (x86) (x64)
- Apr 30 Mon 2012 15:36
-
[delphi] SMDBGrid 判斷 eoShowFooter
- Apr 29 Sun 2012 00:57
-
[delphi] 動態建立ClientDataSet
// 取得 TClientDataSet
function Getcds(TQ : TSQLQuery):TClientDataSet ;
var
pdPrt : TDataSetProvider;
cdsPrt : TClientDataSet;
begin
pdPrt := TDataSetProvider.Create(nil);
cdsPrt := TClientDataSet.Create(nil);
pdPrt.options:=[poAutoRefresh,poPropogateChanges,poAllowCommandText];
pdPrt.DataSet := TQ;
cdsPrt.ProviderName := pdPrt.Name ;
cdsPrt.SetProvider(pdprt);
Result := cdsPrt;
end;
function Getcds(TQ : TSQLQuery):TClientDataSet ;
var
pdPrt : TDataSetProvider;
cdsPrt : TClientDataSet;
begin
pdPrt := TDataSetProvider.Create(nil);
cdsPrt := TClientDataSet.Create(nil);
pdPrt.options:=[poAutoRefresh,poPropogateChanges,poAllowCommandText];
pdPrt.DataSet := TQ;
cdsPrt.ProviderName := pdPrt.Name ;
cdsPrt.SetProvider(pdprt);
Result := cdsPrt;
end;
- Apr 29 Sun 2012 00:56
-
[delphi] 無條件進位
// 無條件進位
function trunc2(num: real; dcml: integer) : real;
var
LFactor: Double;
begin
LFactor := IntPower(10, dcml);
Result := Round((num * LFactor)+ 0.49999) / LFactor ;
end;
function trunc2(num: real; dcml: integer) : real;
var
LFactor: Double;
begin
LFactor := IntPower(10, dcml);
Result := Round((num * LFactor)+ 0.49999) / LFactor ;
end;
- Apr 29 Sun 2012 00:54
-
[delphi] 無條件捨去
// 無條件捨去
function trunc3(num: real; dcml: integer) : real;
var
LFactor: Double;
begin
LFactor := IntPower(10, dcml);
Result := Round((num * LFactor)- 0.49999) / LFactor ;
end;
function trunc3(num: real; dcml: integer) : real;
var
LFactor: Double;
begin
LFactor := IntPower(10, dcml);
Result := Round((num * LFactor)- 0.49999) / LFactor ;
end;
- Apr 29 Sun 2012 00:50
-
[SQL] 錯誤訊息
DB2 SQLSTATE 訊息說明
本節列示 SQLSTATE 及其含義。SQLSTATE 是按類代碼進行分組的；對於子代碼，請參閱相應的表。
表 2. SQLSTATE 類代碼 類
代碼
含義 要獲得子代碼，
參閱...
00 完全成功完成 表 3
01 警告 表 4
02 無數據 表 5
07 動態 SQL 錯誤 表 6
08 連接異常 表 7
09 觸發操作異常 表 8
0A 功能部件不受支持 表 9
0D 目標類型規範無效 表 10
0F 無效標記 表 11
0K RESIGNAL 語句無效 表 12
0N SQL/XML 映射錯誤 表 13
20 找不到 CASE 語句的條件 表 15
21 基數違例 表 16
22 數據異常 表 17
23 約束違例 表 18
24 無效的游標狀態 表 19
25 無效的事務狀態 表 20
26 無效 SQL 語句標識 表 21
28 無效權限規範 表 23
2D 無效事務終止 表 24
2E 無效連接名稱 表 25
34 無效的游標名稱 表 26
36 游標靈敏度異常 表 27
38 外部函數異常 表 28
39 外部函數調用異常 表 29
3B SAVEPOINT 無效 表 30
40 事務回滾 表 31
42 語法錯誤或訪問規則違例 表 32
44 WITH CHECK OPTION 違例 表 33
46 Java DDL 表 34
51 無效應用程序狀態 表 35
53 無效操作數或不一致的規範 表 36
54 超出 SQL 限制，或超出產品限制 表 37
55 對象不處於先決條件狀態 表 38
56 其他 SQL 或產品錯誤 表 39
57 資源不可用或操作員干預 表 40
58 系統錯誤 表 41
5U 實用程序 表 42
本節列示 SQLSTATE 及其含義。SQLSTATE 是按類代碼進行分組的；對於子代碼，請參閱相應的表。
表 2. SQLSTATE 類代碼 類
代碼
含義 要獲得子代碼，
參閱...
00 完全成功完成 表 3
01 警告 表 4
02 無數據 表 5
07 動態 SQL 錯誤 表 6
08 連接異常 表 7
09 觸發操作異常 表 8
0A 功能部件不受支持 表 9
0D 目標類型規範無效 表 10
0F 無效標記 表 11
0K RESIGNAL 語句無效 表 12
0N SQL/XML 映射錯誤 表 13
20 找不到 CASE 語句的條件 表 15
21 基數違例 表 16
22 數據異常 表 17
23 約束違例 表 18
24 無效的游標狀態 表 19
25 無效的事務狀態 表 20
26 無效 SQL 語句標識 表 21
28 無效權限規範 表 23
2D 無效事務終止 表 24
2E 無效連接名稱 表 25
34 無效的游標名稱 表 26
36 游標靈敏度異常 表 27
38 外部函數異常 表 28
39 外部函數調用異常 表 29
3B SAVEPOINT 無效 表 30
40 事務回滾 表 31
42 語法錯誤或訪問規則違例 表 32
44 WITH CHECK OPTION 違例 表 33
46 Java DDL 表 34
51 無效應用程序狀態 表 35
53 無效操作數或不一致的規範 表 36
54 超出 SQL 限制，或超出產品限制 表 37
55 對象不處於先決條件狀態 表 38
56 其他 SQL 或產品錯誤 表 39
57 資源不可用或操作員干預 表 40
58 系統錯誤 表 41
5U 實用程序 表 42
- Apr 29 Sun 2012 00:37
-
[delphi] Grid Footer 合計
procedure Tform.gdPrnDrawFooterCell(Sender: TObject; Canvas: TCanvas;
FooterCellRect: TRect; Field: TField; var FooterText: String;
var DefaultDrawing: Boolean);
var
AddUp:TAggregate;
fSum : Double;
SumTotal : Double;
PrevRecord : TBookmark;
TC : TClientDataSet;
begin
if (Assigned(Field) and (
(Field is TFMTBCDField) or
(Field is TSmallintField) or
(Field is TIntegerField) or
(Field is TBCDField))) then begin
TC :=TClientDataSet((Sender as TSMDBGrid).DataSource.DataSet);
TC.AggregatesActive := True;
Addup:=TAggregate.Create(TC.Aggregates,TC);
Addup.Expression := 'Sum(['+Field.FieldName+'])';
Addup.active:=True;
if Addup.Value = null then begin
fSum := 0;
end else begin
fSum := Addup.Value;
end;
FooterText := FormatFloat('#,0.00',fSum);
Addup.Free;
end;
end;
FooterCellRect: TRect; Field: TField; var FooterText: String;
var DefaultDrawing: Boolean);
var
AddUp:TAggregate;
fSum : Double;
SumTotal : Double;
PrevRecord : TBookmark;
TC : TClientDataSet;
begin
if (Assigned(Field) and (
(Field is TFMTBCDField) or
(Field is TSmallintField) or
(Field is TIntegerField) or
(Field is TBCDField))) then begin
TC :=TClientDataSet((Sender as TSMDBGrid).DataSource.DataSet);
TC.AggregatesActive := True;
Addup:=TAggregate.Create(TC.Aggregates,TC);
Addup.Expression := 'Sum(['+Field.FieldName+'])';
Addup.active:=True;
if Addup.Value = null then begin
fSum := 0;
end else begin
fSum := Addup.Value;
end;
FooterText := FormatFloat('#,0.00',fSum);
Addup.Free;
end;
end;
- Apr 29 Sun 2012 00:29
-
[delphi] Must apply updates before refreshing data
Must apply updates before refreshing data
照成原因
TClientDataset .State <> dsBrowse
TClientDataset .ChangeCount > 0
照成原因
TClientDataset .State <> dsBrowse
TClientDataset .ChangeCount > 0
- Apr 29 Sun 2012 00:21
-
[delphi] delphi7 不能運行提示'BORdbk70.dll'
delphi7 不能運行提示'BORdbk70.dll' 轉載
問題如下
打開 delphi7 編譯運行程序 總會出現
Access violation at address 05F9D4ED inmodule 'BORdbk70.dll',Rend of adress 00000000.
的錯誤，delphi 也直接死掉
自己以為是系統出問題了，先重裝DELPHI 7 ，不起作用，再裝D7，還是不對。上百度查了老半天，才知道是SP2的問題
Windows XP SP2下使用Delphi7及C++Builder 調試程序時會出現
"access violation at address 05f3304e in module 'BORdbk70.dll', Read of address 00000010."
"access violation at address 05f3304e in module 'BORdbk60.dll', Read of address 00000010."
問題如下
打開 delphi7 編譯運行程序 總會出現
Access violation at address 05F9D4ED inmodule 'BORdbk70.dll',Rend of adress 00000000.
的錯誤，delphi 也直接死掉
自己以為是系統出問題了，先重裝DELPHI 7 ，不起作用，再裝D7，還是不對。上百度查了老半天，才知道是SP2的問題
Windows XP SP2下使用Delphi7及C++Builder 調試程序時會出現
"access violation at address 05f3304e in module 'BORdbk70.dll', Read of address 00000010."
"access violation at address 05f3304e in module 'BORdbk60.dll', Read of address 00000010."
