摘要: private void button1_Click(object sender, EventArgs e) { string strCon = "Data Source=SFIS.WORLD;Persist Security Info=True;User ID = sfis1;Password= sfcbasetable1;Unicode=True";... 阅读全文
posted @ 2016-08-06 22:56 海蓝7 阅读(442) 评论(0) 推荐(0) 编辑
摘要: unit Ufunction; interface uses Windows, Messages, Winsock, Registry, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrid... 阅读全文
posted @ 2016-08-06 15:51 海蓝7 阅读(154) 评论(0) 推荐(0) 编辑
摘要: implementation //实现下写好函数 procedure SendMail(Pwd, SendTO, Sendcc, Sendbcc, Subject, Content, FilePath: string); stdcall; external 'MailSender.dll'; function DecodePW(str: string): string; stdcall; ex... 阅读全文
posted @ 2016-08-06 15:37 海蓝7 阅读(280) 评论(0) 推荐(0) 编辑
摘要: sn:='MATERIAL_SN=:sn'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM SFISM4.R_MATERIAL_EXC_T where '+sn); Query1.ParamByName('sn').AsS 阅读全文
posted @ 2016-08-06 15:26 海蓝7 阅读(403) 评论(0) 推荐(0) 编辑