unit2.pas

简单的选课系统 采用delphi书写 包含简单的管理功能以及学生 教师 管理员登陆

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ComCtrls, DB, ADODB;

type
    TForm2 = class(TForm)
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  pass,pass2:String;
implementation
uses Unit1,Unit5,unit10,unit6,unit11,unit14;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
    with data.ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 管理员');
      open;
      Unit5.pass:=pass2;
      Form5.Edit1.Text:=pass2;
      Form5.Show;
    end
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
    close;
    Form1.Show;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
    with data.ADOQuery1 do
    begin
        close;
        sql.Clear;
        sql.Add('select * from 教师');
        sql.Add('order by 教师账号 ASC');
        open;
        form10.Show;
    end
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
    with data.ADOQuery2 do
    begin
        close;
        sql.Clear;
        sql.Add('select * from 学生');
        open;
        form11.show;
    end
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
    with data.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 申请开课列表');
      open;
      form14.Show;
    end
end;

end.