Category

Development Platform
Home > SourceCode/Document > Applications > Education soft system > View Code
Unit20.pas
Package: 毕业设计(带论文)—试卷生成系统.rar　[view]
Upload User: szyozho
Upload Date: 2013-04-13
Package Size: 3688k
Code Size: 3k
Category:

Education soft system

Development Platform:

Delphi

Unit20.pas：Code Content
  1. unit Unit20;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, DBCtrls, Mask, StdCtrls, ComCtrls, ExtCtrls;
  9. type
  10.   Tpapermanageform = class(TForm)
  11.     Panel1: TPanel;
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     DBMemo1: TDBMemo;
  16.     DBMemo2: TDBMemo;
  17.     DBEdit1: TDBEdit;
  18.     DBNavigator1: TDBNavigator;
  19.     MainMenu1: TMainMenu;
  20.     N3: TMenuItem;
  21.     N26: TMenuItem;
  22.     P1: TMenuItem;
  23.     N2: TMenuItem;
  24.     N5: TMenuItem;
  25.     N19: TMenuItem;
  26.     N6: TMenuItem;
  27.     N21: TMenuItem;
  28.     FontDialog1: TFontDialog;
  29.     PrintDialog1: TPrintDialog;
  30.     EXT1: TMenuItem;
  31.     EXT2: TMenuItem;
  32.     SaveDialog1: TSaveDialog;
  33.     procedure N26Click(Sender: TObject);
  34.     procedure N19Click(Sender: TObject);
  35.     procedure DBEdit1Change(Sender: TObject);
  36.     procedure N2Click(Sender: TObject);
  37.     procedure N8Click(Sender: TObject);
  38.     procedure N4Click(Sender: TObject);
  39.     procedure N7Click(Sender: TObject);
  40.     procedure EXT1Click(Sender: TObject);
  41.     procedure EXT2Click(Sender: TObject);
  42. //    procedure N10Click(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  49. var
  50.   papermanageform: Tpapermanageform;
  51.    fname:string;
  52. implementation
  54. uses Unit4, Unit14, Unit18;
  56. {$R *.dfm}
  58. procedure Tpapermanageform.N26Click(Sender: TObject);
  59. begin
  60. papermanageform.Close;
  61. end;
  63. procedure Tpapermanageform.N19Click(Sender: TObject);
  64. begin
  65. if fontdialog1.Execute then
  66. begin
  67. DBMemo1.Font:=fontdialog1.Font;
  68. DBMemo2.Font:=fontdialog1.Font;
  69. end;
  70. end;
  72. procedure Tpapermanageform.DBEdit1Change(Sender: TObject);
  73. begin
  74. DBEdit1.Text:=DataModule4.Table_papermanager.fieldbyname('jname').AsString+'   '+'('+DataModule4.Table_papermanager.fieldbyname('sign').AsString+')';
  75. end;
  77. procedure Tpapermanageform.N2Click(Sender: TObject);
  78. begin
  79. Screen.Cursor:=crHourGlass;
  80.   try
  81.     print;
  82.     ShowMessage('打印完毕');
  83.   finally
  84.     Screen.Cursor:=crDefault;
  85.   end;
  86. end;
  88. procedure Tpapermanageform.N8Click(Sender: TObject);
  89. begin
  90. DBmemo1.CopyToClipboard;
  91. end;
  93. procedure Tpapermanageform.N4Click(Sender: TObject);
  94. begin
  95. DBmemo1.Undo;
  96. end;
  98. procedure Tpapermanageform.N7Click(Sender: TObject);
  99. begin
  100. DBmemo1.CutToClipboard;
  101. end;
  102.   {
  103. procedure Tpapermanageform.N10Click(Sender: TObject);
  104. begin
  105. memo1.SelectAll;
  106. papermanageform.N8.Enabled:=true;
  107. papermanageform.N9.Enabled:=true;
  108. end;
  109.       }
  110. procedure Tpapermanageform.EXT1Click(Sender: TObject);
  111. var
  112. filename:string;
  113. begin
  114. savedialog1.Title:='保存试卷';
  115. savedialog1.FileName:=fname;
  116. if savedialog1.Execute then
  117.    begin
  118.    filename:=savedialog1.FileName;
  119.    DBmemo1.Lines.SaveToFile(filename+'.rtf');
  120.    end;
  121. end;
  123. procedure Tpapermanageform.EXT2Click(Sender: TObject);
  124. var filename:string;
  125. begin
  126. savedialog1.Title:='保存试卷答案';
  127. savedialog1.FileName:=fname;
  128. if savedialog1.Execute then
  129.    begin
  130.    filename:=savedialog1.FileName;
  131.    DBmemo2.Lines.SaveToFile(filename+'.rtf');
  132.    end;
  133. end;
  135. end.