W
why_119
Unregistered / Unconfirmed
GUEST, unregistred user!
begin
if radiobutton1.Checked then
begin
f_setup.ADOTable1.Active:=true;
f_setup.ADOTable1.TableName:='d_演示人员';
end;
end;
procedure Tf_setup.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked then
begin
f_setup.ADOTable1.Active:=true;
f_setup.ADOTable1.TableName:='d_直销人员';
end;
end;
if radiobutton1.Checked then
begin
f_setup.ADOTable1.Active:=true;
f_setup.ADOTable1.TableName:='d_演示人员';
end;
end;
procedure Tf_setup.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked then
begin
f_setup.ADOTable1.Active:=true;
f_setup.ADOTable1.TableName:='d_直销人员';
end;
end;