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

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

教育系统应用

开发平台：

Delphi

Unit17.pas：源码内容
  1. unit Unit17;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Menus, DB, DBTables;
  9. type
  10.   Tpapermadeform = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     N3: TMenuItem;
  13.     N24: TMenuItem;
  14.     N26: TMenuItem;
  15.     N5: TMenuItem;
  16.     N19: TMenuItem;
  17.     N6: TMenuItem;
  18.     N21: TMenuItem;
  19.     FontDialog1: TFontDialog;
  20.     Memo1: TMemo;
  21.     N1: TMenuItem;
  22.     Query1: TQuery;
  23.     N4: TMenuItem;
  24.     N7: TMenuItem;
  25.     N8: TMenuItem;
  26.     N9: TMenuItem;
  27.     N10: TMenuItem;
  28.     N11: TMenuItem;
  29.     procedure N22Click(Sender: TObject);
  30.     procedure N26Click(Sender: TObject);
  31.     procedure U1Click(Sender: TObject);
  32.     procedure N12Click(Sender: TObject);
  33.     procedure N13Click(Sender: TObject);
  34.     procedure N14Click(Sender: TObject);
  35.     procedure N16Click(Sender: TObject);
  36.     procedure N19Click(Sender: TObject);
  37.     procedure N24Click(Sender: TObject);
  38.     procedure N1Click(Sender: TObject);
  39.     procedure N2Click(Sender: TObject);
  40.     procedure N7Click(Sender: TObject);
  41.     procedure N8Click(Sender: TObject);
  42.     procedure N9Click(Sender: TObject);
  43.     procedure N10Click(Sender: TObject);
  44.     procedure N11Click(Sender: TObject);
  45.   private
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.   end;
  51. var
  52.   papermadeform: Tpapermadeform;
  53.    fname:string;
  54. implementation
  55.    //  uses  Unit19;
  56. uses printers,Unit19, Unit10, Unit3, Unit4;
  58. {$R *.dfm}
  60. procedure Tpapermadeform.N22Click(Sender: TObject);
  61. begin
  62.  //  memo1.Clear;
  63. //if opendialog1.Execute then
  64. //begin
  65. //fname:=opendialog1.FileName;
  66. //memo1.Lines.LoadFromFile(fname);
  67. //editpaperform.Caption:=editpaperform.Caption+'['+fname+']';
  69. //end;
  70. end;
  72. procedure Tpapermadeform.N26Click(Sender: TObject);
  73. begin
  74.  close;
  75. end;
  77. procedure Tpapermadeform.U1Click(Sender: TObject);
  78. begin
  79. memo1.Undo;
  80. end;
  82. procedure Tpapermadeform.N12Click(Sender: TObject);
  83. begin
  84. memo1.CutToClipboard;
  85. end;
  87. procedure Tpapermadeform.N13Click(Sender: TObject);
  88. begin
  89. memo1.CopyToClipboard;
  90. end;
  92. procedure Tpapermadeform.N14Click(Sender: TObject);
  93. begin
  94. memo1.PasteFromClipboard;
  95. end;
  97. procedure Tpapermadeform.N16Click(Sender: TObject);
  98. begin
  99. memo1.SelectAll;
  100. //papermadeform.N14.Enabled:=true;
  101. //papermadeform.N13.Enabled:=true;
  102. end;
  104. procedure Tpapermadeform.N19Click(Sender: TObject);
  105. begin
  106. if fontdialog1.Execute then
  107. begin
  108. memo1.Font:=fontdialog1.Font;
  109. end;
  110. end;
  112. procedure Tpapermadeform.N24Click(Sender: TObject);
  113. //var
  114. //filename:string;
  115. begin
  116. //mainform.papertime:=mainform.papertime+1;
  117.   query1.Close;
  118.    query1.SQL.Clear;
  119.   // query1.SQL.text:='insert into papermanager values('''+inttostr(mainform.papertime)+''','''+definepaperform.DBEdit1.Text+''',''手动'','''+papermadeform.Memo1.Text+''','''+madeanswerform.Memo1.Text+''')'  ;
  120.     query1.SQL.text:='insert into papermanager values(:gg,''手动'',:ss,:dd)'  ;
  122. //   query1.ParamByName('nn').AsInteger:=mainform.papertime;
  123. query1.ParamByName('gg').AsString:=definepaperform.DBEdit1.Text;
  124.  query1.ParamByName('ss').AsString:=papermadeform.Memo1.Text ;
  125.  query1.ParamByName('dd').AsString:=madeanswerform.Memo1.Text ;
  128. //  query1.ParamByName('hh').AsInteger:=strtoint(definepaperform.DBEdit18.Text) ;
  129.    query1.ExecSQL;
  130.   //  mainform.papertime:=mainform.papertime+1;
  131. //savedialog1.Title:='保存生成后的试卷';
  132. //savedialog1.FileName:=fname;
  133. //if savedialog1.Execute then
  134.  //  begin
  135.   // filename:=savedialog1.FileName;
  136.  //  memo1.Lines.SaveToFile(filename+'.doc');
  137.  //  end;
  139.  DataModule4.Table_papermanager.Active:=false;
  140.    DataModule4.Table_papermanager.Active:=true;
  142. end;
  144. procedure Tpapermadeform.N1Click(Sender: TObject);
  145. begin
  146. madeanswerform.Show;
  148. end;
  150. procedure Tpapermadeform.N2Click(Sender: TObject);
  151. //var lines :integer;
  152.  //   prntext:system.text;
  153. begin
  155. Screen.Cursor:=crHourGlass;
  156.   try
  157.     print;
  158.     ShowMessage('打印完毕');
  159.   finally
  160.     Screen.Cursor:=crDefault;
  161.   end;
  162.   {
  163.     if printdialog1.Execute then
  164.     assignprn(prntext);
  165.     rewrite(prntext);
  166.     printer.canvas.Font:=memo1.font;
  167.     for lines:=0 to memo1.Lines.Count-1 do
  168.     begin
  169.     writeln(prntext,memo1.lines[lines]);
  170.     system.Close(prntext);
  171.     end;     }
  172. end;
  174. procedure Tpapermadeform.N7Click(Sender: TObject);
  175. begin
  176. memo1.Undo;
  177. end;
  179. procedure Tpapermadeform.N8Click(Sender: TObject);
  180. begin
  181. memo1.CutToClipboard;
  182. end;
  184. procedure Tpapermadeform.N9Click(Sender: TObject);
  185. begin
  186. memo1.CopyToClipboard;
  187. end;
  189. procedure Tpapermadeform.N10Click(Sender: TObject);
  190. begin
  191. Memo1.PasteFromClipboard;
  192. end;
  194. procedure Tpapermadeform.N11Click(Sender: TObject);
  195. begin
  196. memo1.SelectAll;
  197. papermadeform.N10.Enabled:=true;
  198. papermadeform.N9.Enabled:=true;
  199. end;
  201. end.
  202.