Midas的问题

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

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

哪位高手可以给个例子?
...全文
39 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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查询,要怎么做?
或者,要取得某一个表的某个指定字段的一个值,要怎么做!
  • 打赏
  • 举报
回复
相关推荐
发帖
VCL组件使用和开发

593

社区成员

C++ Builder VCL组件使用和开发
社区管理员
  • VCL组件使用和开发社区
加入社区
帖子事件
创建了帖子
2003-05-05 08:33
社区公告
暂无公告