unit5.pas

主要实现试卷的录入

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;

type
  TFrmSJSC = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    ScrollBox1: TScrollBox;
    Memo1: TMemo;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormHide(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSJSC: TFrmSJSC;

implementation
uses unit2, Unit1;

{$R *.dfm}

procedure TFrmSJSC.FormHide(Sender: TObject);
begin
  DataModule1.ADOQuery1.Active:=false;
  memo1.Lines.Clear;
end;

procedure TFrmSJSC.Button1Click(Sender: TObject);
var s:string;
  i:integer;
begin
    memo1.Lines.Clear;
  with datamodule1 do
  begin
    adodataset2.Close;
    adodataset2.CommandText:='select sjnr from sj where sjbh='+edit1.Text;
    adodataset2.Open;
    s:=adodataset2.Fields[0].asstring;
    adodataset2.Close;
    s:= 'select tmnr from st where th in ('+s+')';
    adodataset2.CommandText:=s;
    adodataset2.Open;
  while not adodataset2.Eof do
    begin
       memo1.Lines.Append(adodataset2.Fields[0].asstring);//
       adodataset2.Next;
    end;
  end;
end;

procedure TFrmSJSC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   form1.visible:=true;
end;

end.