TOdbcConnection连接MS Access 数据库中文记录显示解决方案

samsam598

众里寻她千百度，原来官方坛子里早就有人给出了，只怪自己没早发现。

一。新建一UnitGetSetText.pas文件，当然你也可以你女朋友的名字命名：

2. unit UnitGetSetText;
4. {$mode objfpc}{$H+}
6. interface
8. uses
9.   Classes, SysUtils, Forms, LConvEncoding, db;
11. type
13.   { TGetSetTextClass }
15.   TGetSetTextClass = class
16.   private
17.     procedure GetText(Sender: TField; var aText: string;
18.            DisplayText: Boolean);
19.     procedure SetText(Sender: TField; const aText: string);
20.   public
21.     procedure AssignGetTextToQueries(F: TCustomForm);
22.   end;
24. var
25.   GetSetTextClass: TGetSetTextClass;
27. implementation
29. { TGetSetTextClass }
31. procedure TGetSetTextClass.GetText(Sender: TField; var aText: string;
32.   DisplayText: Boolean);
33. begin
34.   aText := CP936ToUTF8(Sender.AsString);
35. end;
37. procedure TGetSetTextClass.SetText(Sender: TField; const aText: string);
38. begin
39.   Sender.AsString := UTF8ToCP936(aText);
40. end;
42. procedure TGetSetTextClass.AssignGetTextToQueries(F: TCustomForm);
43. var
44.   I, J: Integer;
45.   Q: TDataSet; // doesn't matter if it's TQuery or TTable or TZQuery...
46.   SF: TStringField;
47. begin
48.   for I := 0 to F.ComponentCount - 1 do
49.     if F.Components[I] is TDataSet then begin
50.       Q := TDataSet(F.Components[I]);
51.       for J := 0 to Q.FieldCount - 1 do
52.         if Q.Fields[J] is TStringField then begin
53.           SF := TStringField(Q.Fields[J]);
54.           SF.OnGetText := @GetText;
55.           SF.OnSetText := @SetText;
56.         end;
58.     end;
60. end;
62. initialization
63.   GetSetTextClass := TGetSetTextClass.Create;
65. finalization
66.   GetSetTextClass.Free;
68. end.
69.                        

复制代码

二。在连接MS Access 数据库的窗体的onCreate事件下添加以下代码，前提是引用前面一的文件。

3. procedure tform1.formcreate(sender: tobject);
4. begin
5.      GetSetTextClass.AssignGetTextToQueries(Self);
7. end;                  

复制代码

这样应该就可以了，中文记录现在应该能正确显示了。
三。添加新记录要保存成功的话，还得在保存按钮事件添加与Update有关的代码。以下例子是在DGNavigator的单击事件下判断单击的是保存按钮时的代码：

2. procedure tform1.dbnavigator1click(sender: tobject; button: tdbnavbuttontype);
3. begin
5.       if button=nbPost   then
6.       begin
7.       sqlquery1.edit;
8.       sqlquery1.ApplyUpdates;
9.       sqltransaction1.CommitRetaining;
10.       end;
13. end;     

复制代码

                 
                  

senven7

真是可以，太谢谢了，看来还是要会E文才好啊，

猫工

优秀文章，支持！n神马都是浮云

hdj2013

WINCE 下可以用ＯＤＢＣ　连接吗？