Midas的问题

[Alpha_Gu]

Midas三层开发，服务端有ADOTable，客户端要做一个登录，就是用户名和密码和数据库中的表中的记录匹配。

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

哪位高手可以给个例子？

[Alpha_Gu]

就是说，在客户端如果控制服务器的TTable和TQuery控件。
比如，我在客房端有一个SQL查询，要怎么做？
或者，要取得某一个表的某个指定字段的一个值，要怎么做！

• 打赏
• 举报

回复 赞

[oldcold]

select *from Program(表) where Pr_male = 11111(过滤条件)
*号通知select语句取出表中所有的字段到我们的结果集中
from 部分告诉程序从哪个表中取出数据
where 子句告诉程序将什么过滤条件应用到数据上

• 打赏
• 举报

回复 赞

[Alpha_Gu]

Midas啊，客户端只有一个ClientDataSet，SQL语句写在哪里啊？

还是没有回答问题的关键。

• 打赏
• 举报

回复 赞

[yahee]

使用CommandText属性。看看帮助啊，上面都有

• 打赏
• 举报

回复 赞

[codecb]

基本上你得问题我是这么解决的 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.

• 打赏
• 举报

回复 赞

[codecb]

记得给分

呵呵

• 打赏
• 举报

回复 赞

[888888888888]

关注

• 打赏
• 举报

回复 赞