⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit4.~pas

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

interface

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

type
  TForm4 = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    DBGrid1: TDBGrid;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DateTimePicker1: TDateTimePicker;
    Panel5: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Button6: TButton;
    Button7: TButton;
    DBGrid2: TDBGrid;
    Button8: TButton;
    DBGrid3: TDBGrid;
    Button9: TButton;
    Panel6: TPanel;
    DBGrid4: TDBGrid;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Label11: TLabel;
    Label12: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure DBGrid4CellClick(Column: TColumn);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  str: string;
  str1: string;
  str2: string;

implementation

uses Unit1;

{$R *.dfm}

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

procedure TForm4.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+'''');
Form1.ADOQuery1.Open;
Edit1.Text:=Form1.ADOQuery1.FieldValues['学号'];
Edit2.Text:=Form1.ADOQuery1.FieldValues['姓名'];
Edit3.Text:=Form1.ADOQuery1.FieldValues['年龄'];
Edit4.Text:=Form1.ADOQuery1.FieldValues['地址'];
Edit5.Text:=Form1.ADOQuery1.FieldValues['性别'];
datetimepicker1.Date:=Form1.ADOQuery1.FieldValues['出生年月'];
panel1.Visible:=false;
panel2.Visible:=true;
Dbgrid1.Visible:=false;
end
else
if combobox1.Text='老师及课程信息查询' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 课程.课程编号,课程.课程名,课程.学生人数,课程.教师,课程.教室,课程.上课时间,课程.结课时间,课程.学分 from 课程,选课表 where 课程.课程编号=选课表.课程号 and 选课表.学号='''+Form1.Edit1.Text+''' ');
Form1.ADOQuery1.Open;
panel1.Visible:=false;
panel4.Visible:=true;
end
else
if combobox1.Text='成绩查询' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 课程.课程名,课程.教师,学生.姓名,选课表.成绩 from 选课表,课程,学生 where 选课表.课程号=课程.课程编号 and 选课表.学号=学生.学号 and 选课表.学号='''+Form1.Edit1.Text+''' ');
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 课程  ');
Form1.ADOQuery1.Open;
str:='';
panel1.Visible:=false;
panel6.Visible:=true;
end
else

begin
showmessage('请选择需要查询的条件！');
end;
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
Dbgrid1.Visible:=false;
panel1.Visible:=true;
panel2.Visible:=false;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 学生 set 姓名='''+Edit2.Text+''',年龄='''+Edit3.Text+''',地址='''+Edit4.Text+''',性别='''+Edit5.Text+''',出生年月='''+datetostr(datetimepicker1.Date)+'''  where 学号='''+Edit1.Text+'''');
Form1.ADOQuery1.SQL.Add('select 学号,姓名,年龄,出生年月,地址,性别 from 学生 where 学号='''+Edit1.Text+'''  ');
Form1.ADOQuery1.Open;
Dbgrid1.Visible:=true;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
showmessage('修改完成！');
end
else
begin
showmessage('请输入学号以进行修改！');
end;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
Dbgrid1.Visible:=false;
panel2.Visible:=false;
panel5.Visible:=true;
end;

procedure TForm4.Button7Click(Sender: TObject);
begin
panel5.Visible:=false;
panel2.Visible:=true;
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 学生 where 学号='''+Form1.Edit1.Text+''' and 密码='''+Edit6.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=1 then
begin
if Edit7.Text=Edit8.Text then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 学生 set 密码='''+Edit7.Text+'''where 学号='''+Form1.Edit1.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 学生');
Form1.ADOQuery1.Open;
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
showmessage('密码修改成功！请按返回键返回！');
end
else
begin
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
showmessage('新密码不唯一，请重新输入！');
end;
end
else
begin
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
showmessage('密码不正确，请重新输入！');
end;
end;

procedure TForm4.Button8Click(Sender: TObject);
begin
panel1.Visible:=true;
panel4.Visible:=false;
end;

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

procedure TForm4.DBGrid4CellClick(Column: TColumn);
begin
str:=Dbgrid4.Fields[0].Text;
end;

procedure TForm4.Button10Click(Sender: TObject);
begin
if str<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 选课表 where 学号='''+Form1.Edit1.Text+''' and 课程号='''+str+'''  ');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=0 then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 老师.用户名,学生人数 from 课程,老师 where 教师=姓名 and 课程编号='''+str+'''  ');
Form1.ADOQuery1.Open;
str1:=Form1.ADOQuery1.FieldValues['用户名'];
str2:=trim(Form1.ADOQuery1.FieldValues['学生人数']);
str2:=inttostr(strtoint(str2)+1);
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('insert into 选课表(课程号,老师编号,学号) values('''+str+''','''+str1+''','''+Form1.Edit1.Text+''') ');
Form1.ADOQuery1.SQL.Add('update 课程 set 学生人数='''+str2+''' where 课程编号='''+str+'''');
Form1.ADOQuery1.SQL.Add('select * from 课程   ');
Form1.ADOQuery1.Open;
showmessage('选课成功');
end
else
begin
showmessage('你已选择过该课程！');
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 课程   ');
Form1.ADOQuery1.Open;
end;
end
else
begin
showmessage('请先选择课程！');
end;
end;

procedure TForm4.Button11Click(Sender: TObject);
begin
panel1.Visible:=true;
panel6.Visible:=false;
end;

procedure TForm4.Button12Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 课程.课程编号,课程.课程名,课程.学生人数,课程.教师,课程.教室,课程.上课时间,课程.结课时间,课程.学分 from 课程,选课表 where 课程.课程编号=选课表.课程号 and 选课表.学号='''+Form1.Edit1.Text+''' ');
Form1.ADOQuery1.Open;
button13.Visible:=true;
end;

procedure TForm4.Button14Click(Sender: TObject);
begin
button13.Visible:=false;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 课程   ');
Form1.ADOQuery1.Open;
end;

procedure TForm4.Button13Click(Sender: TObject);
begin
////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
if str<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select 老师.用户名,学生人数 from 课程,老师 where 教师=姓名 and 课程编号='''+str+'''  ');
Form1.ADOQuery1.Open;
str1:=Form1.ADOQuery1.FieldValues['用户名'];
str2:=trim(Form1.ADOQuery1.FieldValues['学生人数']);
str2:=inttostr(strtoint(str2)+1);
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('delete from 选课表  where 课程号='''+str+''' and 学号='''+Form1.Edit1.Text+'''');
Form1.ADOQuery1.SQL.Add('select 课程.课程编号,课程.课程名,课程.学生人数,课程.教师,课程.教室,课程.上课时间,课程.结课时间,课程.学分 from 课程,选课表 where 课程.课程编号=选课表.课程号 and 选课表.学号='''+Form1.Edit1.Text+''' ');
Form1.ADOQuery1.Open;
showmessage('删除成功！');
end
else
begin
showmessage('请先选择课程！');
end;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -