求sql语句(50分)

  • 主题发起人 主题发起人 liuhaoy
  • 开始时间 开始时间
在C/S的程序中是如何实现的.我只做过本地机的程序.没做过C/S的程序.
我想在C/S中是如何实现的啊.在C/S中客户端不是按装在不同的机器上吗?
那这是如何实现的.(我用的是ado控件).
谢大家帮帮忙.
 
是我没说清楚吗?
怎么没人愿意回答我的问题.
我很想知道答案.谢谢.
 
对不起我把问题弄错了.
C/S程序和我的问题还不一样.
C/S程序知道服务器的名字或IP和用户名,密码.
但是我的什么都不知道.
 
帮帮忙啊.
 
你不用知道啊，你启动程序的时候，检测有没有ini，如果没有就弹出个输入窗口，叫他们自己输入ip 用户名 密码，不就可以？

如果觉得不安全，就用个带密码的paradox表去存这些东西。
 
jenhon的方法很好。其实这个问题可以说是一个系统的有关参数设置的问题。说了这么多了你总该有点收获了吧。
 
这是我用的配置数据源的代码，希望对楼主有用，其中TMyInifile 是我自己参照以前帖子写的加密Ini文件，你换成TInifile应该也能用，就是不能加密了，使用这段代码，必须uses AdoConEd，
procedure TMainForm.N12Click(Sender: TObject);
var
myinifile:TMyIniFile;
link1:string;
begin
myinifile:=TMyIniFile.Create(ExtractFilePath(Application.Name)+'connect.ini');
try
DM1.Con1.Connected:=False;
DM1.Con1.ConnectionString:='';
if editconnectionstring(dm1.Con1) then //更改连接字符串
link1:=dm1.con1.ConnectionString;

myinifile:=TMyIniFile.Create(extractfilepath(application.ExeName)+'connect.ini');
myinifile.WriteString('Host','link',link1);
// myinifile.Free;
dm1.Con1.Connected:=true;
except
showmessage('数据库连接设置失败！');
end;
myinifile.Destroy;
end;
 
有没有不用ini文件的方法
 
来自：liuhaoy, 时间：2006-6-21 6:43:46, ID：3476727
有没有不用ini文件的方法

不是已经跟你说了吗？“干脆用一个paradox表来存就比较安全啊”，都一样，就是找个地方放客户方的设置情况，ini、txt、注册表什么都行。
 
不是这个意思.
还有没有另一种方法来实现.因为他们不想用INI文件来实现.
 
小弟新手,还请大帮帮我.
 
为什么不想用这个方法？简单,实惠,效果好
不知道怎么说了
 
没办法老板说的
 
不知道用这个方法行不行,请大家看看.如果行的话,但我运行还有错误,要怎么改啊.谢谢大家.
adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yj4;Data Source='''+trim(edit1.Text)+'''';
//用这句提示这样的错误([DBNETLIB][Connectionopen(connect()).]sql server 不存在或拒绝访问)
adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='''+trim(edit3.Text)+''';Persist Security Info=True;User ID='''+trim(edit2.text)+''';Initial Catalog=wlxxserver;Data Source='''+trim(edit1.text)+'''';
adoconnection1.LoginPrompt:=false;
adoconnection1.Connected:=true;
adoquery1.Active:=true;
 
楼主，你把自己的信息输入adoconnection1.ConnectionString里面，看看能不能“测试连接”成功？！别的机子要访问服务器的数据库，要输入服务器的用户名和密码的（如果服务器设置了的话）。而且有时候data source，要输入服务器IP才行
 
这个问题解决了谢谢大家.
最后一个问
select name as 药品名称,hz_name as 患者姓名,ks_id as 科室代码,date as 日期,ys_id as 医师代码,sum(amount) as 数量 from zy_hjnew where date>='''+datetostr(datetimepicker1.date)+''' and date<='''+datetostr(datetimepicker1.date)+'''and name='''+edit1.text+''' group by name,hz_name,ks_id,ys_id,date order by ks_id,ys_id,hz_name
有这样两条记录:
a0120 李刚 0120 2006-1-23 03654 2
a0120 李刚 0120 2006-1-24 03654 1
用上面的查询语句为什么只能查出第一条.
 
楼主不厚道~~~你的分这么难拿的.
datetimepicker1.date,的问题吧?
这句date>='''+datetostr(datetimepicker1.date)+''' and date<='''+datetostr(datetimepicker1.date),满足条件只有DATA=时了,不是一个日期记录会有2个???
你的意思应该是2个日期间的记录?在用个datetimepicker2.date为下限
 
楼主不厚道啊，一共才这么些分，一个问题解决了就行了吧，有问题再开新贴吧
 
小弟没分了.
谢谢大家.的帮忙.散分.
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
Quick Report FAQ [ 1 ]
回复
0
查看
2K
import
I
I
Quick Report FAQ [ 2 ]
回复
0
查看
3K
import
I
I
Quick Report FAQ [ 4 ]
回复
0
查看
3K
import
I
后退
顶部