button事件中控制:
application.createform(Tform2,form2);
form2.combobox1.itemindex ;= 2;//itemindex 对应的是你想要显示的东西
...处理当combobox显示为“数学”的事件
form2.showmodal;

解决方案 »

  1.   

    Button1.Click事件中写
    table1.Active:=false;
    table1.tablenema:='yw';
    table1.active:=true;
    form2.show;
    button2.click事件中写
    table1.Active:=false;
    table1.tablenema:='sh';
    table1.active:=true;
    form2.show;
      

  2.   

    uses
      Form2;procedure TForm1.Button1Click(Sender: TObject);
    begin
      Form2.Show;
      Form2.ComboBox1.ItemIndex := 0;
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
      Form2.Show;
      Form2.ComboBox1.ItemIndex := 1;
    end;
      

  3.   

    uses
      Unit2; //Form2
      

  4.   

    根据大家的意见,自己得以解决,应是在button的click事件中写代码如下
            studentcjform2.table1.close;
            studentcjform2.table1.databasename:='d:\schoolinfo\studentcj\data\';
            studentcjform2.table1.tablename:='yw';
            studentcjform2.ComboBox1.ItemIndex := 0;
            studentcjform2.label16.caption:='语文';
            studentcjform2.caption:='语文成绩管理系统';
            studentcjform2.table1.open;
      其它各科的设计类似,感谢各位