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

📄 unit2.pas

📁 本系统是基于现代大学校园的课程选择和管理而设计的。该操作说明是给第一次使用本系统的人来使用的。本操作说明讲述了怎样一步步对数据库进行操作
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
if Edit14.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 课程 set 课程名='''+Edit15.Text+''',学生人数='''+Edit16.Text+''',教师='''+Edit17.Text+''',教室='''+Edit18.Text+''',上课时间='''+Edit19.Text+''',结课时间='''+Edit20.Text+''',学分='''+Edit21.Text+'''  where 课程编号='''+Edit14.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 课程');
Form1.ADOQuery1.Open;
showmessage('修改完成！');
end
else
begin
showmessage('请选择课程编号以进行修改！');
end;
end;



procedure TForm2.Button14Click(Sender: TObject);
begin
if Edit6.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('delete from 学生 where 学号='''+Edit6.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 学生');
Form1.ADOQuery1.Open;
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
end
else
begin
showmessage('请输入要删除的学号！');
end;
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
//Edit6.ReadOnly:=false;
panel1.Visible:=true;
panel6.Visible:=false;
end;

procedure TForm2.DBGrid3CellClick(Column: TColumn);
begin
Edit6.Text:=Dbgrid3.Fields[0].Text;
Edit7.Text:=Dbgrid3.Fields[1].Text;
Edit8.Text:=Dbgrid3.Fields[2].Text;
Edit9.Text:=Dbgrid3.Fields[3].Text;
Datetimepicker1.Date:=strtodate(trim(Dbgrid3.Fields[4].Text));
Edit10.Text:=Dbgrid3.Fields[5].Text;
Edit11.Text:=Dbgrid3.Fields[6].Text;
Button13.Enabled:=true;
Button14.Enabled:=true;
end;

procedure TForm2.Button13Click(Sender: TObject);
begin
if Edit6.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 学生 set 姓名='''+Edit7.Text+''',密码='''+Edit8.Text+''',年龄='''+Edit9.Text+''',出生年月='''+datetostr(datetimepicker1.Date)+''',地址='''+Edit10.Text+''',性别='''+Edit11.Text+'''  where 学号='''+Edit6.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 学生');
Form1.ADOQuery1.Open;
showmessage('修改完成！');
end
else
begin
showmessage('请输入学号以进行修改！');
end;
end;



procedure TForm2.Button15Click(Sender: TObject);
begin
if Edit6.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 学生 where 学号='''+Edit6.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('''+Edit6.Text+''','''+Edit7.Text+''','''+Edit8.Text+''','''+Edit9.Text+''','''+datetostr(datetimepicker1.Date)+''','''+Edit10.Text+''','''+Edit11.Text+''') ');
Form1.ADOQuery1.SQL.Add('select *from 学生');
Form1.ADOQuery1.Open;
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
end
else
begin
showmessage('学号冲突！请重新输入学号！');
end;
end
else
begin
showmessage('请输入关键字学号！');
end;
end;

procedure TForm2.Button16Click(Sender: TObject);
begin
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit6.ReadOnly:=false;
Button13.Enabled:=false;
Button14.Enabled:=false;
end;

procedure TForm2.DBGrid2CellClick(Column: TColumn);
begin
Edit14.Text:=Dbgrid2.Fields[0].Text;
Edit15.Text:=Dbgrid2.Fields[1].Text;
Edit16.Text:=Dbgrid2.Fields[2].Text;
Edit17.Text:=Dbgrid2.Fields[3].Text;
Edit18.Text:=Dbgrid2.Fields[4].Text;
Edit19.Text:=Dbgrid2.Fields[5].Text;
Edit20.Text:=Dbgrid2.Fields[6].Text;
Edit21.Text:=Dbgrid2.Fields[7].Text;
Edit14.ReadOnly:=true;
end;

procedure TForm2.Button17Click(Sender: TObject);
begin
Edit14.Text:='';
Edit15.Text:='';
Edit16.Text:='';
Edit17.Text:='';
Edit18.Text:='';
Edit19.Text:='';
Edit20.Text:='';
Edit21.Text:='';
Edit14.ReadOnly:=false;
end;

procedure TForm2.Button18Click(Sender: TObject);
begin
if Edit14.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 课程 where 课程编号='''+Edit14.Text+''' ');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=0 then
begin
if Edit16.Text='' then
Edit16.Text:='0';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('insert into 课程 values('''+Edit14.Text+''','''+Edit15.Text+''','''+Edit16.Text+''','''+Edit17.Text+''','''+Edit18.Text+''','''+Edit19.Text+''','''+Edit20.Text+''','''+Edit21.Text+''') ');
Form1.ADOQuery1.SQL.Add('select * from 课程');
Form1.ADOQuery1.Open;
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 TForm2.DBGrid1CellClick(Column: TColumn);
begin
Edit12.Text:=Dbgrid3.Fields[0].Text;
Edit13.Text:=Dbgrid3.Fields[1].Text;
Edit22.Text:=Dbgrid3.Fields[2].Text;
Edit23.Text:=Dbgrid3.Fields[3].Text;
Edit24.Text:=Dbgrid3.Fields[4].Text;
Edit12.ReadOnly:=true;
Button19.Enabled:=true;
Button20.Enabled:=true;
end;

procedure TForm2.Button19Click(Sender: TObject);
begin
if Edit12.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 老师 set 密码='''+Edit13.Text+''',姓名='''+Edit22.Text+''',年龄='''+Edit23.Text+''',所教课程='''+Edit24.Text+'''  where 用户名='''+Edit12.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 老师');
Form1.ADOQuery1.Open;
showmessage('修改完成！');
end
else
begin
showmessage('请输入学号以进行修改！');
end;
end;

procedure TForm2.Button20Click(Sender: TObject);
begin
if Edit12.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('delete from 老师 where 用户名='''+Edit12.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 老师');
Form1.ADOQuery1.Open;
Edit12.Text:='';
Edit13.Text:='';
Edit22.Text:='';
Edit23.Text:='';
Edit24.Text:='';
end
else
begin
showmessage('请输入要删除的老师用户名！');
end;
end;

procedure TForm2.Button21Click(Sender: TObject);
begin
Edit12.Text:='';
Edit13.Text:='';
Edit22.Text:='';
Edit23.Text:='';
Edit24.Text:='';
//Edit12.ReadOnly:=false;
panel1.Visible:=true;
panel4.Visible:=false;
end;

procedure TForm2.Button22Click(Sender: TObject);
begin
Edit12.Text:='';
Edit13.Text:='';
Edit22.Text:='';
Edit23.Text:='';
Edit24.Text:='';
Edit12.ReadOnly:=false;
Button19.Enabled:=false;
Button20.Enabled:=false;
end;

procedure TForm2.Button23Click(Sender: TObject);
begin
if Edit12.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 老师 where 用户名='''+Edit12.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('''+Edit12.Text+''','''+Edit13.Text+''','''+Edit22.Text+''','''+Edit23.Text+''','''+Edit24.Text+''') ');
Form1.ADOQuery1.SQL.Add('select *from 老师');
Form1.ADOQuery1.Open;
Edit12.Text:='';
Edit13.Text:='';
Edit22.Text:='';
Edit23.Text:='';
Edit24.Text:='';
end
else
begin
showmessage('用户名冲突！请重新输入老师用户名！');
end;
end
else
begin
showmessage('请输入关键字用户名！');
end;
end;

procedure TForm2.Button24Click(Sender: TObject);
begin
Button19.Enabled:=true;
Button20.Enabled:=true;
Edit12.Text:='';
Edit13.Text:='';
Edit22.Text:='';
Edit23.Text:='';
Edit24.Text:='';
end;

procedure TForm2.Button25Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 老师  ');
Form1.ADOQuery1.Open;
end;

procedure TForm2.DBGrid4CellClick(Column: TColumn);
begin
Edit25.Text:=Dbgrid4.Fields[0].Text;
Edit26.Text:=Dbgrid4.Fields[1].Text;
Edit27.Text:=Dbgrid4.Fields[2].Text;
Edit28.Text:=Dbgrid4.Fields[3].Text;
Edit29.Text:=Dbgrid4.Fields[4].Text;
Edit30.Text:=Dbgrid4.Fields[5].Text;
Edit31.Text:=Dbgrid4.Fields[6].Text;
end;

procedure TForm2.Button26Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('insert into 课程(课程编号,课程名,学生人数,教师,教室,上课时间,结课时间,学分) values('''+Edit25.Text+''','''+Edit26.Text+''','''+'0'+''','''+Edit27.Text+''','''+Edit28.Text+''','''+Edit29.Text+''','''+Edit30.Text+''','''+Edit31.Text+''')');
Form1.ADOQuery1.SQL.Add('select * from 课程申请表');
Form1.ADOQuery1.Open;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('delete from 课程申请表 where 课程编号='''+Edit25.Text+'''');
Form1.ADOQuery1.SQL.Add('select * from 课程申请表');
Form1.ADOQuery1.Open;
showmessage('添加成功');
Edit25.Text:='';
Edit26.Text:='';
Edit27.Text:='';
Edit28.Text:='';
Edit29.Text:='';
Edit30.Text:='';
Edit31.Text:='';

end;

procedure TForm2.Button27Click(Sender: TObject);
begin
if Edit25.Text<>'' then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('delete from 课程申请表 where 课程编号='''+Edit25.Text+'''');
Form1.ADOQuery1.SQL.Add('select * from 课程申请表');
Form1.ADOQuery1.Open;
Edit25.Text:='';
Edit26.Text:='';
Edit27.Text:='';
Edit28.Text:='';
Edit29.Text:='';
Edit30.Text:='';
Edit31.Text:='';
showmessage('删除成功！');
end
else
begin
showmessage('请选择或输入要删除的申请课程的编号！');
end;
end;

procedure TForm2.Button28Click(Sender: TObject);
begin
panel7.Visible:=false;
panel1.Visible:=true;
end;

end.
12

⌨️ 快捷键说明

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