unit3.~pas

本系统是基于现代大学校园的课程选择和管理而设计的。该操作说明是给第一次使用本系统的人来使用的。本操作说明讲述了怎样一步步对数据库进行操作

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    Button4: TButton;
    Panel5: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button5: TButton;
    Button6: TButton;
    DBGrid2: TDBGrid;
    Button7: TButton;
    Button8: TButton;
    Label7: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Button9: TButton;
    Button10: TButton;
    Panel6: TPanel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button11: TButton;
    Button12: TButton;
    Label20: TLabel;
    Button13: TButton;
    DBGrid3: TDBGrid;
    Label21: TLabel;
    DBGrid4: TDBGrid;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Button14: TButton;
    Button15: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Button8Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Panel4Exit(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure DBGrid4CellClick(Column: TColumn);
    procedure Button14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
Form1.Timer1.Enabled:=false;
showmessage(''+Form3.StatusBar1.Panels[1].Text+''+#13+'上线时间为：'+Form3.StatusBar1.Panels[4].Text+'秒');
Form3.StatusBar1.Panels[1].Text:='管理者：';
close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if combobox1.Text='课程' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 课程编号,课程名,学生人数,教室,上课时间,结课时间,学分 from 老师,课程 where  老师.用户名='''+Form1.Edit1.Text+''' and 课程.教师=老师.姓名 ');
Form1.ADOQuery1.Open;
panel1.Visible:=false;
Panel2.Visible:=true;
end
else
if combobox1.Text='学生成绩' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 学生.学号,学生.姓名,所教课程 as 课程,成绩 from 老师,学生,选课表,课程 where  老师.用户名='''+Form1.Edit1.Text+''' and 学生.学号=选课表.学号 and 老师编号='''+Form1.Edit1.Text+'''and 课程号=课程编号 ');
Form1.ADOQuery1.Open;
panel1.Visible:=false;
panel3.Visible:=true;
end
else
if combobox1.Text='个人信息查询' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 用户名,姓名,年龄,所教课程 from 老师 where 用户名='''+Form1.Edit1.Text+''' ');
Form1.ADOQuery1.Open;
Edit8.Text:=Form1.ADOQuery1.FieldValues['用户名'];
Edit9.Text:=Form1.ADOQuery1.FieldValues['姓名'];
Edit10.Text:=Form1.ADOQuery1.FieldValues['年龄'];
Edit11.Text:=Form1.ADOQuery1.FieldValues['所教课程'];
panel1.Visible:=false;
panel4.Visible:=true;
end
else
begin
showmessage('请选择需要查询的条件！');
end;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
panel1.Visible:=true;
Panel2.Visible:=false;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 姓名 from 老师 where 用户名='''+Form1.Edit1.Text+'''');
Form1.ADOQuery1.Open;
Edit3.Text:=Form1.ADOQuery1.Fields.Fields[0].AsString;
Dbgrid2.Visible:=false;
panel2.Visible:=false;
Panel5.Visible:=true;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'') and (Edit6.Text<>'') and (Edit7.Text<>'') then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select *from 课程 where 课程编号='''+Edit1.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=0 then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select *from 课程 where  课程名='''+Edit2.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=0 then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select *from 课程申请表 where 课程编号='''+Edit1.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=0 then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select *from 课程申请表 where  课程名='''+Edit2.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=0 then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('insert into 课程申请表(课程编号,课程名,教师,教室,上课时间,结课时间,学分) values('''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+Edit6.Text+''','''+Edit7.Text+''')');
Form1.ADOQuery1.SQL.Add('select * from 课程申请表');
Form1.ADOQuery1.Open;
Dbgrid2.Visible:=true;
showmessage('课程申请完毕！');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
end
else
begin
showmessage('已申请的课程！请申请其他课程！');
end;
end
else
begin
showmessage('已申请的课程编号！请申请其他课程编号！');
end;
end
else
begin
showmessage('已存在的课程！请申请其他课程！');
end;
end
else
begin
showmessage('已存在的课程编号！请申请其他课程编号！');
end;
end
else
begin
showmessage('请完整填写申请的课程！');
end;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 课程编号,课程名,学生人数,教室,上课时间,结课时间,学分 from 老师,课程 where  老师.用户名='''+Form1.Edit1.Text+''' and 课程.教师=老师.姓名 ');
Form1.ADOQuery1.Open;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
panel5.Visible:=false;
panel2.Visible:=true;
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('delete from 课程申请表 where 课程编号='''+Edit1.Text+'''');
Form1.ADOQuery1.SQL.Add('select * from 课程申请表');
Form1.ADOQuery1.Open;
Edit1.Text:='';
Edit2.Text:='';
//Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
showmessage('删除成功！');
end
else
begin
showmessage('请选择或输入要删除的课程的编号！');
end;
end;

procedure TForm3.DBGrid2CellClick(Column: TColumn);
begin
Edit1.Text:=Dbgrid2.Fields[0].Text;
Edit2.Text:=Dbgrid2.Fields[1].Text;
Edit3.Text:=Dbgrid2.Fields[2].Text;
Edit4.Text:=Dbgrid2.Fields[3].Text;
Edit5.Text:=Dbgrid2.Fields[4].Text;
Edit6.Text:=Dbgrid2.Fields[5].Text;
Edit7.Text:=Dbgrid2.Fields[6].Text;
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 课程编号,课程名,教师,教室,上课时间,结课时间,学分 from 老师,课程申请表 where 老师.用户名='''+Form1.Edit1.Text+'''and 课程申请表.教师=老师.姓名 ');
Form1.ADOQuery1.Open;
end;

procedure TForm3.Button11Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 老师 where 用户名='''+Edit12.Text+''' and 密码='''+Edit13.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=1 then
begin
if Edit14.Text=Edit15.Text then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 老师 set 密码='''+Edit14.Text+'''where 用户名='''+Edit12.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 老师');
Form1.ADOQuery1.Open;
Edit12.Text:='';
Edit13.Text:='';
Edit14.Text:='';
Edit15.Text:='';
showmessage('密码修改成功！请按返回键返回！');
end
else
begin
showmessage('新密码不唯一，请重新输入！');
Edit13.Text:='';
Edit14.Text:='';
Edit15.Text:='';
end;
end
else
begin
showmessage('密码不正确，请重新输入！');
Edit13.Text:='';
Edit14.Text:='';
Edit15.Text:='';
end;
end;

procedure TForm3.Button9Click(Sender: TObject);
begin
Edit12.Text:=Form1.Edit1.Text;
Dbgrid3.Visible:=false;
panel4.Visible:=false;
panel6.Visible:=true;
end;

procedure TForm3.Button10Click(Sender: TObject);
begin
Dbgrid3.Visible:=false;
panel4.Visible:=false;
panel1.Visible:=true;
end;

procedure TForm3.Button12Click(Sender: TObject);
begin
panel4.Visible:=true;
panel6.Visible:=false;
end;

procedure TForm3.Button13Click(Sender: TObject);
begin
if Edit8.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 老师 set 姓名='''+Edit9.Text+''',年龄='''+Edit10.Text+''',所教课程='''+Edit11.Text+'''  where 用户名='''+Edit8.Text+'''');
Form1.ADOQuery1.SQL.Add('select 用户名,姓名,年龄,所教课程 from 老师 where  用户名='''+Edit8.Text+'''');
Form1.ADOQuery1.Open;
Dbgrid3.Visible:=true;
showmessage('修改完成！');
end
else
begin
showmessage('请输入学号以进行修改！');
end;
end;

procedure TForm3.Panel4Exit(Sender: TObject);
begin
Dbgrid3.Visible:=false;
end;

procedure TForm3.Button15Click(Sender: TObject);
begin
panel1.Visible:=true;
panel3.Visible:=false;
end;

procedure TForm3.DBGrid3CellClick(Column: TColumn);
begin
Edit8.Text:=Dbgrid3.Fields[0].Text;
Edit9.Text:=Dbgrid3.Fields[1].Text;
Edit10.Text:=Dbgrid3.Fields[2].Text;
Edit11.Text:=Dbgrid3.Fields[3].Text;
end;

procedure TForm3.DBGrid4CellClick(Column: TColumn);
begin
Edit16.Text:=Dbgrid4.Fields[0].Text;
Edit17.Text:=Dbgrid4.Fields[1].Text;
Edit18.Text:=Dbgrid4.Fields[2].Text;
Edit19.Text:=Dbgrid4.Fields[3].Text;
end;

procedure TForm3.Button14Click(Sender: TObject);
begin
if Edit16.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 选课表 set 成绩='''+Edit19.Text+'''  where 学号='''+Edit16.Text+'''');
Form1.ADOQuery1.SQL.Add('select 学生.学号,学生.姓名,所教课程 as 课程,成绩 from 老师,学生,选课表,课程 where  老师.用户名='''+Form1.Edit1.Text+''' and 学生.学号=选课表.学号 and 老师编号='''+Form1.Edit1.Text+'''and 课程号=课程编号 ');
Form1.ADOQuery1.Open;
Dbgrid3.Visible:=true;
Edit16.Text:='';
Edit17.Text:='';
Edit18.Text:='';
Edit19.Text:='';
showmessage('修改完成！');
end
else
begin
showmessage('请输入学号以进行修改！');
end;
end;

end.