unit1.pas

如何为 教师和学生准备方便易查的学习资源是课程编制面临的新的巨大的课题。在教学资源的选取上

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit5, Unit6, Unit4;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if combobox1.Text = '教师' then
  begin
  form2.show;
  end
  else if combobox1.text = '学生' then
  begin
  form3.show;
  end

end;

procedure TForm1.Button1Click(Sender: TObject);
var
search:string;
begin
    search:=trim(edit1.Text);
    adoquery1.Close;
    adoquery1.SQL.Clear;
    if combobox1.Text ='教师' then
    begin
      adoquery1.SQL.Add('select 教师号 from teacher where 教师号='''+search+'''');
      adoquery1.Open;
      //adoquery1.Active :=true;
        if  adoquery1.Eof then
        begin
           showmessage('您的号码不存在，请注册信息！');
        end
        else
        begin
           form5.show;
        end
    end
    else if combobox1.Text ='学生' then
    begin
      adoquery1.SQL.Add('select 学生号 from student where 学生号='''+search+'''');
      adoquery1.Open;
      //adoquery1.Active :=true;
        if  adoquery1.Eof then
        begin
           showmessage('您的号码不存在，请注册信息！') ;
        end
        else
        begin
           form6.show;
        end
    end
    else
    begin
    form4.show;
    end

end;

end.