我用的是datamodel链接数据库的。
我做的考勤管理系统有个登陆界面,用的也是那个datamodel
登陆到里面有个ADOtable。
我用的也是datamodel。可修改ADOTable的属性Active的为true的
时候,程序总提示“login failed for user 'sa'”
我的整个工程用的是同一个datamodel,链接应该没什么问题啊?
为什么可修改ADOTable的属性Active的为true的
时候,程序总提示“login failed for user 'sa'”
会有这个啊??
我做的考勤管理系统有个登陆界面,用的也是那个datamodel
登陆到里面有个ADOtable。
我用的也是datamodel。可修改ADOTable的属性Active的为true的
时候,程序总提示“login failed for user 'sa'”
我的整个工程用的是同一个datamodel,链接应该没什么问题啊?
为什么可修改ADOTable的属性Active的为true的
时候,程序总提示“login failed for user 'sa'”
会有这个啊??
我创建啦
这个插件叫SQLDirect,和它配的表格的插件叫
TMS Grid,你要是找不到的话我这里有,你加我QQ
280727904
改了用dataModel就有错了。
好像query的一些控件,ADOTable控件
的active属性设为true的时候都有错误。
我的datamodel代码如下:
========================
unit UDMo;interfaceuses
SysUtils, Classes, DB, ADODB,IniFiles, Messages,Dialogs, Forms;type
TUDateM = class(TDataModule)
con1: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
UDateM: TUDateM;implementationuses formmain;
{$R *.dfm}
procedure TUDateM.DataModuleCreate(Sender: TObject);
VAR
FilePath:string;
ReaderINI:TIniFile;
IP_Server:string;
Catalog:string;
have_ini: boolean;
begin
ShortDateFormat:='YYYY-MM-DD HH:mm:ss';
DateSeparator := '-'; FilePath:='./setting.ini';
if not FileExists(FilePath) then
begin
have_ini := False;
MessageDlg('找不到所需之設定檔!!' +#13+#13 +
'系統即將關閉, 請聯絡技術人員工!',mtwarning,[mbok],0);
application.Terminate;
end
else
begin
have_ini := True;
try
ReaderIni:=TIniFile.Create(FilePath);
IP_Server:=ReaderIni.ReadString('DB','IP','');
Catalog:=ReaderIni.ReadString('DB','Catalog','');
ShowMessage('IP:'+IP_Server);
ShowMessage('Catalog:'+Catalog);
finally
ReaderIni.Free;
end;
Con1.ConnectionString:='Provider=SQLOLEDB.1;Password=testAdmin;Persist Security Info=False;User ID=testAdmin;Initial Catalog=' + Catalog + ';Data Source='+ip_server;
CON1.Open;
end;
end;end.
=======================================
这个是那个datamodel的代码
还是不行。
我试了直接链接,不用datamodel都不行
可能是sqlserser那边不知道有什么问题。