开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 教育系统应用 > 查看源码
Unit4.pas
资源名称：毕业设计(带论文)—试卷生成系统.rar　[点击查看]
上传用户：szyozho
上传日期：2013-04-13
资源大小：3688k
文件大小：4k
源码类别：

教育系统应用

开发平台：

Delphi

Unit4.pas：源码内容
  1. unit Unit4;
  3. interface
  5. uses
  6.   SysUtils, Classes, DB, DBTables;
  8. type
  9.   TDataModule4 = class(TDataModule)
  10.     Table_u: TTable;
  11.     DataSource_u: TDataSource;
  12.     DataSource_choose: TDataSource;
  13.     DataSource_filltext: TDataSource;
  14.     DataSource_judge: TDataSource;
  15.     DataSource_readpro: TDataSource;
  16.     Table_choose: TTable;
  17.     Table_filltext: TTable;
  18.     Table_judge: TTable;
  19.     Table_readpro: TTable;
  20.     DataSource_procedure: TDataSource;
  21.     Table_procedure: TTable;
  22.     Table_uID: TStringField;
  23.     Table_umi: TStringField;
  24.     Table_uqx: TStringField;
  25.     Table_choosetno: TIntegerField;
  26.     Table_choosetigan: TMemoField;
  27.     Table_choosexa: TStringField;
  28.     Table_choosexb: TStringField;
  29.     Table_choosexc: TStringField;
  30.     Table_choosexd: TStringField;
  31.     Table_chooseanswer: TStringField;
  32.     Table_choosescore: TSmallintField;
  33.     Table_choosedifficulty: TStringField;
  34.     Table_choosenote: TStringField;
  35.     DataSource_shijuan: TDataSource;
  36.     Table_shijuan: TTable;
  37.     Table_papermanager: TTable;
  38.     DataSource_papermanager: TDataSource;
  39.     procedure Table_chooseBeforeDelete(DataSet: TDataSet);
  40.     procedure Table_chooseAfterDelete(DataSet: TDataSet);
  41.     procedure Table_filltextBeforeDelete(DataSet: TDataSet);
  42.     procedure Table_judgeBeforeDelete(DataSet: TDataSet);
  43.     procedure Table_readproBeforeDelete(DataSet: TDataSet);
  44.     procedure Table_procedureBeforeDelete(DataSet: TDataSet);
  45.     procedure Table_filltextAfterDelete(DataSet: TDataSet);
  46.     procedure Table_judgeAfterDelete(DataSet: TDataSet);
  47.     procedure Table_readproAfterDelete(DataSet: TDataSet);
  48.     procedure Table_procedureAfterDelete(DataSet: TDataSet);
  49.     procedure Table_shijuanBeforeDelete(DataSet: TDataSet);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  56. var
  57.   DataModule4: TDataModule4;
  59. implementation
  61. uses Unit3, Unit6, Unit7, Unit8, Unit9, Unit11, Unit10;
  63. {$R *.dfm}
  65. procedure TDataModule4.Table_chooseBeforeDelete(DataSet: TDataSet);
  66. begin
  67.     mainform.updateno:=0;
  69. mainform.updateno:=chooseform.Query1.FieldValues['tno'] ;
  70. //exit;
  71. //DBNavigator1.BtnClick(nbCancel);
  72. //showmessage('请选择一个章节点') ;
  74. //else
  75. //  mainform.updateno:=table_choose['tno'];
  76. end;
  78. procedure TDataModule4.Table_chooseAfterDelete(DataSet: TDataSet);
  79. begin
  80. DataModule4.Table_choose.Close;
  81. DataModule4.Table_choose.Open;
  82. DataModule4.Table_choose.Active:=false;
  83. DataModule4.Table_choose.Active:=true;
  85. end;
  87. procedure TDataModule4.Table_filltextBeforeDelete(DataSet: TDataSet);
  88. begin
  89. mainform.updateno:=0;
  90. mainform.updateno:=filltextform.Query1.FieldValues['tno'] ;
  91. end;
  93. procedure TDataModule4.Table_judgeBeforeDelete(DataSet: TDataSet);
  94. begin
  95. mainform.updateno:=0;
  97. mainform.updateno:=judgeform.Query1.FieldValues['tno'] ;
  98. end;
  100. procedure TDataModule4.Table_readproBeforeDelete(DataSet: TDataSet);
  101. begin
  102. mainform.updateno:=0;
  103. mainform.updateno:=readproform.Query1.FieldValues['tno'] ;
  104. end;
  106. procedure TDataModule4.Table_procedureBeforeDelete(DataSet: TDataSet);
  107. begin
  108. mainform.updateno:=0;
  109. mainform.updateno:=procedureform.Query1.FieldValues['tno'] ;
  110. end;
  112. procedure TDataModule4.Table_filltextAfterDelete(DataSet: TDataSet);
  113. begin
  114. DataModule4.Table_filltext.Close;
  115. DataModule4.Table_filltext.Open;
  116. DataModule4.Table_filltext.Active:=false;
  117. DataModule4.Table_filltext.Active:=true;
  118. end;
  120. procedure TDataModule4.Table_judgeAfterDelete(DataSet: TDataSet);
  121. begin
  122. DataModule4.Table_judge.Close;
  123. DataModule4.Table_judge.Open;
  124. DataModule4.Table_judge.Active:=false;
  125. DataModule4.Table_judge.Active:=true;
  126. end;
  128. procedure TDataModule4.Table_readproAfterDelete(DataSet: TDataSet);
  129. begin
  130. DataModule4.Table_readpro.Close;
  131. DataModule4.Table_readpro.Open;
  132. DataModule4.Table_readpro.Active:=false;
  133. DataModule4.Table_readpro.Active:=true;
  134. end;
  136. procedure TDataModule4.Table_procedureAfterDelete(DataSet: TDataSet);
  137. begin
  138. DataModule4.Table_procedure.Close;
  139. DataModule4.Table_procedure.Open;
  140. DataModule4.Table_procedure.Active:=false;
  141. DataModule4.Table_procedure.Active:=true;
  142. end;
  144. procedure TDataModule4.Table_shijuanBeforeDelete(DataSet: TDataSet);
  145. begin
  146. definepaperform.updatejno:=0;
  147. definepaperform.updatejno:=table_shijuan['jno'];
  148. end;
  150. end.