unit9.pas

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

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Button4: TButton;
    Button5: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;
  pass:string;

implementation
uses Unit6;
{$R *.dfm}

procedure TForm9.Button2Click(Sender: TObject);
begin
    with data.ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add('delete from 申请开课列表');
      sql.Add('where 课程号='''+Edit1.Text+'''');
      ExecSQL;
      Edit1.Clear;
      Edit2.Clear;
      button2.Enabled:=false;
      application.MessageBox('删除成功！','删除成功信息',MB_OK+MB_ICONEXCLAMATION);
      //close;
    end
end;

procedure TForm9.Button1Click(Sender: TObject);
begin
  with data.ADOQuery2 do
  begin
    close;
    sql.Clear;
    sql.Add('insert into 申请开课列表(课程号,开课教师,课程名,课容量)');
    sql.Add('Values('''+Edit1.Text+''','''+pass+''','''+Edit2.Text+''','''+Edit3.Text+''')');
    ExecSQL;
    Edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    application.MessageBox('插入成功！','插入成功信息',MB_OK+MB_ICONEXCLAMATION);
    //close;
  end
end;

procedure TForm9.Button3Click(Sender: TObject);
begin
    with data.ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 申请开课列表');
      sql.Add('where 开课教师='''+pass+'''');
      open;
    end
end;

procedure TForm9.Button4Click(Sender: TObject);
begin
     with data.ADOQuery1 do
     begin
        close;
        sql.Clear;
        sql.Add('select * from 课程列表');
        sql.Add('where 课程号='''+Edit4.Text+'''and 开课教师='''+pass+'''');
        open;
        edit5.Text:=FieldByName('课程名').AsString;
        Edit6.Text:=FieldByName('课容量').AsString;
     end
end;

procedure TForm9.Button5Click(Sender: TObject);
begin
    close;
end;

end.