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

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

教育系统应用

开发平台：

Delphi

Unit18.pas：源码内容
  1. unit Unit18;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons, Menus, DB, DBTables;
  9. type
  10.   Tpaperautoform = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     N5: TMenuItem;
  13.     N19: TMenuItem;
  14.     N6: TMenuItem;
  15.     N21: TMenuItem;
  16.     FontDialog1: TFontDialog;
  17.     Memo1: TMemo;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     BitBtn1: TBitBtn;
  21.     Label3: TLabel;
  22.     ProgressBar1: TProgressBar;
  23.     BitBtn2: TBitBtn;
  24.     ComboBox2: TComboBox;
  25.     Query1: TQuery;
  26.     ListBox1: TListBox;
  27.     SpeedButton1: TSpeedButton;
  28.     SpeedButton2: TSpeedButton;
  29.     ListBox2: TListBox;
  30.     N1: TMenuItem;
  31.     N3: TMenuItem;
  32.     N7: TMenuItem;
  33.     N8: TMenuItem;
  34.     N4: TMenuItem;
  35.     N9: TMenuItem;
  36.     N10: TMenuItem;
  37.     N11: TMenuItem;
  38.     N12: TMenuItem;
  39.     N13: TMenuItem;
  40.     procedure definediff(a:integer);
  41.     procedure N19Click(Sender: TObject);
  42.     procedure U1Click(Sender: TObject);
  43.     procedure N12Click(Sender: TObject);
  44.     procedure N13Click(Sender: TObject);
  45.     procedure N14Click(Sender: TObject);
  46.     procedure N16Click(Sender: TObject);
  47.     procedure N2Click(Sender: TObject);
  48.     procedure BitBtn1Click(Sender: TObject);
  49.     procedure FormShow(Sender: TObject);
  50.     procedure FormCreate(Sender: TObject);
  51.     procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  52.       Shift: TShiftState; X, Y: Integer);
  53.     procedure ComboBox2Change(Sender: TObject);
  54.     procedure SpeedButton1Click(Sender: TObject);
  55.     procedure SpeedButton2Click(Sender: TObject);
  56.     procedure N1Click(Sender: TObject);
  57.     procedure N24Click(Sender: TObject);
  58.     procedure N9Click(Sender: TObject);
  59.     procedure N10Click(Sender: TObject);
  60.     procedure N11Click(Sender: TObject);
  61.     procedure N7Click(Sender: TObject);
  62.     procedure N8Click(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.   public
  66.   // tmno: array[1..5] of string=('一、','二、','三、','四、','五、');
  67.     thao: array[1..800] of integer;
  68.       havetake: array[1..800] of integer;
  69.       diff: array[1..5] of integer;
  70.     { Public declarations }
  71.    // tmno: array[1..5] of string=('一、','二、','三、','四、','五、');
  72.   end;
  74. var
  75.   paperautoform: Tpaperautoform;
  76.    tmno: array[1..5] of string=('一、','二、','三、','四、','五、');
  77.         TF:array[1..9] of string=('f','f','f','f','f','f','f','f','f');
  78.       paperallnumber,choosenumber,judgenumber,filltextnumber,readpronumber,procedurenumber:integer;
  79. implementation
  80.     uses printers, Unit10, Unit22, Unit3, Unit4;
  81. {$R *.dfm}
  84. procedure Tpaperautoform.definediff(a:integer);
  85. var
  86. g:integer;
  87. begin
  88. case a of
  89. 1:
  90. begin
  91. if (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='')
  92.    or (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='0')
  93.     then
  94.       diff[1]:=1
  95.       else
  96.       diff[1]:=strtoint(copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1) );
  98. if (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='')
  99.      or (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='0')
  100.       then
  101.         diff[2]:=1
  102.         else
  103.          diff[2]:=strtoint(copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1));
  105.  if (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='')
  106.       or (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='0')
  107.        then
  108.            diff[3]:=1
  109.             else
  110.             diff[3]:=strtoint(copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1));
  112. if (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='')
  113.         or (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='0')
  114.         then
  115.            diff[4]:=1
  116.             else
  117.           diff[4]:=strtoint(copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1));
  119. diff[5]:=0;
  121. end;
  122. 2:
  123. begin
  124. if (copy(floattostr(paperallnumber*0.05),1,pos('.',floattostr(paperallnumber*0.05))-1)='')
  125.     or (copy(floattostr(paperallnumber*0.05),1,pos('.',floattostr(paperallnumber*0.05))-1)='0')
  126.       then
  127.       diff[1]:=1
  128.       else
  129.        diff[1]:=strtoint(copy(floattostr(paperallnumber*0.05),1,pos('.',floattostr(paperallnumber*0.05))-1) );
  133. if (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='')
  134.      or (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='0')
  135.       then
  136.          diff[2]:=1
  137.         else
  138.          diff[2]:=strtoint(copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1));
  140. if (copy(floattostr(paperallnumber*0.7),1,pos('.',floattostr(paperallnumber*0.7))-1)='')
  141.       or (copy(floattostr(paperallnumber*0.7),1,pos('.',floattostr(paperallnumber*0.7))-1)='0')
  142.        then
  143.            diff[3]:=1
  144.             else
  145.             diff[3]:=strtoint(copy(floattostr(paperallnumber*0.7),1,pos('.',floattostr(paperallnumber*0.7))-1));
  147. if (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='')
  148.          or (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='0')
  149.            then
  150.            diff[4]:=1
  151.             else
  152.              diff[4]:=strtoint(copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1));
  156. if (copy(floattostr(paperallnumber*0.05),1,pos('.',floattostr(paperallnumber*0.05))-1)='')
  157.      or (copy(floattostr(paperallnumber*0.05),1,pos('.',floattostr(paperallnumber*0.05))-1)='0')
  158.           then
  159.            diff[5]:=1
  160.             else
  161.              diff[5]:=strtoint(copy(floattostr(paperallnumber*0.05),1,pos('.',floattostr(paperallnumber*0.05))-1));
  163. diff[5]:=0;
  165. end;
  167. 3:
  168. begin
  169. diff[1]:=0;
  171. if (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='')
  172.        or (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='0')
  173.        then
  174.            diff[2]:=1
  175.             else
  176.              diff[2]:=strtoint(copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1));
  178. if (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='')
  179.         or (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='0')
  180.            then
  181.            diff[3]:=1
  182.             else
  183.              diff[3]:=strtoint(copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1));
  185. if (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='')
  186.      or (copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1)='0')
  187.          then
  188.            diff[4]:=1
  189.             else
  190.              diff[4]:=strtoint(copy(floattostr(paperallnumber*0.4),1,pos('.',floattostr(paperallnumber*0.4))-1));
  193. if (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='')
  194.        or (copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1)='0')
  195.        then
  196.            diff[5]:=1
  197.             else
  198.              diff[5]:=strtoint(copy(floattostr(paperallnumber*0.1),1,pos('.',floattostr(paperallnumber*0.1))-1));
  201. end;
  202. end;
  203. end;
  206. procedure Tpaperautoform.N19Click(Sender: TObject);
  207. begin
  208. if fontdialog1.Execute then
  209. begin
  210. memo1.Font:=fontdialog1.Font;
  211. end;
  212. end;
  214. procedure Tpaperautoform.U1Click(Sender: TObject);
  215. begin
  216. memo1.Undo;
  217. end;
  219. procedure Tpaperautoform.N12Click(Sender: TObject);
  220. begin
  221.  Memo1.PasteFromClipboard;
  222. end;
  224. procedure Tpaperautoform.N13Click(Sender: TObject);
  225. begin
  226. memo1.SelectAll;
  227. paperautoform.N11.Enabled:=true;
  228. paperautoform.N12.Enabled:=true;
  229. end;
  231. procedure Tpaperautoform.N14Click(Sender: TObject);
  232. begin
  233. memo1.PasteFromClipboard;
  234. end;
  236. procedure Tpaperautoform.N16Click(Sender: TObject);
  237. begin
  238. memo1.SelectAll;
  239. //paperautoform.N14.Enabled:=true;
  240. //paperautoform.N13.Enabled:=true;
  241. end;
  243. procedure Tpaperautoform.N2Click(Sender: TObject);
  244. //var lines :integer;
  245.  //   prntext:system.text;
  246. begin
  247. Screen.Cursor:=crHourGlass;
  248.   try
  249.     print;
  250.     ShowMessage('打印完毕');
  251.   finally
  252.     Screen.Cursor:=crDefault;
  253.   end;
  254.   {
  255.     if printdialog1.Execute then
  256.     assignprn(prntext);
  257.     rewrite(prntext);
  258.     printer.canvas.Font:=memo1.font;
  259.     for lines:=0 to memo1.Lines.Count-1 do
  260.     begin
  261.     writeln(prntext,memo1.lines[lines]);
  262.     system.Close(prntext);
  263.     end;  }
  264. end;
  266. procedure Tpaperautoform.BitBtn1Click(Sender: TObject);
  267.  var
  268. tt,pp,cc,mm,ii,n,diffnum,temp,m,r,ran,q,i,j:integer;
  269.  t,hade:boolean;
  270.  c,f,ju,re,p:integer;
  271. begin
  272. pp:=1;
  273. //ListBox2.Enabled:=false;
  274. if ComboBox2.Text='' then
  275. begin
  276. showmessage('请选择试卷难度！');
  277. exit;
  278. end;
  279.   
  280.  //Label3.Caption:='';
  281. //Label3.Caption:='试卷正在提取中，请耐心等待...           ';
  282. //Label3.Show;
  283. c:=choosenumber;
  284. f:=filltextnumber;
  285. ju:=judgenumber;
  286. re:=readpronumber;
  287. p:=procedurenumber;
  288. progressbar1.Position:=0;
  289. progressbar1.Max:=paperallnumber+10;
  290.  progressbar1.Position:=10;
  291. randomize;
  292. temp:=0;
  293. i:=1;
  294. t:=false;
  295. definediff(ComboBox2.ItemIndex+1);
  296. //  showmessage(inttostr(choosenumber));
  300.        for ii:=ListBox2.Items.Count-1 downto 0 do
  301.        begin
  302.       if  ListBox2.Items[ii]='第一章 C语言基础知识'  then  TF[1]:='t';
  303.       if  ListBox2.Items[ii]='第二章 数据类型、运算符与表达式'  then  TF[2]:='t';
  304.       if  ListBox2.Items[ii]='第三章 顺序结构'  then  TF[3]:='t';
  305.       if  ListBox2.Items[ii]='第四章 选择结构'  then  TF[4]:='t';
  306.       if  ListBox2.Items[ii]='第五章 循环控制'  then  TF[5]:='t';
  307.       if  ListBox2.Items[ii]='第六章 数组指针'  then  TF[6]:='t';
  308.       if  ListBox2.Items[ii]='第七章 函数  结构体与共用体'  then  TF[7]:='t';
  309.       if  ListBox2.Items[ii]='第八章 预处理命令'  then  TF[8]:='t';
  310.       if  ListBox2.Items[ii]='第九章 常用算法设计'  then  TF[9]:='t';
  312.      end;
  314.      //选择题
  318.       //TF存放的是要考的与不考的章，标号就是代表第几章
  321. paperautoform.Memo1.Text:='';
  323. paperautoform.Memo1.Text:='             '+definepaperform.DBEdit1.Text+'                   '+'总分：'+definepaperform.DBEdit2.Text+#13#10#13#10#13#10;
  324. paperautoform.Memo1.Text:=paperautoform.Memo1.Text+'学校__________班级__________姓名__________得分________'+#13#10#13#10;
  325. autoanswerform.Memo1.Text:='';
  326. autoanswerform.Memo1.Text:='             '+definepaperform.DBEdit1.Text+'答案'+#13#10#13#10;
  329. if definepaperform.DBEdit3.Text<>'0' then
  330. begin
  331. tt:=0;
  332.    paperautoform.Memo1.Text:=paperautoform.Memo1.Text+''+#13#10+tmno[pp]+'选择题'+'(共'+definepaperform.DBEdit3.Text+'小题，每题'+definepaperform.DBEdit6.Text+'分，小计'+definepaperform.DBEdit9.Text+'分）.'+#13#10+'';
  333.    autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+''+#13#10+tmno[pp]+'选择题: '+#13#10+'';
  334.     pp:=pp+1;
  336. end;
  340.   //    showmessage('cb');
  342.     //----------------------------------------------------------------
  343.     //------------------------------------------------------------
  344.    while choosenumber<>0 do
  346.    begin
  347.   // if ListBox2.Items.Text='' then
  348.  //
  350.        query1.Close;
  351.        query1.SQL.Clear;
  352.        query1.SQL.Add('select tno from ti_choose') ;
  353.        if ListBox2.Count>=1 then
  354.        begin
  355.        // if ListBox2.Count=1 then
  356.             for mm:=1 to 9 do
  357.             begin
  358.             if TF[mm]='t' then
  359.             begin
  360.             query1.SQL.Add(' where tno not like  '''+inttostr(mm)+'%''');
  361.             break;
  362.             end;
  363.             end;
  364.          if listBox2.Count>1 then
  365.           begin
  367.            for mm:=1 to 9 do
  368.               if TF[mm]='t'   then
  369.               begin
  371.              query1.SQL.Add(' and tno not like  '''+inttostr(mm)+'%''');
  372.      //      showmessage(query1.SQL.Text);
  373.            end;
  374.               end;
  375.        end;
  376.     query1.Open;
  377.     query1.First;
  380.       {
  382.  if ComboBox1.ItemIndex=-1 then
  383.       begin
  384.    query1.Close;
  385.    query1.SQL.Clear;
  386.    query1.SQL.add('select tno from ti_choose');
  387.    query1.Open;
  388.    query1.First;
  389.       end;
  390.    if ComboBox1.ItemIndex=0 then
  391.       begin
  392.    query1.Close;
  393.    query1.SQL.Clear;
  394.    query1.SQL.add('select tno from ti_choose where tno not like ''1%%%''');
  395.    query1.Open;
  396.    query1.First;
  398.       end;
  399.       if ComboBox1.ItemIndex=1 then
  400.       begin
  401.    query1.Close;
  402.    query1.SQL.Clear;
  403.    query1.SQL.add('select tno from ti_choose where tno not like ''2%%%''');
  404.    query1.Open;
  405.    query1.First;
  407.       end;
  408.       if ComboBox1.ItemIndex=2 then
  409.       begin
  410.    query1.Close;
  411.    query1.SQL.Clear;
  412.    query1.SQL.add('select tno from ti_choose where tno not like ''3%%%''');
  413.    query1.Open;
  414.    query1.First;
  416.       end;
  417.       if ComboBox1.ItemIndex=3 then
  418.       begin
  419.    query1.Close;
  420.    query1.SQL.Clear;
  421.    query1.SQL.add('select tno from ti_choose where tno not like ''4%%%''');
  422.    query1.Open;
  423.    query1.First;
  425.       end;
  426.       if ComboBox1.ItemIndex=4 then
  427.       begin
  428.    query1.Close;
  429.    query1.SQL.Clear;
  430.    query1.SQL.add('select tno from ti_choose where tno not like ''5%%%''');
  431.    query1.Open;
  432.    query1.First;
  434.       end;
  435.       if ComboBox1.ItemIndex=5 then
  436.       begin
  437.    query1.Close;
  438.    query1.SQL.Clear;
  439.    query1.SQL.add('select tno from ti_choose where tno not like ''6%%%''');
  440.    query1.Open;
  441.    query1.First;
  443.       end;
  444.       if ComboBox1.ItemIndex=6 then
  445.       begin
  446.    query1.Close;
  447.    query1.SQL.Clear;
  448.    query1.SQL.add('select tno from ti_choose where tno not like ''7%%%''');
  449.    query1.Open;
  450.    query1.First;
  452.       end;
  453.       if ComboBox1.ItemIndex=7 then
  454.       begin
  455.    query1.Close;
  456.    query1.SQL.Clear;
  457.    query1.SQL.add('select tno from ti_choose where tno not like ''8%%%''');
  458.    query1.Open;
  459.    query1.First;
  461.       end;
  462.       if ComboBox1.ItemIndex=8 then
  463.       begin
  464.    query1.Close;
  465.    query1.SQL.Clear;
  466.    query1.SQL.add('select tno from ti_choose where tno not like ''9%%%''');
  467.    query1.Open;
  468.    query1.First;
  470.       end;
  472.       }
  476. while not query1.Eof do
  477. begin
  478.       hade:=false;
  479.       if i=1 then
  480.       begin
  482.      thao[i]:=((Query1.FieldValues['tno']) div 10);
  483.    //   memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  484.       end
  485.       else
  486.        if i>1 then
  487.       begin
  489.           for  j:=i-1 downto 1 do
  490.           begin
  492.            if thao[j]=((Query1.FieldValues['tno']) div 10) then
  493.              begin
  494.              t:=true ;
  495.              break;
  496.              end
  497.             else
  498.              t:=false;
  499.            end;
  502.           if not t then
  503.          begin
  504.        thao[i]:=((Query1.FieldValues['tno']) div 10);
  505.    //      memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  506.         t:=false;
  507.        end;
  508.       end;
  510.    query1.Next;
  512.    if not t then
  513.       i:=i+1;
  514.  end;
  516.           temp:=random(i-1)+1;
  517.    r:=thao[temp];
  519.    q:=random(9)+1;
  520.     ran:=r*10+q;
  525.     //  if m=1 then
  526.     // havetake[1]:=0000;
  527.      // else if
  528.      for m:=1 to 800 do havetake[m]:=0;
  529.     for m:=1  to 800 do
  530.     begin
  531.     if havetake[m]=ran then
  532.       begin
  533.       showmessage('chongfu');
  534.        hade:=true;
  535.        break;
  536.        end;
  537.     end;
  538.     if not hade then
  539.       begin
  540.       for m:=0 to 800 do
  541.         if havetake[m]=0 then
  542.           begin
  543.           havetake[m]:=ran;
  544.           break;
  545.           end;
  549.   //    showmessage(inttostr(ran));
  550.     query1.Close;
  551.     query1.SQL.Clear;
  552.     query1.SQL.Add('select tigan,xa,xb,xc,xd,answer,difficulty from ti_choose where tno=:no');
  553.     query1.ParamByName('no').Value:=ran;
  555.     query1.Open;
  557.     if choosenumber<>0 then
  558.     begin
  559.     
  561.     if query1.RecordCount<>0 then //continue //showmessage('ddd')
  562.    // else
  564.      begin
  566.      n:= strtoint(query1.FieldByName('difficulty').AsString);
  567.  if   diff[n] <>0 then
  568.     // if definediff[strtoint(query1.fieldbyname('difficulty').AsString)]<>0   then
  570.           begin
  572. //      memo1.Text:=memo1.Text+'选择题';
  573.           tt:=tt+1;
  574. //  showmessage(inttostr(ran));
  575.     memo1.Text:=memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('tigan').AsString+#13#10;
  576.     memo1.Text:=memo1.Text+query1.fieldbyname('xa').AsString+#13#10;
  577.     memo1.Text:=memo1.Text+query1.fieldbyname('xb').AsString+#13#10;
  578.     memo1.Text:=memo1.Text+query1.fieldbyname('xc').AsString+#13#10;
  579.     memo1.Text:=memo1.Text+query1.fieldbyname('xd').AsString+#13#10;
  580.      autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('answer').AsString+#13#10;
  581.     choosenumber:=choosenumber-1;
  582.      n:=n-1;
  583.    // strtoint(query1.fieldbyname('difficulty').AsString):=strtoint(query1.fieldbyname('difficulty').AsString)-1;
  584.        end;
  587.         end;
  588.        end;
  589.  //i:=thao[]
  592.        end;
  595.   // showmessage('choosestop');
  596.  end;
  597.     progressbar1.Position:=progressbar1.Position+c;
  598.        //判断题
  600.      //  showmessage('ce');
  601.        //-----------------------------------------------------------
  602.        //--------------------------------------------------------------
  605.        if definepaperform.DBEdit4.Text<>'0' then
  606.   begin
  607.       tt:=0;
  608.    paperautoform.Memo1.Text:=paperautoform.Memo1.Text+''+#13#10+tmno[pp]+'判断题'+'(共'+definepaperform.DBEdit4.Text+'小题，每题'+definepaperform.DBEdit7.Text+'分，小计'+definepaperform.DBEdit10.Text+'分）.'+#13#10+'';
  610.   autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+''+#13#10+tmno[pp]+'判断题: '+#13#10+'';
  611.    pp:=pp+1;
  612. end;
  615.        while judgenumber<>0 do
  616.        begin
  618.        query1.Close;
  619.        query1.SQL.Clear;
  620.        query1.SQL.Add('select tno from ti_judge') ;
  621.        if ListBox2.Count>=1 then
  622.        begin
  623.        // if ListBox2.Count=1 then
  624.             for mm:=1 to 9 do
  625.             begin
  626.             if TF[mm]='t' then
  627.             begin
  628.             query1.SQL.Add(' where tno not like  '''+inttostr(mm)+'%''');
  629.             break;
  630.             end;
  631.             end;
  632.          if listBox2.Count>1 then
  633.           begin
  635.            for mm:=1 to 9 do
  636.               if TF[mm]='t'   then
  637.               begin
  639.              query1.SQL.Add(' and tno not like  '''+inttostr(mm)+'%''');
  640.       //     showmessage(query1.SQL.Text);
  641.            end;
  642.               end;
  643.        end;
  644.     query1.Open;
  645.     query1.First;
  649.     {
  650.     //  showmessage('judgebegin');
  651.       if ComboBox1.ItemIndex=-1 then
  652.       begin
  653.    query1.Close;
  654.    query1.SQL.Clear;
  655.    query1.SQL.add('select tno from ti_judge');
  656.    query1.Open;
  657.    query1.First;
  658.       end;
  659.    if ComboBox1.ItemIndex=0 then
  660.       begin
  661.    query1.Close;
  662.    query1.SQL.Clear;
  663.    query1.SQL.add('select tno from ti_judge where tno not like ''1%%%''');
  664.    query1.Open;
  665.    query1.First;
  667.       end;
  668.       if ComboBox1.ItemIndex=1 then
  669.       begin
  670.    query1.Close;
  671.    query1.SQL.Clear;
  672.    query1.SQL.add('select tno from ti_judge where tno not like ''2%%%''');
  673.    query1.Open;
  674.    query1.First;
  676.       end;
  677.       if ComboBox1.ItemIndex=2 then
  678.       begin
  679.    query1.Close;
  680.    query1.SQL.Clear;
  681.    query1.SQL.add('select tno from ti_judge where tno not like ''3%%%''');
  682.    query1.Open;
  683.    query1.First;
  685.       end;
  686.       if ComboBox1.ItemIndex=3 then
  687.       begin
  688.    query1.Close;
  689.    query1.SQL.Clear;
  690.    query1.SQL.add('select tno from ti_judge where tno not like ''4%%%''');
  691.    query1.Open;
  692.    query1.First;
  694.       end;
  695.       if ComboBox1.ItemIndex=4 then
  696.       begin
  697.    query1.Close;
  698.    query1.SQL.Clear;
  699.    query1.SQL.add('select tno from ti_judge where tno not like ''5%%%''');
  700.    query1.Open;
  701.    query1.First;
  703.       end;
  704.       if ComboBox1.ItemIndex=5 then
  705.       begin
  706.    query1.Close;
  707.    query1.SQL.Clear;
  708.    query1.SQL.add('select tno from ti_judge where tno not like ''6%%%''');
  709.    query1.Open;
  710.    query1.First;
  712.       end;
  713.       if ComboBox1.ItemIndex=6 then
  714.       begin
  715.    query1.Close;
  716.    query1.SQL.Clear;
  717.    query1.SQL.add('select tno from ti_judge where tno not like ''7%%%''');
  718.    query1.Open;
  719.    query1.First;
  721.       end;
  722.       if ComboBox1.ItemIndex=7 then
  723.       begin
  724.    query1.Close;
  725.    query1.SQL.Clear;
  726.    query1.SQL.add('select tno from ti_judge where tno not like ''8%%%''');
  727.    query1.Open;
  728.    query1.First;
  730.       end;
  731.       if ComboBox1.ItemIndex=8 then
  732.       begin
  733.    query1.Close;
  734.    query1.SQL.Clear;
  735.    query1.SQL.add('select tno from ti_judge where tno not like ''9%%%''');
  736.    query1.Open;
  737.    query1.First;
  739.       end;
  743.         }
  744. while not query1.Eof do
  745. begin
  746.       hade:=false;
  747.       if i=1 then
  748.       begin
  750.      thao[i]:=((Query1.FieldValues['tno']) div 10);
  751.    //   memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  752.       end
  753.       else
  754.        if i>1 then
  755.       begin
  757.           for  j:=i-1 downto 1 do
  758.           begin
  760.            if thao[j]=((Query1.FieldValues['tno']) div 10) then
  761.              begin
  762.              t:=true ;
  763.              break;
  764.              end
  765.             else
  766.              t:=false;
  767.            end;
  770.           if not t then
  771.          begin
  772.        thao[i]:=((Query1.FieldValues['tno']) div 10);
  773.    //      memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  774.         t:=false;
  775.        end;
  776.       end;
  778.    query1.Next;
  780.    if not t then
  781.       i:=i+1;
  782.  end;
  784.           temp:=random(i-1)+1;
  785.    r:=thao[temp];
  787.    q:=random(9)+1;
  788.     ran:=r*10+q;
  793.     //  if m=1 then
  794.     // havetake[1]:=0000;
  795.      // else if
  796.      for m:=1 to 800 do havetake[m]:=0;
  797.     for m:=1  to 800 do
  798.     begin
  799.     if (havetake[m] div 10)=r then
  800.       begin
  801.       showmessage('chongfu');
  802.        hade:=true;
  803.        break;
  804.        end;
  805.     end;
  806.     if not hade then
  807.       begin
  808.       for m:=0 to 800 do
  809.         if havetake[m]=0 then
  810.           begin
  811.           havetake[m]:=ran;
  812.           break;
  813.           end;
  817.   //    showmessage(inttostr(ran));
  818.     query1.Close;
  819.     query1.SQL.Clear;
  820.     query1.SQL.Add('select tigan,answer,difficulty from ti_judge where tno=:no');
  821.     query1.ParamByName('no').Value:=ran;
  823.     query1.Open;
  825.     if judgenumber<>0 then
  826.     begin
  827.        
  828.     if query1.RecordCount<>0 then //continue//showmessage('ddd')
  829.  //   else
  831.      begin
  833.      n:= strtoint(query1.FieldByName('difficulty').AsString);
  834.  if   diff[n] <>0 then
  835.     // if definediff[strtoint(query1.fieldbyname('difficulty').AsString)]<>0   then
  837.           begin
  839.           //    memo1.Text:=memo1.Text+'判断题';
  840.        tt:=tt+1;
  841.  // showmessage(inttostr(ran));
  842.     memo1.Text:=memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('tigan').AsString+#13#10;
  843.      autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('answer').AsString+#13#10;
  844.     judgenumber:=judgenumber-1;
  845.      n:=n-1;
  846.    // strtoint(query1.fieldbyname('difficulty').AsString):=strtoint(query1.fieldbyname('difficulty').AsString)-1;
  847.        end;
  850.         end;
  851.        end;
  852.  //i:=thao[]
  855.        end;
  859.    //    showmessage('judgestop');
  860.        end;
  861.        progressbar1.Position:=progressbar1.Position+ju;
  868.        
  869. if definepaperform.DBEdit12.Text<>'0' then
  870. begin
  871. tt:=0;
  872.    paperautoform.Memo1.Text:=paperautoform.Memo1.Text+''+#13#10#13#10+tmno[pp]+'填空题'+'(共'+definepaperform.DBEdit12.Text+'小题，每题'+definepaperform.DBEdit13.Text+'分，小计'+definepaperform.DBEdit14.Text+'分）.'+#13#10+'';
  874.   autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+''+#13#10+tmno[pp]+'填空题: '+#13#10+'';
  875.       pp:=pp+1;
  876.       end;
  877.         //填空题
  878.        //----------------------------------------------------------------
  879.        //----------------------------------------------------------------------
  880.       while filltextnumber<>0 do
  881.       begin
  884.       query1.Close;
  885.        query1.SQL.Clear;
  886.        query1.SQL.Add('select tno from ti_filltext') ;
  887.        if ListBox2.Count>=1 then
  888.        begin
  889.        // if ListBox2.Count=1 then
  890.             for mm:=1 to 9 do
  891.             begin
  892.             if TF[mm]='t' then
  893.             begin
  894.             query1.SQL.Add(' where tno not like  '''+inttostr(mm)+'%''');
  895.             break;
  896.             end;
  897.             end;
  898.          if listBox2.Count>1 then
  899.           begin
  901.            for mm:=1 to 9 do
  902.               if TF[mm]='t'   then
  903.               begin
  905.              query1.SQL.Add(' and tno not like  '''+inttostr(mm)+'%''');
  906.      //      showmessage(query1.SQL.Text);
  907.            end;
  908.               end;
  909.        end;
  910.     query1.Open;
  911.     query1.First;
  917.     {
  919.     //    showmessage('filltextbegin');
  920.       if ComboBox1.ItemIndex=-1 then
  921.       begin
  922.    query1.Close;
  923.    query1.SQL.Clear;
  924.    query1.SQL.add('select tno from ti_filltext');
  925.    query1.Open;
  926.    query1.First;
  927.       end;
  928.    if ComboBox1.ItemIndex=0 then
  929.       begin
  930.    query1.Close;
  931.    query1.SQL.Clear;
  932.    query1.SQL.add('select tno from ti_filltext where tno not like ''1%%%''');
  933.    query1.Open;
  934.    query1.First;
  936.       end;
  937.       if ComboBox1.ItemIndex=1 then
  938.       begin
  939.    query1.Close;
  940.    query1.SQL.Clear;
  941.    query1.SQL.add('select tno from ti_filltext where tno not like ''2%%%''');
  942.    query1.Open;
  943.    query1.First;
  945.       end;
  946.       if ComboBox1.ItemIndex=2 then
  947.       begin
  948.    query1.Close;
  949.    query1.SQL.Clear;
  950.    query1.SQL.add('select tno from ti_filltext where tno not like ''3%%%''');
  951.    query1.Open;
  952.    query1.First;
  954.       end;
  955.       if ComboBox1.ItemIndex=3 then
  956.       begin
  957.    query1.Close;
  958.    query1.SQL.Clear;
  959.    query1.SQL.add('select tno from ti_filltext where tno not like ''4%%%''');
  960.    query1.Open;
  961.    query1.First;
  963.       end;
  964.       if ComboBox1.ItemIndex=4 then
  965.       begin
  966.    query1.Close;
  967.    query1.SQL.Clear;
  968.    query1.SQL.add('select tno from ti_filltext where tno not like ''5%%%''');
  969.    query1.Open;
  970.    query1.First;
  972.       end;
  973.       if ComboBox1.ItemIndex=5 then
  974.       begin
  975.    query1.Close;
  976.    query1.SQL.Clear;
  977.    query1.SQL.add('select tno from ti_filltext where tno not like ''6%%%''');
  978.    query1.Open;
  979.    query1.First;
  981.       end;
  982.       if ComboBox1.ItemIndex=6 then
  983.       begin
  984.    query1.Close;
  985.    query1.SQL.Clear;
  986.    query1.SQL.add('select tno from ti_filltext where tno not like ''7%%%''');
  987.    query1.Open;
  988.    query1.First;
  990.       end;
  991.       if ComboBox1.ItemIndex=7 then
  992.       begin
  993.    query1.Close;
  994.    query1.SQL.Clear;
  995.    query1.SQL.add('select tno from ti_filltext where tno not like ''8%%%''');
  996.    query1.Open;
  997.    query1.First;
  999.       end;
  1000.       if ComboBox1.ItemIndex=8 then
  1001.       begin
  1002.    query1.Close;
  1003.    query1.SQL.Clear;
  1004.    query1.SQL.add('select tno from ti_filltext where tno not like ''9%%%''');
  1005.    query1.Open;
  1006.    query1.First;
  1008.       end;
  1011.         }
  1013. while not query1.Eof do
  1014. begin
  1015.       hade:=false;
  1016.       if i=1 then
  1017.       begin
  1019.      thao[i]:=((Query1.FieldValues['tno']) div 10);
  1020.    //   memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  1021.       end
  1022.       else
  1023.        if i>1 then
  1024.       begin
  1026.           for  j:=i-1 downto 1 do
  1027.           begin
  1029.            if thao[j]=((Query1.FieldValues['tno']) div 10) then
  1030.              begin
  1031.              t:=true ;
  1032.              break;
  1033.              end
  1034.             else
  1035.              t:=false;
  1036.            end;
  1039.           if not t then
  1040.          begin
  1041.        thao[i]:=((Query1.FieldValues['tno']) div 10);
  1042.    //      memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  1043.         t:=false;
  1044.        end;
  1045.       end;
  1047.    query1.Next;
  1049.    if not t then
  1050.       i:=i+1;
  1051.  end;
  1053.           temp:=random(i-1)+1;
  1054.    r:=thao[temp];
  1055.  
  1056.    q:=random(9)+1;
  1057.     ran:=r*10+q;
  1062.     //  if m=1 then
  1063.     // havetake[1]:=0000;
  1064.      // else if
  1065.      for m:=1 to 800 do havetake[m]:=0;
  1066.     for m:=1  to 800 do
  1067.     begin
  1068.     if havetake[m]=ran then
  1069.       begin
  1070.       showmessage('chongfu');
  1071.        hade:=true;
  1072.        break;
  1073.        end;
  1074.     end;
  1075.     if not hade then
  1076.       begin
  1077.       for m:=0 to 800 do
  1078.         if havetake[m]=0 then
  1079.           begin
  1080.           havetake[m]:=ran;
  1081.           break;
  1082.           end;
  1086.   //    showmessage(inttostr(ran));
  1087.     query1.Close;
  1088.     query1.SQL.Clear;
  1089.     query1.SQL.Add('select tigan,ka,kb,kc,kd,difficulty from ti_filltext where tno=:no');
  1090.     query1.ParamByName('no').Value:=ran;
  1092.     query1.Open;
  1094.     if filltextnumber<>0 then
  1095.     begin
  1096.      
  1097.     if query1.RecordCount<>0 then //continue//showmessage('ddd')
  1098.    // else
  1100.      begin
  1102.      n:= strtoint(query1.FieldByName('difficulty').AsString);
  1103.  if   diff[n] <>0 then
  1104.     // if definediff[strtoint(query1.fieldbyname('difficulty').AsString)]<>0   then
  1106.           begin
  1107.             tt:=tt+1;
  1109.       //  memo1.Text:=memo1.Text+'填空题';
  1110.  // showmessage(inttostr(ran));
  1111.     memo1.Text:=memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('tigan').AsString+#13#10;
  1112.        autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('ka').AsString+#13#10;
  1114.           if query1.fieldbyname('kb').AsString<>'' then
  1115.              autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+query1.fieldbyname('kb').AsString+#13#10;
  1116. //form.Memo1.Text:=madeanswerform.Memo1.Text+#10+'   '+query1.fieldbyname('kb').AsString+' '+#13;
  1117.  if query1.fieldbyname('kc').AsString<>'' then
  1118.    autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+query1.fieldbyname('kc').AsString+#13#10;
  1119.  //madeanswerform.Memo1.Text:=answerform.Memo1.Text+#10+'   '+query1.fieldbyname('kc').AsString+' '+#13;
  1120.  if query1.fieldbyname('kd').AsString<>'' then
  1121.     autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+query1.fieldbyname('kd').AsString+#13#10;
  1122.  //madeanswerform.Memo1.Text:=madeanswerform.Memo1.Text+#10+'   '+query1.fieldbyname('kd').AsString+' '+#13;
  1123.     filltextnumber:=filltextnumber-1;
  1124.      n:=n-1;
  1125.    // strtoint(query1.fieldbyname('difficulty').AsString):=strtoint(query1.fieldbyname('difficulty').AsString)-1;
  1126.        end;
  1129.         end;
  1130.        end;
  1131.  //i:=thao[]
  1134.        end;
  1137.   //       showmessage('filltextstop');
  1138.         end;
  1139.         progressbar1.Position:=progressbar1.Position+f;
  1141.   if definepaperform.DBEdit5.Text<>'0' then
  1142. begin
  1143.      tt:=0;
  1144.    paperautoform.Memo1.Text:=paperautoform.Memo1.Text+''+#13#10+tmno[pp]+'程序阅读题'+'(共'+definepaperform.DBEdit5.Text+'小题，每题'+definepaperform.DBEdit8.Text+'分，小计'+definepaperform.DBEdit11.Text+'分）.'+#13#10+'';
  1146.   autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+''+#13#10+tmno[pp]+'程序阅读题：'+#13#10+'';
  1147.     pp:=pp+1;
  1148. end;
  1151.        //程序阅读
  1152.        //------------------------------------------------------------------------
  1153.        //---------------------------------------------------------------------------
  1154.         while readpronumber<>0 do
  1155.         begin
  1160.         query1.Close;
  1161.        query1.SQL.Clear;
  1162.        query1.SQL.Add('select tno from ti_readpro') ;
  1163.        if ListBox2.Count>=1 then
  1164.        begin
  1165.        // if ListBox2.Count=1 then
  1166.             for mm:=1 to 9 do
  1167.             begin
  1168.             if TF[mm]='t' then
  1169.             begin
  1170.             query1.SQL.Add(' where tno not like  '''+inttostr(mm)+'%''');
  1171.             break;
  1172.             end;
  1173.             end;
  1174.          if listBox2.Count>1 then
  1175.           begin
  1177.            for mm:=1 to 9 do
  1178.               if TF[mm]='t'   then
  1179.               begin
  1181.              query1.SQL.Add(' and tno not like  '''+inttostr(mm)+'%''');
  1182.          //  showmessage(query1.SQL.Text);
  1183.            end;
  1184.               end;
  1185.        end;
  1186.     query1.Open;
  1187.     query1.First;
  1188. {
  1189.      //     showmessage('readprobegib');
  1190.       if ComboBox1.ItemIndex=-1 then
  1191.       begin
  1192.    query1.Close;
  1193.    query1.SQL.Clear;
  1194.    query1.SQL.add('select tno from ti_readpro');
  1195.    query1.Open;
  1196.    query1.First;
  1197.       end;
  1198.    if ComboBox1.ItemIndex=0 then
  1199.       begin
  1200.    query1.Close;
  1201.    query1.SQL.Clear;
  1202.    query1.SQL.add('select tno from ti_readpro where tno not like ''1%%%''');
  1203.    query1.Open;
  1204.    query1.First;
  1206.       end;
  1207.       if ComboBox1.ItemIndex=1 then
  1208.       begin
  1209.    query1.Close;
  1210.    query1.SQL.Clear;
  1211.    query1.SQL.add('select tno from ti_readpro where tno not like ''2%%%''');
  1212.    query1.Open;
  1213.    query1.First;
  1215.       end;
  1216.       if ComboBox1.ItemIndex=2 then
  1217.       begin
  1218.    query1.Close;
  1219.    query1.SQL.Clear;
  1220.    query1.SQL.add('select tno from ti_readpro where tno not like ''3%%%''');
  1221.    query1.Open;
  1222.    query1.First;
  1224.       end;
  1225.       if ComboBox1.ItemIndex=3 then
  1226.       begin
  1227.    query1.Close;
  1228.    query1.SQL.Clear;
  1229.    query1.SQL.add('select tno from ti_readpro where tno not like ''4%%%''');
  1230.    query1.Open;
  1231.    query1.First;
  1233.       end;
  1234.       if ComboBox1.ItemIndex=4 then
  1235.       begin
  1236.    query1.Close;
  1237.    query1.SQL.Clear;
  1238.    query1.SQL.add('select tno from ti_readpro where tno not like ''5%%%''');
  1239.    query1.Open;
  1240.    query1.First;
  1242.       end;
  1243.       if ComboBox1.ItemIndex=5 then
  1244.       begin
  1245.    query1.Close;
  1246.    query1.SQL.Clear;
  1247.    query1.SQL.add('select tno from ti_readpro where tno not like ''6%%%''');
  1248.    query1.Open;
  1249.    query1.First;
  1251.       end;
  1252.       if ComboBox1.ItemIndex=6 then
  1253.       begin
  1254.    query1.Close;
  1255.    query1.SQL.Clear;
  1256.    query1.SQL.add('select tno from ti_readpro where tno not like ''7%%%''');
  1257.    query1.Open;
  1258.    query1.First;
  1260.       end;
  1261.       if ComboBox1.ItemIndex=7 then
  1262.       begin
  1263.    query1.Close;
  1264.    query1.SQL.Clear;
  1265.    query1.SQL.add('select tno from ti_readpro where tno not like ''8%%%''');
  1266.    query1.Open;
  1267.    query1.First;
  1269.       end;
  1270.       if ComboBox1.ItemIndex=8 then
  1271.       begin
  1272.    query1.Close;
  1273.    query1.SQL.Clear;
  1274.    query1.SQL.add('select tno from ti_readpro where tno not like ''9%%%''');
  1275.    query1.Open;
  1276.    query1.First;
  1278.       end;
  1281.             }
  1283. while not query1.Eof do
  1284. begin
  1285.       hade:=false;
  1286.       if i=1 then
  1287.       begin
  1289.      thao[i]:=((Query1.FieldValues['tno']) div 10);
  1290.    //   memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  1291.       end
  1292.       else
  1293.        if i>1 then
  1294.       begin
  1296.           for  j:=i-1 downto 1 do
  1297.           begin
  1299.            if thao[j]=((Query1.FieldValues['tno']) div 10) then
  1300.              begin
  1301.              t:=true ;
  1302.              break;
  1303.              end
  1304.             else
  1305.              t:=false;
  1306.            end;
  1309.           if not t then
  1310.          begin
  1311.        thao[i]:=((Query1.FieldValues['tno']) div 10);
  1312.    //      memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  1313.         t:=false;
  1314.        end;
  1315.       end;
  1317.    query1.Next;
  1319.    if not t then
  1320.       i:=i+1;
  1321.  end;
  1323.           temp:=random(i-1)+1;
  1324.    r:=thao[temp];
  1325.  
  1326.    q:=random(9)+1;
  1327.     ran:=r*10+q;
  1332.     //  if m=1 then
  1333.     // havetake[1]:=0000;
  1334.      // else if
  1335.      for m:=1 to 800 do havetake[m]:=0;
  1336.     for m:=1  to 800 do
  1337.     begin
  1338.     if havetake[m]=ran then
  1339.       begin
  1340.       showmessage('chongfu');
  1341.        hade:=true;
  1342.        break;
  1343.        end;
  1344.     end;
  1345.     if not hade then
  1346.       begin
  1347.       for m:=0 to 800 do
  1348.         if havetake[m]=0 then
  1349.           begin
  1350.           havetake[m]:=ran;
  1351.           break;
  1352.           end;
  1356.   //    showmessage(inttostr(ran));
  1357.     query1.Close;
  1358.     query1.SQL.Clear;
  1359.     query1.SQL.Add('select tigan,ctigan1,x1a,x1b,x1c,x1d,ctigan2,x2a,x2b,x2c,x2d,ctigan3,x3a,x3b,x3c,x3d,answer1,answer2,answer3,difficulty from ti_readpro where tno=:no');
  1360.     query1.ParamByName('no').Value:=ran;
  1362.     query1.Open;
  1364.     if readpronumber<>0 then
  1365.     begin
  1366.           
  1367.     if query1.RecordCount<>0 then// continue//showmessage('ddd')
  1368.    // else
  1370.      begin
  1372.      n:= strtoint(query1.FieldByName('difficulty').AsString);
  1373.  if   diff[n] <>0 then
  1374.     // if definediff[strtoint(query1.fieldbyname('difficulty').AsString)]<>0   then
  1376.           begin
  1378.             tt:=tt+1;
  1379.            // memo1.Text:=memo1.Text+'程序阅读题';
  1380.  //  showmessage(inttostr(ran));
  1381.     memo1.Text:=memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('tigan').AsString+#13#10;
  1382.      memo1.Text:=memo1.Text+query1.fieldbyname('ctigan1').AsString+#13#10;
  1384.      memo1.Text:=memo1.Text+query1.fieldbyname('x1a').AsString+#13#10;
  1385.      memo1.Text:=memo1.Text+query1.fieldbyname('x1b').AsString+#13#10;
  1386.      memo1.Text:=memo1.Text+query1.fieldbyname('x1c').AsString+#13#10;
  1387.      memo1.Text:=memo1.Text+query1.fieldbyname('x1d').AsString+#13#10;
  1388.      if query1.FieldByName('ctigan2').AsString<>'' then
  1389.      begin
  1390.      memo1.Text:=memo1.Text+query1.fieldbyname('ctigan2').AsString+#13#10;
  1391.      memo1.Text:=memo1.Text+query1.fieldbyname('x2a').AsString+#13#10;
  1392.      memo1.Text:=memo1.Text+query1.fieldbyname('x2b').AsString+#13#10;
  1393.      memo1.Text:=memo1.Text+query1.fieldbyname('x2c').AsString+#13#10;
  1394.      memo1.Text:=memo1.Text+query1.fieldbyname('x2d').AsString+#13#10;
  1395.      end;
  1396.        if query1.FieldByName('ctigan3').AsString<>'' then
  1397.      begin
  1398.      memo1.Text:=memo1.Text+query1.fieldbyname('ctigan3').AsString+#13#10;
  1399.      memo1.Text:=memo1.Text+query1.fieldbyname('x3a').AsString+#13#10;
  1400.      memo1.Text:=memo1.Text+query1.fieldbyname('x3b').AsString+#13#10;
  1401.      memo1.Text:=memo1.Text+query1.fieldbyname('x3c').AsString+#13#10;
  1402.      memo1.Text:=memo1.Text+query1.fieldbyname('x3d').AsString+#13#10;
  1403.      end;
  1404.        autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+query1.Fieldbyname('answer1').AsString+#13#10;
  1405.        if query1.FieldByName('answer2').AsString<>'' then
  1406.        autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+query1.Fieldbyname('answer2').AsString+#13#10;
  1407.        if query1.FieldByName('answer3').AsString<>'' then
  1408.        autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+inttostr(tt)+'、'+query1.Fieldbyname('answer3').AsString+#13#10;
  1410.     readpronumber:=readpronumber-1;
  1411.      n:=n-1;
  1412.    // strtoint(query1.fieldbyname('difficulty').AsString):=strtoint(query1.fieldbyname('difficulty').AsString)-1;
  1413.        end;
  1416.         end;
  1417.        end;
  1418.  //i:=thao[]
  1421.        end;
  1423.      //    showmessage('readprostop');
  1424.        end;
  1425.         //   showmessage(inttostr(procedurenumber));
  1426.         progressbar1.Position:=progressbar1.Position+re;
  1431. if definepaperform.DBEdit15.Text<>'0' then
  1432. begin
  1433.        tt:=0;
  1434.    paperautoform.Memo1.Text:=paperautoform.Memo1.Text+''+#13#10+tmno[pp]+'编程题'+'(共'+definepaperform.DBEdit15.Text+'小题，每题'+definepaperform.DBEdit16.Text+'分，小计'+definepaperform.DBEdit17.Text+'分）.'+#13#10+'';
  1436.   autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+''+#13#10+tmno[pp]+'编程题：'+#13#10+'';
  1437.      pp:=pp+1;
  1438.      end;
  1439.         //编程题
  1440.        //------------------------------------------------------------------------
  1441.        //-----------------------------------------------------------------------
  1442.        while procedurenumber<>0 do
  1443.        begin
  1445.        query1.Close;
  1446.        query1.SQL.Clear;
  1447.        query1.SQL.Add('select tno from ti_procedure') ;
  1448.        if ListBox2.Count>=1 then
  1449.        begin
  1450.        // if ListBox2.Count=1 then
  1451.             for mm:=1 to 9 do
  1452.             begin
  1453.             if TF[mm]='t' then
  1454.             begin
  1455.             query1.SQL.Add(' where tno not like  '''+inttostr(mm)+'%''');
  1456.             break;
  1457.             end;
  1458.             end;
  1459.          if listBox2.Count>1 then
  1460.           begin
  1462.            for mm:=1 to 9 do
  1463.               if TF[mm]='t'   then
  1464.               begin
  1466.              query1.SQL.Add(' and tno not like  '''+inttostr(mm)+'%''');
  1467.        //    showmessage(query1.SQL.Text);
  1468.            end;
  1469.               end;
  1470.        end;
  1471.     query1.Open;
  1472.     query1.First;
  1473. {
  1477.      //    showmessage('procedurebdgin');
  1478.       if ComboBox1.ItemIndex=-1 then
  1479.       begin
  1480.    query1.Close;
  1481.    query1.SQL.Clear;
  1482.    query1.SQL.add('select tno from ti_procedure');
  1483.    query1.Open;
  1484.    query1.First;
  1485.       end;
  1486.    if ComboBox1.ItemIndex=0 then
  1487.       begin
  1488.    query1.Close;
  1489.    query1.SQL.Clear;
  1490.    query1.SQL.add('select tno from ti_procedure where tno not like ''1%%%''');
  1491.    query1.Open;
  1492.    query1.First;
  1494.       end;
  1495.       if ComboBox1.ItemIndex=1 then
  1496.       begin
  1497.    query1.Close;
  1498.    query1.SQL.Clear;
  1499.    query1.SQL.add('select tno from ti_procedure where tno not like ''2%%%''');
  1500.    query1.Open;
  1501.    query1.First;
  1503.       end;
  1504.       if ComboBox1.ItemIndex=2 then
  1505.       begin
  1506.    query1.Close;
  1507.    query1.SQL.Clear;
  1508.    query1.SQL.add('select tno from ti_procedure where tno not like ''3%%%''');
  1509.    query1.Open;
  1510.    query1.First;
  1512.       end;
  1513.       if ComboBox1.ItemIndex=3 then
  1514.       begin
  1515.    query1.Close;
  1516.    query1.SQL.Clear;
  1517.    query1.SQL.add('select tno from ti_procedure where tno not like ''4%%%''');
  1518.    query1.Open;
  1519.    query1.First;
  1521.       end;
  1522.       if ComboBox1.ItemIndex=4 then
  1523.       begin
  1524.    query1.Close;
  1525.    query1.SQL.Clear;
  1526.    query1.SQL.add('select tno from ti_procedure where tno not like ''5%%%''');
  1527.    query1.Open;
  1528.    query1.First;
  1530.       end;
  1531.       if ComboBox1.ItemIndex=5 then
  1532.       begin
  1533.    query1.Close;
  1534.    query1.SQL.Clear;
  1535.    query1.SQL.add('select tno from ti_procedure where tno not like ''6%%%''');
  1536.    query1.Open;
  1537.    query1.First;
  1539.       end;
  1540.       if ComboBox1.ItemIndex=6 then
  1541.       begin
  1542.    query1.Close;
  1543.    query1.SQL.Clear;
  1544.    query1.SQL.add('select tno from ti_procedure where tno not like ''7%%%''');
  1545.    query1.Open;
  1546.    query1.First;
  1548.       end;
  1549.       if ComboBox1.ItemIndex=7 then
  1550.       begin
  1551.    query1.Close;
  1552.    query1.SQL.Clear;
  1553.    query1.SQL.add('select tno from ti_procedure where tno not like ''8%%%''');
  1554.    query1.Open;
  1555.    query1.First;
  1557.       end;
  1558.       if ComboBox1.ItemIndex=8 then
  1559.       begin
  1560.    query1.Close;
  1561.    query1.SQL.Clear;
  1562.    query1.SQL.add('select tno from ti_procedure where tno not like ''9%%%''');
  1563.    query1.Open;
  1564.    query1.First;
  1566.       end;
  1570.                 }
  1571. while not query1.Eof do
  1572. begin
  1573.       hade:=false;
  1574.       if i=1 then
  1575.       begin
  1577.      thao[i]:=((Query1.FieldValues['tno']) div 10);
  1578.    //   memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  1579.       end
  1580.       else
  1581.        if i>1 then
  1582.       begin
  1584.           for  j:=i-1 downto 1 do
  1585.           begin
  1587.            if thao[j]=((Query1.FieldValues['tno']) div 10) then
  1588.              begin
  1589.              t:=true ;
  1590.              break;
  1591.              end
  1592.             else
  1593.              t:=false;
  1594.            end;
  1597.           if not t then
  1598.          begin
  1599.        thao[i]:=((Query1.FieldValues['tno']) div 10);
  1600.    //      memo1.Text:=memo1.Text+inttostr(thao[i])+'  ';
  1601.         t:=false;
  1602.        end;
  1603.       end;
  1605.    query1.Next;
  1607.    if not t then
  1608.       i:=i+1;
  1609.  end;
  1611.           temp:=random(i-1)+1;
  1612.    r:=thao[temp];
  1613.  
  1614.    q:=random(9)+1;
  1615.     ran:=r*10+q;
  1620.     //  if m=1 then
  1621.     // havetake[1]:=0000;
  1622.      // else if
  1623.      for m:=1 to 800 do havetake[m]:=0;
  1624.     for m:=1  to 800 do
  1625.     begin
  1626.     if havetake[m]=ran then
  1627.       begin
  1628.       showmessage('chongfu');
  1629.        hade:=true;
  1630.        break;
  1631.        end;
  1632.     end;
  1633.     if not hade then
  1634.       begin
  1635.       for m:=0 to 800 do
  1636.         if havetake[m]=0 then
  1637.           begin
  1638.           havetake[m]:=ran;
  1639.           break;
  1640.           end;
  1644.   //    showmessage(inttostr(ran));
  1645.     query1.Close;
  1646.     query1.SQL.Clear;
  1647.     query1.SQL.Add('select tigan,answer,difficulty from ti_procedure where tno=:no');
  1648.     query1.ParamByName('no').Value:=ran;
  1650.     query1.Open;
  1652.     if procedurenumber<>0 then
  1653.     begin
  1654.    
  1656.     if query1.RecordCount<>0 then// continue//showmessage('ddd')
  1657.    //   else
  1658.      begin
  1660.      n:= strtoint(query1.FieldByName('difficulty').AsString);
  1661.  if   diff[n] <>0 then
  1662.     // if definediff[strtoint(query1.fieldbyname('difficulty').AsString)]<>0   then
  1664.           begin
  1665.                tt:=tt+1;
  1667.               //   memo1.Text:=memo1.Text+'编程题';
  1668. //  showmessage(inttostr(ran));
  1669.     memo1.Text:=memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('tigan').AsString+#13#10;
  1670.     autoanswerform.Memo1.Text:=autoanswerform.Memo1.Text+inttostr(tt)+'、'+query1.fieldbyname('answer').AsString+#13#10;
  1671.     procedurenumber:=procedurenumber-1;
  1672.      n:=n-1;
  1673.    // strtoint(query1.fieldbyname('difficulty').AsString):=strtoint(query1.fieldbyname('difficulty').AsString)-1;
  1674.        end;
  1677.         end;
  1678.        end;
  1679.  //i:=thao[]
  1682.        end;
  1683.     end;
  1684.        //  showmessage('pocedurestop');
  1685.        progressbar1.Position:=progressbar1.Position+p;
  1686.     Label3.Hide;
  1687.     showmessage('试卷提取完毕！');
  1688.     for cc:=1 to 9 do
  1689.     TF[cc]:='f';
  1690.        
  1691. end;
  1693. procedure Tpaperautoform.FormShow(Sender: TObject);
  1694. begin
  1695. choosenumber:=strtoint(definepaperform.DBEdit3.Text);
  1696. judgenumber:=strtoint(definepaperform.DBEdit4.Text);
  1697. filltextnumber:=strtoint(definepaperform.DBEdit12.Text);
  1698. readpronumber:=strtoint(definepaperform.DBEdit5.Text);
  1699. procedurenumber:=strtoint(definepaperform.DBEdit15.Text);
  1700. //showmessage(inttostr(choosenumber)+'    '+inttostr(judgenumber)+'   '+inttostr(filltextnumber)+'    '+inttostr(readpronumber)+'     '+inttostr(procedurenumber));
  1701. paperallnumber:=choosenumber+judgenumber+filltextnumber+readpronumber+procedurenumber;
  1702. end;
  1704. procedure Tpaperautoform.FormCreate(Sender: TObject);
  1705. begin
  1706. label3.Hide;
  1708. end;
  1710. procedure Tpaperautoform.BitBtn1MouseDown(Sender: TObject;
  1711.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1712. begin
  1713. if ComboBox2.Text<>'' then
  1714. label3.Show;
  1715. end;
  1717. procedure Tpaperautoform.ComboBox2Change(Sender: TObject);
  1718. var
  1719. i,j:integer;
  1720. begin
  1722. choosenumber:=strtoint(definepaperform.DBEdit3.Text);
  1723. judgenumber:=strtoint(definepaperform.DBEdit4.Text);
  1724. filltextnumber:=strtoint(definepaperform.DBEdit12.Text);
  1725. readpronumber:=strtoint(definepaperform.DBEdit5.Text);
  1726. procedurenumber:=strtoint(definepaperform.DBEdit15.Text);
  1727. //showmessage(inttostr(choosenumber)+'    '+inttostr(judgenumber)+'   '+inttostr(filltextnumber)+'    '+inttostr(readpronumber)+'     '+inttostr(procedurenumber));
  1728. paperallnumber:=choosenumber+judgenumber+filltextnumber+readpronumber+procedurenumber;
  1729.  
  1730. paperautoform.ProgressBar1.Position:=0;
  1731. memo1.Text:='';
  1732. exit;
  1733. for i:=0 to 800 do
  1734. begin
  1735.  paperautoform.thao[i]:=0;
  1736.  paperautoform.havetake[i]:=0;
  1737.  end;
  1739.  for j:=1 to 5 do
  1740.  paperautoform.diff[j]:=0;
  1742.     query1.Close;
  1743.     query1.Open;
  1745. end;
  1747. procedure Tpaperautoform.SpeedButton1Click(Sender: TObject);
  1748. var
  1749. i:integer;
  1750. begin
  1751. for i:=0 to ListBox1.Items.Count-1 do
  1752. if ListBox1.Selected[i] then
  1753. begin
  1754. ListBox2.Items.Append(ListBox1.Items[i]);
  1755. ListBox1.Items.Delete(i);
  1756. break;
  1758. end;
  1759. end;
  1761. procedure Tpaperautoform.SpeedButton2Click(Sender: TObject);
  1762. var
  1763. i:integer;
  1764. begin
  1765. for i:=ListBox2.Items.Count-1 downto 0 do
  1766.  if ListBox2.Selected[i] then
  1767.  begin
  1768.   ListBox1.Items.Append(ListBox2.Items[i]);
  1769.   ListBox2.Items.Delete(i);
  1770.  
  1771.  break;
  1772.    end;
  1776. //end;
  1777. end;
  1779. procedure Tpaperautoform.N1Click(Sender: TObject);
  1780. begin
  1781.     autoanswerform.Show;
  1782. end;
  1784. procedure Tpaperautoform.N24Click(Sender: TObject);
  1785. begin
  1786. //mainform.papertime:=mainform.papertime+1;
  1787.   query1.Close;
  1788.    query1.SQL.Clear;
  1789.    query1.SQL.text:='insert into papermanager values(:gg,''自动'',:ss,:dd)'  ;
  1791. // query1.ParamByName('nn').AsInteger:=mainform.papertime;
  1792.  query1.ParamByName('gg').AsString:=definepaperform.DBEdit1.Text;
  1793.  query1.ParamByName('ss').AsString:=paperautoform.Memo1.Text  ;
  1794.  query1.ParamByName('dd').AsString:=autoanswerform.Memo1.Text     ;
  1796. //  query1.ParamByName('hh').AsInteger:=strtoint(definepaperform.DBEdit18.Text) ;
  1797.    query1.ExecSQL;
  1798.    DataModule4.Table_papermanager.Active:=false;
  1799.    DataModule4.Table_papermanager.Active:=true;
  1800. end;
  1802. procedure Tpaperautoform.N9Click(Sender: TObject);
  1803. begin
  1804. memo1.Undo;
  1805. end;
  1807. procedure Tpaperautoform.N10Click(Sender: TObject);
  1808. begin
  1809. memo1.CutToClipboard;
  1810. end;
  1812. procedure Tpaperautoform.N11Click(Sender: TObject);
  1813. begin
  1814. memo1.CopyToClipboard;
  1815. end;
  1817. procedure Tpaperautoform.N7Click(Sender: TObject);
  1818. begin
  1820.   query1.Close;
  1821.    query1.SQL.Clear;
  1822.     query1.SQL.text:='insert into papermanager values(:gg,''自动'',:ss,:dd)'  ;
  1825. query1.ParamByName('gg').AsString:=definepaperform.DBEdit1.Text;
  1826.  query1.ParamByName('ss').AsString:=paperautoform.Memo1.Text ;
  1827.  query1.ParamByName('dd').AsString:=autoanswerform.Memo1.Text ;
  1830. //  query1.ParamByName('hh').AsInteger:=strtoint(definepaperform.DBEdit18.Text) ;
  1831.    query1.ExecSQL;
  1832.   //  mainform.papertime:=mainform.papertime+1;
  1833. //savedialog1.Title:='保存生成后的试卷';
  1834. //savedialog1.FileName:=fname;
  1835. //if savedialog1.Execute then
  1836.  //  begin
  1837.   // filename:=savedialog1.FileName;
  1838.  //  memo1.Lines.SaveToFile(filename+'.doc');
  1839.  //  end;
  1841.  DataModule4.Table_papermanager.Active:=false;
  1842.    DataModule4.Table_papermanager.Active:=true;
  1843. end;
  1845. procedure Tpaperautoform.N8Click(Sender: TObject);
  1846. begin
  1847. close;
  1848. end;
  1850. end.