Midas的问题

Alpha_Gu 2003-05-05 08:33:21
Midas三层开发,服务端有ADOTable,客户端要做一个登录,就是用户名和密码和数据库中的表中的记录匹配。

是用ClientDataSet的DataResquest和服务端的OnDataRequst吗?

哪位高手可以给个例子?
...全文
91 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
888888888888 2003-05-18
  • 打赏
  • 举报
回复
关注
codecb 2003-05-17
  • 打赏
  • 举报
回复

记得给分

呵呵

codecb 2003-05-17
  • 打赏
  • 举报
回复
基本上你得问题我是这么解决的 Delphi源代码
其实更BCB的一样

procedure TForm2.FormShow(Sender: TObject);
var
i: integer;
begin
Application.HintColor:=clwhite;
User_ClientDataSet.Active:=true;
User_ClientDataSet.First;
for i:=0 to User_ClientDataSet.RecordCount-1 do
begin
ComboBox.Items.Add(User_ClientDataSet.FieldValues['User']);
User_ClientDataSet.Next;
end;
end;
//验证口令
procedure TForm2.suiButton2Click(Sender: TObject);
begin
ComboBox.Text:='';
PasswordEdit.Text:='';
end;

procedure TForm2.suiButton1Click(Sender: TObject);
var
userid,pw: string;
i: integer;
begin
userid:=ComboBox.Text;
pw:=PasswordEdit.Text;
if userid='' then
begin
ShowMessage('请先选择用户ID');
exit;
end;
if pw='' then
begin
ShowMessage('请输入确认口令!');
exit;
end;
User_ClientDataSet.First;
for i:=0 to User_ClientDataSet.RecordCount-1 do
begin
if userid=User_ClientDataSet.FieldValues['user'] then
begin
if pw=User_ClientDataSet.FieldValues['password'] then
begin
Authority:=User_ClientDataSet.FieldValues['Authority'];
op:=User_ClientDataSet.FieldValues['user'];
Form2.Hide;
User_ClientDataSet.First;
Form1.Show;
end
else
begin
ShowMessage('用户ID口令错误!');
end;
end;
User_ClientDataSet.Next;
end;
end;
//调用错误处理单元
procedure TForm2.User_ClientDataSetReconcileError(
DataSet: TCustomClientDataSet; E: EReconcileError;
UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
Action:=HandleReconcileError(DataSet,UpdateKind,E);
end;

procedure TForm2.PasswordEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=vk_return then
begin
suiButton1Click(Sender);
end;
end;

end.
yahee 2003-05-17
  • 打赏
  • 举报
回复
使用CommandText属性。看看帮助啊,上面都有
Alpha_Gu 2003-05-06
  • 打赏
  • 举报
回复
Midas啊,客户端只有一个ClientDataSet,SQL语句写在哪里啊?

还是没有回答问题的关键。
oldcold 2003-05-05
  • 打赏
  • 举报
回复
select *from Program(表) where Pr_male = 11111(过滤条件)
*号通知select语句取出表中所有的字段到我们的结果集中
from 部分告诉程序从哪个表中取出数据
where 子句告诉程序将什么过滤条件应用到数据上
Alpha_Gu 2003-05-05
  • 打赏
  • 举报
回复
就是说,在客户端如果控制服务器的TTable和TQuery控件。
比如,我在客房端有一个SQL查询,要怎么做?
或者,要取得某一个表的某个指定字段的一个值,要怎么做!

604

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder VCL组件使用和开发
社区管理员
  • VCL组件使用和开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧