unit5.~pas

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

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls,unit1,unit7, Grids, DBGrids;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    DBGrid1: TDBGrid;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit10, Unit11, Unit12;

{$R *.dfm}

procedure TForm5.N2Click(Sender: TObject);
var
search:string;
begin
search:=trim(form1.Edit1.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('select * from teacher where 教师号='''+search+'''');
datamodule7.ADOQuery1.Open;
end;

procedure TForm5.N3Click(Sender: TObject);
begin
form10.show;
form5.Close;
end;

procedure TForm5.N5Click(Sender: TObject);
var
search:string;
str : string;
begin
str := 'select 课程名,课程类别,教材 from tc,cc where tc.课程号=cc.课程号 and tc.教师号 ='''
      +Form1.Edit1.Text+'''';
search:=trim(form1.Edit1.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add(str);
datamodule7.ADOQuery1.Open;

end;

procedure TForm5.N6Click(Sender: TObject);
begin
form11.show;
form5.close;
end;

procedure TForm5.N7Click(Sender: TObject);
var
//search:string;
str : string;
begin
str := 'select Student.学生号 ,Student.学生名 ,cc.课程名 ,cc.教材 ,sc.分数  from tc,cc,sc,Student where tc.课程号=cc.课程号 and cc.课程号=sc.课程号 and sc.学生号=student.学生号 and tc.教师号 ='''
      +Form1.Edit1.Text+'''';
//search:=trim(form1.Edit1.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add(str);
datamodule7.ADOQuery1.Open;

end;

procedure TForm5.N8Click(Sender: TObject);
begin
form12.show;
form5.Close;
end;

end.