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;