运行一个组件出错,这是为什么?高手指点下我要怎么改?

Question

我用delphi和sql sever做了一个试卷生成系统,用的BDE连接的,按F9运行都没问题,出现登陆界面后能正常登陆,但点试卷管理中的定制试卷就出现错误提示,但关闭这个提示就能出现后面的界面,我第二次点定制试卷就不会报这个错误
project project1.exe raised exception class EDatabase Error with message
Table_shijuan:cannot perform this operation on a close dataset process stopped use step or run to continue.如果我直接运行project1.exe ,再点定制试卷,就会出这个提示
Table_shijuan cannot perform this operation on a close dataset这个是unit10也就是定制试卷窗口的代码,会提示第四行newshijuanhao:=DataModule4.Table_shijuan.FieldValues['jno']+1;
出错,高手帮我看看procedure Tdefinepaperform.FormShow(Sender: TObject);
begin
DataModule4.Table_shijuan.Last;
newshijuanhao:=DataModule4.Table_shijuan.FieldValues['jno']+1;
DataModule4.Table_shijuan.First;
end;procedure Tdefinepaperform.BitBtn1Click(Sender: TObject);
begin
     if addshijuan then
     begin
       if checknewshijuan then
       begin       DataModule4.Table_shijuan.Post;
       DataModule4.Table_shijuan.Close;
         DataModule4.Table_shijuan.Open;
       showmessage('新试卷添加成功!');
       
       addshijuan:=false;
       inc(newshijuanhao);
     //  DataModule4.Table_shijuan.UpdateRecord;
       DBNavigator1.CanFocus;
       BitBtn3.Enabled:=true;
      BitBtn4.Enabled:=true;
        end
    else
    exit;end;
end;procedure Tdefinepaperform.DBEdit6Change(Sender: TObject);
begin
  sum1:=0;
if   (DBEdit3.Text<>'')and(DBEdit6.Text<>'') then
begin
sum1:=sum1+strtoint(DBEdit3.Text)*strtoint(DBEdit6.Text);
DBEdit9.Text:=inttostr(sum1);
end;
end;procedure Tdefinepaperform.DBEdit7Change(Sender: TObject);
begin
  sum2:=0;
if   (DBEdit4.Text<>'')and(DBEdit7.Text<>'') then
begin
sum2:=sum2+strtoint(DBEdit4.Text)*strtoint(DBEdit7.Text);
DBEdit10.Text:=inttostr(sum2);
end;
end;procedure Tdefinepaperform.DBEdit8Change(Sender: TObject);
begin
  sum3:=0;
if   (DBEdit5.Text<>'')and(DBEdit8.Text<>'') then
begin
sum3:=sum3+strtoint(DBEdit5.Text)*strtoint(DBEdit8.Text);
DBEdit11.Text:=inttostr(sum3);
end;
end;procedure Tdefinepaperform.DBEdit13Change(Sender: TObject);
begin
  sum4:=0;
if   (DBEdit12.Text<>'')and(DBEdit13.Text<>'') then
begin
sum4:=sum4+strtoint(DBEdit12.Text)*strtoint(DBEdit13.Text);
DBEdit14.Text:=inttostr(sum4);
end;
end;procedure Tdefinepaperform.DBEdit16Change(Sender: TObject);
begin
  sum5:=0;
if   (DBEdit15.Text<>'')and(DBEdit16.Text<>'') then
begin
sum5:=sum5+strtoint(DBEdit15.Text)*strtoint(DBEdit16.Text);
DBEdit17.Text:=inttostr(sum5);
end;
end;procedure Tdefinepaperform.DBEdit17Change(Sender: TObject);
begin
allsum:=0;
if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
   begin
   allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
     DBEdit2.Text:=inttostr(allsum);
   end;
end;procedure Tdefinepaperform.DBEdit14Change(Sender: TObject);
begin
allsum:=0;
if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
   begin
   allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
     DBEdit2.Text:=inttostr(allsum);
   end;
end;procedure Tdefinepaperform.DBEdit11Change(Sender: TObject);
begin
allsum:=0;
if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
   begin
   allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
     DBEdit2.Text:=inttostr(allsum);
   end;
end;procedure Tdefinepaperform.DBEdit10Change(Sender: TObject);
begin
allsum:=0;
if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
   begin
   allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
     DBEdit2.Text:=inttostr(allsum);
   end;
end;procedure Tdefinepaperform.DBEdit9Change(Sender: TObject);
begin
allsum:=0;
if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
   begin
   allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
     DBEdit2.Text:=inttostr(allsum);
   end;
end;procedure Tdefinepaperform.DBEdit3Change(Sender: TObject);
begin
  sum1:=0;
if   (DBEdit3.Text<>'')and(DBEdit6.Text<>'') then
begin
sum1:=sum1+strtoint(DBEdit3.Text)*strtoint(DBEdit6.Text);
DBEdit9.Text:=inttostr(sum1);
end;
end;procedure Tdefinepaperform.DBEdit4Change(Sender: TObject);
begin
  sum2:=0;
if   (DBEdit4.Text<>'')and(DBEdit7.Text<>'') then
begin
sum2:=sum2+strtoint(DBEdit4.Text)*strtoint(DBEdit7.Text);
DBEdit10.Text:=inttostr(sum2);
end;
end;procedure Tdefinepaperform.DBEdit5Change(Sender: TObject);
begin
  sum3:=0;
if   (DBEdit5.Text<>'')and(DBEdit8.Text<>'') then
begin
sum3:=sum3+strtoint(DBEdit5.Text)*strtoint(DBEdit8.Text);
DBEdit11.Text:=inttostr(sum3);
end;
end;procedure Tdefinepaperform.DBEdit12Change(Sender: TObject);
begin
  sum4:=0;
if   (DBEdit12.Text<>'')and(DBEdit13.Text<>'') then
begin
sum4:=sum4+strtoint(DBEdit12.Text)*strtoint(DBEdit13.Text);
DBEdit14.Text:=inttostr(sum4);
end;
end;procedure Tdefinepaperform.DBEdit15Change(Sender: TObject);
begin
  sum5:=0;
if   (DBEdit15.Text<>'')and(DBEdit16.Text<>'') then
begin
sum5:=sum5+strtoint(DBEdit15.Text)*strtoint(DBEdit16.Text);
DBEdit17.Text:=inttostr(sum5);
end;
end;procedure Tdefinepaperform.BitBtn3Click(Sender: TObject);
var
i,j:integer;
begin
  paperautoform.ProgressBar1.Position:=0;
for i:=1 to 800 do
begin
paperautoform.thao[i]:=0;
      paperautoform.havetake[i]:=0;
      end;
      for j:=1 to 5 do
      begin
      paperautoform.diff[i]:=0;;
      end;
      paperautoform.Memo1.Text:='';
paperautoform.Show;
end;procedure Tdefinepaperform.BitBtn2Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbCancel);
BitBtn3.Enabled:=true;
 BitBtn4.Enabled:=true;
end;

Answer 1

好像是DataModule4.Table_shijuan没打开

Answer 2

unit Unit4;interfaceuses
  SysUtils, Classes, DB, DBTables;type
  TDataModule4 = class(TDataModule)
    Table_u: TTable;
    DataSource_u: TDataSource;
    DataSource_choose: TDataSource;
    DataSource_filltext: TDataSource;
    DataSource_judge: TDataSource;
    DataSource_readpro: TDataSource;
    Table_choose: TTable;
    Table_filltext: TTable;
    Table_judge: TTable;
    Table_readpro: TTable;
    DataSource_procedure: TDataSource;
    Table_procedure: TTable;
    Table_uID: TStringField;
    Table_umi: TStringField;
    Table_uqx: TStringField;
    Table_choosetno: TIntegerField;
    Table_choosetigan: TMemoField;
    Table_choosexa: TStringField;
    Table_choosexb: TStringField;
    Table_choosexc: TStringField;
    Table_choosexd: TStringField;
    Table_chooseanswer: TStringField;
    Table_choosescore: TSmallintField;
    Table_choosedifficulty: TStringField;
    Table_choosenote: TStringField;
    DataSource_shijuan: TDataSource;
    Table_shijuan: TTable;
    Table_papermanager: TTable;
    DataSource_papermanager: TDataSource;
    Database1: TDatabase;
    procedure Table_chooseBeforeDelete(DataSet: TDataSet);
    procedure Table_chooseAfterDelete(DataSet: TDataSet);
    procedure Table_filltextBeforeDelete(DataSet: TDataSet);
    procedure Table_judgeBeforeDelete(DataSet: TDataSet);
    procedure Table_readproBeforeDelete(DataSet: TDataSet);
    procedure Table_procedureBeforeDelete(DataSet: TDataSet);
    procedure Table_filltextAfterDelete(DataSet: TDataSet);
    procedure Table_judgeAfterDelete(DataSet: TDataSet);
    procedure Table_readproAfterDelete(DataSet: TDataSet);
    procedure Table_procedureAfterDelete(DataSet: TDataSet);
    procedure Table_shijuanBeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DataModule4: TDataModule4;implementationuses Unit3, Unit6, Unit7, Unit8, Unit9, Unit11, Unit10;{$R *.dfm}procedure TDataModule4.Table_chooseBeforeDelete(DataSet: TDataSet);
begin
    mainform.updateno:=0;mainform.updateno:=chooseform.Query1.FieldValues['tno'] ;
//exit;
//DBNavigator1.BtnClick(nbCancel);
//showmessage('请选择一个章节点') ;//else
//  mainform.updateno:=table_choose['tno'];
end;procedure TDataModule4.Table_chooseAfterDelete(DataSet: TDataSet);
begin
DataModule4.Table_choose.Close;
DataModule4.Table_choose.Open;
DataModule4.Table_choose.Active:=false;
DataModule4.Table_choose.Active:=true;end;procedure TDataModule4.Table_filltextBeforeDelete(DataSet: TDataSet);
begin
mainform.updateno:=0;
mainform.updateno:=filltextform.Query1.FieldValues['tno'] ;
end;procedure TDataModule4.Table_judgeBeforeDelete(DataSet: TDataSet);
begin
mainform.updateno:=0;mainform.updateno:=judgeform.Query1.FieldValues['tno'] ;
end;procedure TDataModule4.Table_readproBeforeDelete(DataSet: TDataSet);
begin
mainform.updateno:=0;
mainform.updateno:=readproform.Query1.FieldValues['tno'] ;
end;procedure TDataModule4.Table_procedureBeforeDelete(DataSet: TDataSet);
begin
mainform.updateno:=0;
mainform.updateno:=procedureform.Query1.FieldValues['tno'] ;
end;procedure TDataModule4.Table_filltextAfterDelete(DataSet: TDataSet);
begin
DataModule4.Table_filltext.Close;
DataModule4.Table_filltext.Open;
DataModule4.Table_filltext.Active:=false;
DataModule4.Table_filltext.Active:=true;
end;procedure TDataModule4.Table_judgeAfterDelete(DataSet: TDataSet);
begin
DataModule4.Table_judge.Close;
DataModule4.Table_judge.Open;
DataModule4.Table_judge.Active:=false;
DataModule4.Table_judge.Active:=true;
end;procedure TDataModule4.Table_readproAfterDelete(DataSet: TDataSet);
begin
DataModule4.Table_readpro.Close;
DataModule4.Table_readpro.Open;
DataModule4.Table_readpro.Active:=false;
DataModule4.Table_readpro.Active:=true;
end;procedure TDataModule4.Table_procedureAfterDelete(DataSet: TDataSet);
begin
DataModule4.Table_procedure.Close;
DataModule4.Table_procedure.Open;
DataModule4.Table_procedure.Active:=false;
DataModule4.Table_procedure.Active:=true;
end;procedure TDataModule4.Table_shijuanBeforeDelete(DataSet: TDataSet);
begin
definepaperform.updatejno:=0;
definepaperform.updatejno:=table_shijuan['jno'];
end;end.

Answer 3

上面的是unit4的代码,麻烦高手看看

Answer 4

unit4是设置连接数据库的模块

Answer 5

DataModule4.Table_choose.Close;         // 第一套
DataModule4.Table_choose.Open;
DataModule4.Table_choose.Active:=false; // 第二套
DataModule4.Table_choose.Active:=true;
类似这种代码用一套就行了。另一套删除

Answer 6

我删除了,没什么用,还是原来的问题
============================================================
我的意思是说有些是多余的语句，你的问题还是那个DataSet没打开进行了操作引起的。你把源码贴上来也不起多大作用，你可以进行调试跟踪，看错误发生在那条语句。

Answer 7

newshijuanhao:=DataModule4.Table_shijuan.FieldValues['jno']+1;
就是这一行出了错
unit10中的,要怎么修改?

Answer 8

我估计应该是这句的上一句就出错了。表没有打开。你可在DataModule4.Table_shijuan.Last;前面加一句DataModule4.Table_shijuan.Active := True;试一试，如果错误依然在这一句，说明错误在字段名或者字段类型上或者字段值为空。