Delphi6及SqlServer对于生僻字䶮的支持测试

1.二进制SqlServer正像现场反馈的这样，后台字段只能以nvarhcar类型来保存，并且插入和更新的时候需要在字段前加’N’,例：
update SF_BRXXK set hzxm=N’䶮’

可参见：https://blog.csdn.net/chinahuyong/article/details/78558695
2.Delphi6当前的控件也无法显示该生僻字，需要安装TNT系列的控件,才能支持生僻字的录入与显示。
tntunicodecontrol控件，百度云下载地址链接：https://pan.baidu.com/s/152GP1bVxijo4e2frqVljRg 密码：uwxn

3.以上两点可以实现数据库的存储和前台的录入与显示，但是如何将后台保存的生僻字读取到前台，以及将前台录入的生僻字保存在后台。经测试使用框架的ztsql，ClientDataSet，TDCOMconnection等都无法实现，只有使用TADOConnection才能完成。

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, TntStdCtrls, DB, ADODB, RzButton, ExtCtrls, RzPanel;typeTForm1 = class(TForm)btn2: TRzBitBtn;lbl3: TLabel;EditConnectionString: TEdit;ADOConn: TADOConnection;Query3: TADOQuery;btn4: TRzBitBtn;rzgrpbx1: TRzGroupBox;lbl2: TLabel;EditHzxm1: TEdit;btn1: TRzBitBtn;lbl4: TLabel;EditHzxmnew1: TEdit;rzgrpbx2: TRzGroupBox;lbl5: TLabel;lbl6: TLabel;EditHzxm2: TTntEdit;btn3: TRzBitBtn;EditHzxmNew2: TTntEdit;procedure btn2Click(Sender: TObject);procedure btn4Click(Sender: TObject);procedure btn1Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure btn3Click(Sender: TObject);private{ Private declarations }strsql,errmsg : widestring;g_connection :boolean;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btn2Click(Sender: TObject);
varstrConnection :string;
beginstrConnection := trim(EditConnectionString.Text);ADOConn.ConnectionString:=strConnection;tryADOConn.Connected := true;exceptOn E:Exception dobeginshowmessage('连接数据库失败：'+e.Message);exit;endend;if ADOConn.Connected thenbeginshowmessage('数据库连接成功!');g_connection := true;endelsebeginshowmessage('数据库连接失败!');g_connection := false;end;
end;procedure TForm1.btn4Click(Sender: TObject);
varrec:_Recordset;
beginif not g_connection thenbeginshowmessage('请先连接数据库');exit;end;//1 初始化表strsql := ' if not exists(select 1 from sysobjects where name = "nvarcharTest" and type = "U")'+ ' begin'+ '   create table nvarcharTest'+ '   ('+ '      hzxm nvarchar(64)'+ '   )'+ '   insert into nvarcharTest(hzxm) values("张三") '+ ' end ';strsql := stringreplace(strsql,'"','''',[rfReplaceAll]);tryADOConn.Execute(strsql);excepton E: Exception dobeginshowmessage('  -- 错误描述：'+E.Message);Exit;end;end;//2 用ADOQuery连接数据库可以更新生僻字到数据库strsql := 'select * from nvarcharTest ';tryrec:= ADOConn.Execute(strsql);except on E: Exception dobeginshowmessage('  -- 错误描述：'+E.Message);Exit;end;end;if (assigned(rec)) and (not rec.eof) thenbeginEditHzxm1.Text := widestring(rec.Fields[0].Value);EditHzxm2.Text := widestring(rec.Fields[0].Value);EditHzxmnew1.Text := '';EditHzxmNew2.Text := '';end;//3 用Query连接ADOQuery连接数据库可以读到生僻字
end;procedure TForm1.btn1Click(Sender: TObject);
beginif not g_connection thenbeginshowmessage('请先连接数据库');exit;end;strsql := widestring(' update nvarcharTest set hzxm = N'''+widestring(EditHzxmnew1.Text)+'''');tryADOConn.Execute(strsql);except on E: Exception dobeginshowmessage('  -- 错误描述：'+E.Message);Exit;end;end;btn4.Click;
end;procedure TForm1.FormCreate(Sender: TObject);
beging_connection := false;
end;procedure TForm1.btn3Click(Sender: TObject);
beginif not g_connection thenbeginshowmessage('请先连接数据库');exit;end;strsql := widestring(' update nvarcharTest set hzxm = N'''+widestring(EditHzxmnew2.Text)+'''');tryADOConn.Execute(strsql);except on E: Exception dobeginshowmessage('  -- 错误描述：'+E.Message);Exit;end;end;btn4.Click;
end;end.

Delphi6及SqlServer对于生僻字䶮的支持测试相关推荐

sqlserver中文生僻字乱码问题
sqlserver中文生僻字乱码问题解决场景:前端输入生僻字,e.g. 㙍.㮾,存入到数据库为乱码(㙍/-). 解决:修改会存生僻字的字段(一般地址字段)的数据类型为nvarchar,在插入或更新s ...
java mysql 生僻字_mysql/Java服务端对emoji或者生僻字的支持
最近开发的iOS项目因为需要用户文本的存储,自然就遇到了emoji等表情符号如何被mysql DB支持的问题.困扰了数日,在就要绝望放弃的边缘,终于完成了转换和迁移.在此特别分析和整理,方便更多人. ...
php获取中文拼音（含生僻字）支持首字母，全拼
此文为基础篇-优势在于速度更快,无依赖第三方库.如需更多功能可参考进阶篇进阶篇支持多音字,音标 php获取中文拼音(含生僻字,多音字,音标)支持首字母,全拼 /*** 中文转拼音 (utf8版,g ...
SQLServer特殊字符/生僻字与varchar
版权声明:本文为博主原创文章,未经博主允许不得转载. https://blog.csdn.net/chinahuyong/article/details/78558695 对于中文版的SQL SERV ...
php获取中文拼音（含生僻字,多音字,音标）支持首字母，全拼
前面文章有提到php获取中文拼音的解决方案,文章链接如下该方法的优势在于速度够快,不依赖于任何第三方库.但不支持多音字以及音标的获取,现在将借助第三方库解决这个问题上一篇地址 php获取中文拼音( ...
生僻字存不到mysql_数据库存储生僻字存在的问题
最近遇到两个比较棘手的事情,都是同一种状况:数据库储存不了带有生僻字的客户名. 一个是"?",另外一个是"?",只能是感叹汉语真是博大精深啊.SR向原厂的工程师 ...
pl/sql developer oracle生僻字显示问题
一.问题由来随着国标GB18030的推行,各行各业都在如火如荼的落实改造.自己在工作中也发现很多问题,查阅了很多资料都未解决自己的问题.经过慢慢摸索,对生僻字经常出现的问题进行总结,现 ...
java校验中文姓名合法性(需要支持生僻字与分隔符·)
背景: 国家民委等单位关于在政府管理和社会公共服务信息系统中统一姓名采集应用规范的通知对中文姓名合法性校验时,需要支持所有GB18030中涉及到的汉字(包括生僻字),并支持部分少数民族姓名中带有分隔 ...
支持生僻字且自动识别utf-8编码的php汉字转拼音类,PHP汉字转拼音类(支持生僻字且自动识别utf-8编码)...
这篇文章主要介绍了PHP汉字转拼音类(支持生僻字且自动识别utf-8编码),非常实用!需要的朋友可以参考下. 拼音类文件py_class.php源码如下: class py_class{ functi ...

Delphi6及SqlServer对于生僻字䶮的支持测试

Delphi6及SqlServer对于生僻字䶮的支持测试相关推荐

最新文章

热门文章