unit4.pas

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

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls,unit7;

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Button1: TButton;
    ComboBox1: TComboBox;
    Button2: TButton;
    Button3: TButton;
    Label2: TLabel;
    DBGrid2: TDBGrid;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Button4: TButton;
    Button5: TButton;
    Label4: TLabel;
    Button6: TButton;
    DBGrid3: TDBGrid;
    Button7: TButton;
    Label5: TLabel;
    Button8: TButton;
    Label6: TLabel;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    ComboBox3: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit8, Unit9;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
search:string;
begin
search:=trim(combobox1.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('select * from teacher where 教师号='''+search+'''');
datamodule7.ADOQuery1.Open;
datamodule7.ADOQuery1.Active :=true;
end;

procedure TForm4.TabSheet1Show(Sender: TObject);
var
    search:string;
begin
    //search:=trim(combobox1.Text);
    datamodule7.ADOQuery1.Close;
    datamodule7.ADOQuery1.SQL.Clear;
    datamodule7.ADOQuery1.SQL.Add('select 教师号 from teacher ');
    datamodule7.ADOQuery1.Open;
    while not datamodule7.ADOQuery1.Eof do
    begin
    search:=datamodule7.ADOQuery1.FieldValues['教师号'];
    combobox1.Items.Add(search);     //注意！1！！！！！！！！！！！
    datamodule7.ADOQuery1.Next;
    end
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
    datamodule7.ADOQuery1.Close;
    datamodule7.ADOQuery1.SQL.Clear;
    datamodule7.ADOQuery1.SQL.Add('select * from teacher');
    datamodule7.ADOQuery1.Open;
end;

procedure TForm4.Button3Click(Sender: TObject);
var
search:string;
begin
try
datamodule7.ADOConnection1.BeginTrans;
search:=trim(combobox1.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('delete from teacher where 教师号='''+search+'''');
showmessage('确认删除！');
datamodule7.ADOQuery1.Prepared;
datamodule7.ADOQuery1.ExecSQL;
showmessage('删除成功！');
datamodule7.ADOConnection1.CommitTrans;
except
showmessage('删除失败！');
datamodule7.ADOConnection1.RollbackTrans;
end;
end;

procedure TForm4.TabSheet2Show(Sender: TObject);
var
    search:string;
begin
    search:=trim(combobox2.Text);
    datamodule7.ADOQuery1.Close;
    datamodule7.ADOQuery1.SQL.Clear;
    datamodule7.ADOQuery1.SQL.Add('select 学生号 from student where 学生号='''+search+'''');
    datamodule7.ADOQuery1.Open;
    while not datamodule7.ADOQuery1.Eof do
    begin
    search:=datamodule7.ADOQuery1.FieldValues['教师号'];
    combobox2.Items.Add(search);     //注意！1！！！！！！！！！！！
    datamodule7.ADOQuery1.Next;
    end

end;

procedure TForm4.Button4Click(Sender: TObject);
var
search:string;
begin
    search:=trim(combobox2.Text);
    datamodule7.ADOQuery1.Close;
    datamodule7.ADOQuery1.SQL.Clear;
    datamodule7.ADOQuery1.SQL.Add('select * from student where 学生号='''+search+'''');
    datamodule7.ADOQuery1.Open;
    datamodule7.ADOQuery1.Active :=true;

end;

procedure TForm4.Button5Click(Sender: TObject);
begin
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('select * from student');
datamodule7.ADOQuery1.Open;
end;

procedure TForm4.Button6Click(Sender: TObject);
var
search:string;
begin
try
datamodule7.ADOConnection1.BeginTrans;
search:=trim(combobox2.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('delete from student where 学生号='''+search+'''');
showmessage('确认删除！');
datamodule7.ADOQuery1.Prepared;
datamodule7.ADOQuery1.ExecSQL;
showmessage('删除成功！');
datamodule7.ADOConnection1.CommitTrans;
except
showmessage('删除失败！');
datamodule7.ADOConnection1.RollbackTrans;
end;

end;

procedure TForm4.TabSheet3Show(Sender: TObject);
var
search:string;
begin
search:=trim(combobox3.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('select 课程号 from cc where 课程号='''+search+'''');
datamodule7.ADOQuery1.Open;
while not datamodule7.ADOQuery1.Eof do
begin
search:=datamodule7.ADOQuery1.FieldValues['课程号'];
combobox3.Items.Add(search);     //注意！1！！！！！！！！！！！
datamodule7.ADOQuery1.Next;
end

end;

procedure TForm4.Button7Click(Sender: TObject);
var
search:string;
begin
search:=trim(combobox2.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('select * from student where 学生号='''+search+'''');
datamodule7.ADOQuery1.Open;
datamodule7.ADOQuery1.Active :=true;

end;

procedure TForm4.Button8Click(Sender: TObject);
begin
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('select * from student');
datamodule7.ADOQuery1.Open;
end;

procedure TForm4.Button9Click(Sender: TObject);
var
search:string;
begin
try
datamodule7.ADOConnection1.BeginTrans;
search:=trim(combobox3.Text);
datamodule7.ADOQuery1.Close;
datamodule7.ADOQuery1.SQL.Clear;
datamodule7.ADOQuery1.SQL.Add('delete from cc where 课程号='''+search+'''');
showmessage('确认删除！');
datamodule7.ADOQuery1.Prepared;
datamodule7.ADOQuery1.ExecSQL;
showmessage('删除成功！');
datamodule7.ADOConnection1.CommitTrans;
except
showmessage('删除失败！');
datamodule7.ADOConnection1.RollbackTrans;
end;

end;

procedure TForm4.Button10Click(Sender: TObject);
begin
form8.show;
form4.Close;
end;

procedure TForm4.Button11Click(Sender: TObject);
begin
form9.show;
form4.Close;
end;

end.