help.pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit help;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids;

type
  TForm13 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    key: TEdit;
    Button1: TButton;
    Label2: TLabel;
    result: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ADOConnection1: TADOConnection;
    keyQry: TADOQuery;
    keyList: TListBox;
    qry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure keyChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses main, logout;

{$R *.dfm}

procedure TForm13.Button2Click(Sender: TObject);
begin
  key.Clear;
end;

procedure TForm13.Button3Click(Sender: TObject);
begin
  Form13.hide;
  Form2.show;
end;

procedure TForm13.Button4Click(Sender: TObject);
begin
   Form13.Hide;
   Form14.show;
//  Application.Terminate;
end;

procedure TForm13.FormShow(Sender: TObject);
begin
  with qry do
    begin
      close;
      with sql do
        begin
          clear;
          add('select 主题 from help ');
         end;
        open;
     end;
     while (not qry.Eof) do
       begin
         keyList.Items.Add(qry.Fields[0].asstring);
         qry.Next;
       end;
      qry.Close;
      qry.Free;  
end;

procedure TForm13.keyChange(Sender: TObject);
var
  //i,j:integer;
  subject:String;
begin
  subject:='没有找到';
  //i:=keyList.count;
  //j:=0;
  with keyQry do
    begin
      close;
      with sql do
        begin
          clear;
          add('select 主题 from help where 主题 like '''+key.Text+'*''');
        end;
        showMessage(sql.Text);
      try
        begin
          open;
          first;
          subject:=fieldbyname('主题').AsString;
          showMessage(subject);
        end;
       except
        showMessage('没有相关记录');
       end;
    end;


 

end;
end.