help me

Question

在PAGECONTROL控件中有你写的OnChange事件 最好看一下你的代码

Answer 1

procedure TForm_manager.PageControl1Change(Sender: TObject);
begin
  if  PageControl1.ActivePage=TabSheet1 then
  begin
    DM.ADOTable_exp.Open;
    if DM.ADOTable_relation.Active then
      DM.ADOTable_relation.Active:=false;
    if DM.ADOTable_car.Active then
      DM.ADOTable_car.Active:=false;
    if DM.ADOTable_salary.Active then
      DM.ADOTable_salary.Active:=false;
    end;
  if  PageControl1.ActivePage=TabSheet2 then
  begin
      DM.ADOTable_car.Open;
      if DM.ADOTable_relation.Active then
        DM.ADOTable_relation.Active:=false;
      if DM.ADOTable_exp.Active then
        DM.ADOTable_exp.Active:=false;
      if DM.ADOTable_salary.Active then
        DM.ADOTable_salary.Active:=false;
    end;
  if  PageControl1.ActivePage=TabSheet3 then
  begin
    DM.ADOTable_relation.Open;
    if DM.ADOTable_exp.Active then
      DM.ADOTable_exp.Active:=false;
    if DM.ADOTable_car.Active then
      DM.ADOTable_car.Active:=false;
    if DM.ADOTable_salary.Active then
      DM.ADOTable_salary.Active:=false;
    end;
  if  PageControl1.ActivePage=TabSheet4 then
  begin
    DM.ADOTable_salary.Open;
    if DM.ADOTable_relation.Active then
      DM.ADOTable_relation.Active:=false;
    if DM.ADOTable_car.Active then
      DM.ADOTable_car.Active:=false;
    if DM.ADOTable_exp.Active then
      DM.ADOTable_exp.Active:=false;
    end;
end;