unit4.pas

毕业设计(带论文)—试卷生成系统,做的不错

unit Unit4;

interface

uses
  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;
    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;

implementation

uses 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.