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

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

教育系统应用

开发平台：

Delphi

Unit10.pas：源码内容
  1. unit Unit10;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ToolWin, ComCtrls, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls,
  8.   DB, DBTables;
  10. type
  11.   Tdefinepaperform = class(TForm)
  12.     Panel1: TPanel;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     DBEdit1: TDBEdit;
  16.     DBEdit2: TDBEdit;
  17.     BitBtn3: TBitBtn;
  18.     BitBtn4: TBitBtn;
  19.     BitBtn5: TBitBtn;
  20.     GroupBox1: TGroupBox;
  21.     Label27: TLabel;
  22.     Label5: TLabel;
  23.     Label4: TLabel;
  24.     Label3: TLabel;
  25.     DBEdit3: TDBEdit;
  26.     DBEdit4: TDBEdit;
  27.     DBEdit5: TDBEdit;
  28.     DBEdit15: TDBEdit;
  29.     Label9: TLabel;
  30.     Label8: TLabel;
  31.     Label28: TLabel;
  32.     Label7: TLabel;
  33.     Label10: TLabel;
  34.     Label11: TLabel;
  35.     Label12: TLabel;
  36.     Label29: TLabel;
  37.     DBEdit16: TDBEdit;
  38.     DBEdit8: TDBEdit;
  39.     DBEdit7: TDBEdit;
  40.     DBEdit6: TDBEdit;
  41.     Label13: TLabel;
  42.     Label14: TLabel;
  43.     Label15: TLabel;
  44.     Label30: TLabel;
  45.     Label31: TLabel;
  46.     DBEdit17: TDBEdit;
  47.     Label32: TLabel;
  48.     Label21: TLabel;
  49.     DBEdit11: TDBEdit;
  50.     Label18: TLabel;
  51.     Label17: TLabel;
  52.     Label16: TLabel;
  53.     DBEdit9: TDBEdit;
  54.     Label19: TLabel;
  55.     Label20: TLabel;
  56.     DBEdit10: TDBEdit;
  57.     Label6: TLabel;
  58.     DBEdit12: TDBEdit;
  59.     DBEdit13: TDBEdit;
  60.     DBEdit14: TDBEdit;
  61.     Label22: TLabel;
  62.     Label23: TLabel;
  63.     Label24: TLabel;
  64.     Label25: TLabel;
  65.     Label26: TLabel;
  66.     Label33: TLabel;
  67.     DBEdit18: TDBEdit;
  68.     DBNavigator1: TDBNavigator;
  69.     Label34: TLabel;
  70.     BitBtn1: TBitBtn;
  71.     BitBtn2: TBitBtn;
  72.     Query1: TQuery;
  73.     procedure BitBtn4Click(Sender: TObject);
  74.     procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  75.   function checknewshijuan:boolean;
  76.     procedure FormCreate(Sender: TObject);
  77.     procedure FormShow(Sender: TObject);
  78.     procedure BitBtn1Click(Sender: TObject);
  79.     procedure DBEdit6Change(Sender: TObject);
  80.     procedure DBEdit7Change(Sender: TObject);
  81.     procedure DBEdit8Change(Sender: TObject);
  82.     procedure DBEdit13Change(Sender: TObject);
  83.     procedure DBEdit16Change(Sender: TObject);
  84.     procedure DBEdit17Change(Sender: TObject);
  85.     procedure DBEdit14Change(Sender: TObject);
  86.     procedure DBEdit11Change(Sender: TObject);
  87.     procedure DBEdit10Change(Sender: TObject);
  88.     procedure DBEdit9Change(Sender: TObject);
  89.     procedure DBEdit3Change(Sender: TObject);
  90.     procedure DBEdit4Change(Sender: TObject);
  91.     procedure DBEdit5Change(Sender: TObject);
  92.     procedure DBEdit12Change(Sender: TObject);
  93.     procedure DBEdit15Change(Sender: TObject);
  94.     procedure BitBtn3Click(Sender: TObject);
  95.     procedure BitBtn2Click(Sender: TObject);
  96.   private
  97.     { Private declarations }
  98.   public
  99.   choosenum,judgenum,filltextnum,readpronum,procedurenum:integer;
  100.    updatejno:integer;
  101.     { Public declarations }
  102.   end;
  104. var
  105.   definepaperform: Tdefinepaperform;
  106.    addshijuan:Boolean;
  107.    sum1,sum2,sum3,sum4,sum5,allsum,newshijuanhao:integer;
  108. implementation
  110. uses Unit4, Unit13, Unit18;
  112. {$R *.dfm}
  114. procedure Tdefinepaperform.BitBtn4Click(Sender: TObject);
  115. begin
  116. choosenum:=0;
  117. //showmessage(inttostr(choosenum));
  118. judgenum:=0;
  119. readpronum:=0;
  120. filltextnum:=0;
  121. procedurenum:=0;
  123. choosenum:=strtoint(DBEdit3.Text);
  124. //showmessage(inttostr(choosenum));
  125. judgenum:=strtoint(DBEdit4.Text);
  126. readpronum:=strtoint(DBEdit5.Text);
  127. filltextnum:=strtoint(DBEdit12.Text);
  128. procedurenum:=strtoint(DBEdit15.Text);
  129. choosepaperform.Label1.Caption:='';
  130. choosepaperform.Label4.Caption:='';
  131. choosepaperform.Label7.Caption:='';
  132. choosepaperform.Label10.Caption:='';
  133. choosepaperform.Label13.Caption:='';
  134. choosepaperform.Label2.Caption:='';
  135. choosepaperform.Label3.Caption:='';
  136. choosepaperform.Label5.Caption:='';
  137. choosepaperform.Label6.Caption:='';
  138. choosepaperform.Label8.Caption:='';
  139. choosepaperform.Label9.Caption:='';
  140. choosepaperform.Label11.Caption:='';
  141. choosepaperform.Label12.Caption:='';
  142. choosepaperform.Label14.Caption:='';
  143. choosepaperform.Label15.Caption:='';
  145. choosepaperform.Label1.Caption:='试卷共需要 '+inttostr(choosenum)+' 题.      ';
  146. choosepaperform.Label4.Caption:='试卷共需要 '+inttostr(judgenum)+' 题.      ';
  147. choosepaperform.Label7.Caption:='试卷共需要 '+inttostr(filltextnum)+' 题.      ';
  148. choosepaperform.Label10.Caption:='试卷共需要 '+inttostr(readpronum)+' 题.      ';
  149. choosepaperform.Label13.Caption:='试卷共需要 '+inttostr(procedurenum)+' 题.      ';
  151. choosepaperform.ListBox1.Items.Text:='';
  152. choosepaperform.ListBox2.Items.Text:='';
  153. choosepaperform.ListBox3.Items.Text:='';
  154. choosepaperform.ListBox4.Items.Text:='';
  155. choosepaperform.ListBox5.Items.Text:='';
  156. choosepaperform.ListBox6.Items.Text:='';
  157. if definepaperform.DBEdit3.Text='0' then
  158. choosepaperform.TabSheet1.TabVisible:=false
  159. else
  160. choosepaperform.TabSheet1.TabVisible:=true;
  162. if definepaperform.DBEdit4.Text='0' then
  163. choosepaperform.TabSheet2.TabVisible:=false
  164. else
  165. choosepaperform.TabSheet2.TabVisible:=true;
  167. if definepaperform.DBEdit5.Text='0' then
  168. choosepaperform.TabSheet4.TabVisible:=false
  169. else
  170. choosepaperform.TabSheet4.TabVisible:=true;
  172. if definepaperform.DBEdit12.Text='0' then
  173. choosepaperform.TabSheet3.TabVisible:=false
  174. else
  175. choosepaperform.TabSheet3.TabVisible:=true;
  177. if definepaperform.DBEdit15.Text='0' then
  178. choosepaperform.TabSheet5.TabVisible:=false
  179. else
  180. choosepaperform.TabSheet5.TabVisible:=true;
  182. choosepaperform.show;
  184. definepaperform.Close;
  185. end;
  187. function Tdefinepaperform.checknewshijuan:boolean;
  188. var
  189. success:boolean;
  190. begin
  191. success:=true;
  192. with DataModule4.Table_shijuan do
  193. begin
  194. if DBEdit18.Text='' then
  195. success:=false;
  196. if DBEdit1.Text='' then
  197. success:=false;
  198. if DBEdit3.Text='' then
  199. success:=false;
  200. if DBEdit6.Text='' then
  201. success:=false;
  202. if DBEdit4.Text='' then
  203. success:=false;
  204. if DBEdit7.Text='' then
  205. success:=false;
  206. if DBEdit5.Text='' then
  207. success:=false;
  208. if DBEdit8.Text='' then
  209. success:=false;
  210. if DBEdit12.Text='' then
  211. success:=false;
  212. if DBEdit13.Text='' then
  213. success:=false;
  214. if DBEdit15.Text='' then
  215. success:=false;
  216. if DBEdit16.Text='' then
  217. success:=false;
  218. if not success then
  219. begin
  220. showmessage('红色项必须填写,请补上未填的红色项!');
  221. end;
  222.   checknewshijuan:=success;
  223. end;
  225. end;
  229. procedure Tdefinepaperform.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  230. begin
  231. case button of
  232. nbInsert:
  233. begin
  234.  BitBtn3.Enabled:=false;
  235.  BitBtn4.Enabled:=false;
  236. addshijuan:=true;
  238. DBEdit18.Enabled:=true;
  239. DBEdit18.text:=inttostr(newshijuanhao);
  240. DBEdit18.enabled:=false;
  242. end;
  243. end;
  244. case button of
  245. nbDelete:
  246. begin
  247.  query1.close;
  248. query1.sql.clear;
  249. query1.sql.text:='update shijuan set jno=jno-1 where jno>'''+inttostr(updatejno)+''' ';
  250. query1.ExecSQL;
  251. DataModule4.Table_shijuan.Close;
  252. DataModule4.Table_shijuan.open;
  253. end;
  254. end;
  255. end;
  256. procedure Tdefinepaperform.FormCreate(Sender: TObject);
  257. begin
  258. addshijuan:=false;
  261. end;
  263. procedure Tdefinepaperform.FormShow(Sender: TObject);
  264. begin
  265. DataModule4.Table_shijuan.Last;
  266. newshijuanhao:=DataModule4.Table_shijuan.FieldValues['jno']+1;
  267. DataModule4.Table_shijuan.First;
  268. end;
  270. procedure Tdefinepaperform.BitBtn1Click(Sender: TObject);
  271. begin
  272.      if addshijuan then
  273.      begin
  274.        if checknewshijuan then
  275.        begin
  277.        DataModule4.Table_shijuan.Post;
  278.        DataModule4.Table_shijuan.Close;
  279.          DataModule4.Table_shijuan.Open;
  280.        showmessage('新试卷添加成功!');
  281.        
  282.        addshijuan:=false;
  283.        inc(newshijuanhao);
  284.      //  DataModule4.Table_shijuan.UpdateRecord;
  285.        DBNavigator1.CanFocus;
  286.        BitBtn3.Enabled:=true;
  287.       BitBtn4.Enabled:=true;
  288.         end
  289.     else
  290.     exit;
  292. end;
  293. end;
  295. procedure Tdefinepaperform.DBEdit6Change(Sender: TObject);
  296. begin
  297.   sum1:=0;
  298. if   (DBEdit3.Text<>'')and(DBEdit6.Text<>'') then
  299. begin
  300. sum1:=sum1+strtoint(DBEdit3.Text)*strtoint(DBEdit6.Text);
  301. DBEdit9.Text:=inttostr(sum1);
  302. end;
  303. end;
  305. procedure Tdefinepaperform.DBEdit7Change(Sender: TObject);
  306. begin
  307.   sum2:=0;
  308. if   (DBEdit4.Text<>'')and(DBEdit7.Text<>'') then
  309. begin
  310. sum2:=sum2+strtoint(DBEdit4.Text)*strtoint(DBEdit7.Text);
  311. DBEdit10.Text:=inttostr(sum2);
  312. end;
  313. end;
  315. procedure Tdefinepaperform.DBEdit8Change(Sender: TObject);
  316. begin
  317.   sum3:=0;
  318. if   (DBEdit5.Text<>'')and(DBEdit8.Text<>'') then
  319. begin
  320. sum3:=sum3+strtoint(DBEdit5.Text)*strtoint(DBEdit8.Text);
  321. DBEdit11.Text:=inttostr(sum3);
  322. end;
  323. end;
  325. procedure Tdefinepaperform.DBEdit13Change(Sender: TObject);
  326. begin
  327.   sum4:=0;
  328. if   (DBEdit12.Text<>'')and(DBEdit13.Text<>'') then
  329. begin
  330. sum4:=sum4+strtoint(DBEdit12.Text)*strtoint(DBEdit13.Text);
  331. DBEdit14.Text:=inttostr(sum4);
  332. end;
  333. end;
  335. procedure Tdefinepaperform.DBEdit16Change(Sender: TObject);
  336. begin
  337.   sum5:=0;
  338. if   (DBEdit15.Text<>'')and(DBEdit16.Text<>'') then
  339. begin
  340. sum5:=sum5+strtoint(DBEdit15.Text)*strtoint(DBEdit16.Text);
  341. DBEdit17.Text:=inttostr(sum5);
  342. end;
  343. end;
  345. procedure Tdefinepaperform.DBEdit17Change(Sender: TObject);
  346. begin
  347. allsum:=0;
  348. if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
  349.    begin
  350.    allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
  351.      DBEdit2.Text:=inttostr(allsum);
  352.    end;
  353. end;
  355. procedure Tdefinepaperform.DBEdit14Change(Sender: TObject);
  356. begin
  357. allsum:=0;
  358. if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
  359.    begin
  360.    allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
  361.      DBEdit2.Text:=inttostr(allsum);
  362.    end;
  363. end;
  365. procedure Tdefinepaperform.DBEdit11Change(Sender: TObject);
  366. begin
  367. allsum:=0;
  368. if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
  369.    begin
  370.    allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
  371.      DBEdit2.Text:=inttostr(allsum);
  372.    end;
  373. end;
  375. procedure Tdefinepaperform.DBEdit10Change(Sender: TObject);
  376. begin
  377. allsum:=0;
  378. if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
  379.    begin
  380.    allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
  381.      DBEdit2.Text:=inttostr(allsum);
  382.    end;
  383. end;
  385. procedure Tdefinepaperform.DBEdit9Change(Sender: TObject);
  386. begin
  387. allsum:=0;
  388. if (DBEdit9.Text<>'')and(DBEdit10.Text<>'')and(DBEdit11.Text<>'')and(DBEdit14.Text<>'')and(DBEdit17.Text<>'')  then
  389.    begin
  390.    allsum:=allsum+sum1+sum2+sum3+sum4+sum5;
  391.      DBEdit2.Text:=inttostr(allsum);
  392.    end;
  393. end;
  395. procedure Tdefinepaperform.DBEdit3Change(Sender: TObject);
  396. begin
  397.   sum1:=0;
  398. if   (DBEdit3.Text<>'')and(DBEdit6.Text<>'') then
  399. begin
  400. sum1:=sum1+strtoint(DBEdit3.Text)*strtoint(DBEdit6.Text);
  401. DBEdit9.Text:=inttostr(sum1);
  402. end;
  403. end;
  405. procedure Tdefinepaperform.DBEdit4Change(Sender: TObject);
  406. begin
  407.   sum2:=0;
  408. if   (DBEdit4.Text<>'')and(DBEdit7.Text<>'') then
  409. begin
  410. sum2:=sum2+strtoint(DBEdit4.Text)*strtoint(DBEdit7.Text);
  411. DBEdit10.Text:=inttostr(sum2);
  412. end;
  413. end;
  415. procedure Tdefinepaperform.DBEdit5Change(Sender: TObject);
  416. begin
  417.   sum3:=0;
  418. if   (DBEdit5.Text<>'')and(DBEdit8.Text<>'') then
  419. begin
  420. sum3:=sum3+strtoint(DBEdit5.Text)*strtoint(DBEdit8.Text);
  421. DBEdit11.Text:=inttostr(sum3);
  422. end;
  423. end;
  425. procedure Tdefinepaperform.DBEdit12Change(Sender: TObject);
  426. begin
  427.   sum4:=0;
  428. if   (DBEdit12.Text<>'')and(DBEdit13.Text<>'') then
  429. begin
  430. sum4:=sum4+strtoint(DBEdit12.Text)*strtoint(DBEdit13.Text);
  431. DBEdit14.Text:=inttostr(sum4);
  432. end;
  433. end;
  435. procedure Tdefinepaperform.DBEdit15Change(Sender: TObject);
  436. begin
  437.   sum5:=0;
  438. if   (DBEdit15.Text<>'')and(DBEdit16.Text<>'') then
  439. begin
  440. sum5:=sum5+strtoint(DBEdit15.Text)*strtoint(DBEdit16.Text);
  441. DBEdit17.Text:=inttostr(sum5);
  442. end;
  443. end;
  445. procedure Tdefinepaperform.BitBtn3Click(Sender: TObject);
  446. var
  447. i,j:integer;
  448. begin
  449.   paperautoform.ProgressBar1.Position:=0;
  450. for i:=1 to 800 do
  451. begin
  452. paperautoform.thao[i]:=0;
  453.       paperautoform.havetake[i]:=0;
  454.       end;
  455.       for j:=1 to 5 do
  456.       begin
  457.       paperautoform.diff[i]:=0;;
  458.       end;
  459.       paperautoform.Memo1.Text:='';
  460. paperautoform.Show;
  461. end;
  463. procedure Tdefinepaperform.BitBtn2Click(Sender: TObject);
  464. begin
  465. DBNavigator1.BtnClick(nbCancel);
  466. BitBtn3.Enabled:=true;
  467.  BitBtn4.Enabled:=true;
  468. end;
  470. end.