📄 unit5.~pas
字号:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB, ComCtrls;
type
TForm5 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
DBGrid1: TDBGrid;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label7: TLabel;
Label8: TLabel;
Edit7: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
Button4: TButton;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Button3: TButton;
Button5: TButton;
Button6: TButton;
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5.Button4Click(Sender: TObject);
begin
form5.Close;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
if(Edit1.Text='')then
showmessage('学号不能够为空,请重新输入!')
else
begin
if(Edit3.Text='')or(Edit2.Text='') then
showmessage('课程号码和姓名不能够为空,请重新输入!')
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select stu_no from student where stu_no='''+Edit1.text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
showmessage('编号为'''+Edit1.text+'''的学生信息不存在,请确认后重新输入!')
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select stu_no from student where stu_no='''+Edit1.text+'''and stu_name='''+Edit2.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
showmessage('姓名输入有误,请确认后重新输入!');
Edit2.Text:=adoquery1.Fields[1].AsString;
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from Courses where Cour_no='''+Edit3.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into stud_score(stu_no,Cour_no,Cour_time,score)values('''+Edit1.text+''','''+Edit3.text+''','''+Edit6.text+''','''+Edit7.text+''')');
adoquery1.execSQL;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into Courses(Cour_no,Cour_name,Cour_score,Cour_Category)values('''+Edit3.text+''','''+Edit4.text+''','''+Edit5.text+''','''+ComboBox1.text+''')');
adoquery1.ExecSQL;
showmessage('成绩录入成功！');
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select S.stu_no as"学号",S.stu_name as"姓名",C.Cour_no as"课程编号",C.Cour_name as"课程名称",C.Cour_score as"学分",T.Cour_time as"考试时间",');
adoquery1.SQL.Add('T.score as"分数",C.Cour_Category as"类型" from student as S,Courses as C,stud_score as T where S.stu_no=T.stu_no and C.Cour_no=T.Cour_no and T.stu_no='''+Edit1.Text+'''');
adoquery1.Open;
end
else
begin
Edit4.Text:=adoquery1.Fields[2].AsString;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select* from stud_score where Cour_no='''+Edit3.Text+'''and stu_no='''+Edit1.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into stud_score(stu_no,Cour_no,Cour_time,score)values('''+Edit1.text+''','''+Edit3.text+''','''+Edit6.text+''','''+Edit7.text+''')');
adoquery1.execSQL;
showmessage('成绩录入成功！');
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select S.stu_no as"学号",stu_name as"姓名",C.Cour_no as"课程编号",Cour_name as"课程名称",Cour_score as"学分",Cour_time as"考试时间",');
adoquery1.SQL.Add('score as"分数",Cour_Category as"类型" from student as S,Courses as C,stud_score as T where S.stu_no=T.stu_no and C.Cour_no=T.Cour_no and T.stu_no='''+Edit1.Text+'''');
adoquery1.Open;
end
else showmessage('学号为'''+Edit1.Text+'''课程号为'''+Edit3.Text+'''的成绩已经记录，要修改请转到其他功能界面！')
end
end
end
end
end
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
if(Edit1.Text='')then
showmessage('')
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select stu_no as"学号",stu_name as"姓名",stu_sex as"性别",stu_bithd as"出生日期",');
adoquery1.SQL.Add('stu_National as"民族",stu_Origin as"籍贯",stu_Political as"政治面貌",stu_cmday as"入学日期",');
adoquery1.SQL.Add('stu_Category as"学生类别",stu_Faculties as"院系",stu_class as"班级",stu_Structure as"学制",');
adoquery1.SQL.Add('stu_Professional as"专业",stu_Languages as"外语语种",Quarters_address as"宿舍地址",');
adoquery1.SQL.Add('Graduation_date as"毕业日期" from student where stu_no='''+Edit1.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
showmessage('学号为'''+Edit1.Text+'''的记录信息不存在！')
else
begin
showmessage('学号为'''+Edit1.Text+'''的记录信息存在！可以进行操作！');
Edit2.Text:=adoquery1.Fields[1].AsString;
end
end
end;
procedure TForm5.Button5Click(Sender: TObject);
begin
if(Edit1.Text='')then
showmessage('学号不能够为空,请重新输入!')
else
begin
if(Edit3.Text='')or(Edit2.Text='') then
showmessage('课程号码和姓名不能够为空,请重新输入!')
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select stu_no from student where stu_no='''+Edit1.text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
showmessage('编号为'''+Edit1.text+'''的学生信息不存在,请确认后重新输入!')
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select stu_no from student where stu_no='''+Edit1.text+'''and stu_name='''+Edit2.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
showmessage('姓名输入有误,请确认后重新输入!');
Edit2.Text:=adoquery1.Fields[1].AsString;
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from Courses where Cour_no='''+Edit3.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
showmessage('该课程编号还未记录！请确认后重新输入！');
end
else
begin
Edit4.Text:=adoquery1.Fields[0].AsString;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select* from stud_score where Cour_no='''+Edit3.Text+'''and stu_no='''+Edit1.Text+'''');
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
showmessage('学号为'''+Edit1.Text+'''课程号为'''+Edit3.Text+'''的成绩已经记录不存在！');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from stud_score where Cour_no='''+Edit3.Text+'''and stu_no='''+Edit1.Text+'''');
adoquery1.ExecSQL;
showmessage('删除成功！');
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select S.stu_no as"学号",stu_name as"姓名",C.Cour_no as"课程编号",Cour_name as"课程名称",Cour_score as"学分",Cour_time as"考试时间",');
adoquery1.SQL.Add('score as"分数",Cour_Category as"类型" from student as S,Courses as C,stud_score as T where S.stu_no=T.stu_no and C.Cour_no=T.Cour_no ');
adoquery1.Open;
end
end
end
end
end
end
end;
procedure TForm5.Button6Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select S.stu_no as"学号",stu_name as"姓名",C.Cour_no as"课程编号",Cour_name as"课程名称",Cour_score as"学分",Cour_time as"考试时间",');
adoquery1.SQL.Add('score as"分数",Cour_Category as"类型" from student as S,Courses as C,stud_score as T ');
adoquery1.Open;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -