線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2144
推到 Plurk!
推到 Facebook!

查詢出來的文字顯示亂碼。

 
wangwb_1027
一般會員


發表:6
回覆:13
積分:3
註冊:2006-07-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-08-24 10:08:38 IP:61.66.xxx.xxx 未訂閱
哪位大大幫幫小了弟,小在用DELPHI寫了一個從資料庫中查詢數據出來的程式,但是查詢出來的中文字碼顯示是亂碼。我的系統是繁體系統。不知道是怎麼會事我用了TNTWARE元件出錯了。幫幫小弟看看有什麼辦法能解決這個問題.有沒有比較簡單的轉碼方式謝謝。
錯誤如下:
[Fatal Error] PLAN.pas(8): File not found: 'TntDBGrids.dcu'
代碼如下:
unit PLAN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, comobj, StdCtrls, Buttons, Grids, ComCtrls, Menus,
DBGrids, TntDBGrids;
type
...........
private
{ Private declarations }
public
procedure TForm1.LableCaption(Sender: TComponent);
var Count: Integer;
begin
for Count:=0 to Sender.ComponentCount-1 do
begin
if (Sender.Components[Count] is TLABEL) then TLABEL(Sender.Components
[Count]).Caption :=GBtoBIG5(TLABEL(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TBITBTN) then TBITBTN(Sender.Components[Count]).Caption :=GBtoBIG5(TBITBTN(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TTabSheet) then TTabSheet(Sender.Components[Count]).Caption:=GBtoBIG5(TTabSheet(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TGroupBox) then TGroupBox(Sender.Components[Count]).Caption:=GBtoBIG5(TGroupBox(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TQuery) then FieldDisplay(TQuery(Sender.Components[Count]));
end;
end;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var sql1:string;
begin
query1.SQL.Clear;
query1.SQL.Add('select op_no,descr from poordd where op_no="po950300096"');
query1.Prepare;
query1.Open;
end;
g9221712
高階會員


發表:144
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-09-08 07:46:05 IP:220.134.xxx.xxx 未訂閱

您好:

'TntDBGrids.dcu'這個檔案找不到,您要先加入這個路徑D:\VCL\Unicode\TntUnicodeControls\Source

Delphi 內部要設定
選單\Tools\Environment Options\Livrary 下目錄設定
Library Path

看能不能解決您的問題!

------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
系統時間:2017-10-23 5:00:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!