深圳全飞鸿

标题: 引入mydac的方法 [打印本页]

---

作者: foxe5    时间: 2019-5-17 13:51
标题: 引入mydac的方法


引入mydac的方法

1.   SYS_SFC_001_INC in '..\..\SYS_SFC_001\SYS_SFC_001_INC.pas';
   
2. 
   
3. procedure TDataModule1.DataModuleCreate(Sender: TObject);
   
4. begin
   
5.   self.MyConnection1.Server:= SYS_SFC_001_INC.getHostIP;
   
6.   self.MyConnection1.Username:=SYS_SFC_001_INC.getUserName;
   
7.   self.MyConnection1.Password:=SYS_SFC_001_INC.getPasswrod;
   
8.   self.MyConnection1.Options.Charset:='gbk';
   
9. end;

复制代码

由于delphi7默认没有utf8的支持，所以连接一般用gbk

---

欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/)

Powered by Discuz! X3.2