w_makepaper.~pas

来自「很不错很实用的学生联机考试系统」· ~PAS 代码 · 共 123 行

unit w_makepaper;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids, ComCtrls;

type
  Tmakepaper = class(TForm)
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    DataSource1: TDataSource;
    Label1: TLabel;
    DataSource2: TDataSource;
    DBGrid3: TDBGrid;
    Button4: TButton;
    Query1: TQuery;
    Query2: TQuery;
    Edit1: TEdit;
    Button5: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    DBEdit4: TDBEdit;
    Label9: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button7: TButton;
    Button3: TButton;
    Button2: TButton;
    Button6: TButton;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  makepaper: Tmakepaper;

implementation
uses w_pvpaper ;

{$R *.dfm}

procedure Tmakepaper.Button1Click(Sender: TObject);
begin
   query2.Append;
end;

procedure Tmakepaper.FormCreate(Sender: TObject);
begin
   query2.CachedUpdates:=true;
   DBgrid1.ReadOnly:=false;
   DBgrid3.ReadOnly:=false;
 //  query2.RequestLive:=true;

end;

procedure Tmakepaper.Button3Click(Sender: TObject);
begin
   query2.ApplyUpdates;
   button2.Enabled:=true;
end;

procedure Tmakepaper.Button6Click(Sender: TObject);
begin
Close;
end;

procedure Tmakepaper.Button4Click(Sender: TObject);
begin
    query1.SQL.Clear;
    query1.SQL.Add('select * from questionlib where subject = '''+Edit1.Text+'''');
    Query1.Open;
    if(Query1.IsEmpty ) then
    begin
    ShowMessage('没有这个科目！');
    query1.Active:=false;
    end;
end;

procedure Tmakepaper.Button5Click(Sender: TObject);
begin
    query1.SQL.Clear;
    query1.SQL.Add('select * from questionlib ');
    Query1.Open;
end;

procedure Tmakepaper.Button7Click(Sender: TObject);
begin
     query2.Delete;
     query2.ApplyUpdates;
end;

procedure Tmakepaper.Button2Click(Sender: TObject);
begin
 Application.CreateForm(Tpvpaper,pvpaper);
  pvpaper.Visible:=true;
  button2.Enabled:=false;
   
end;

end.