文档介绍:信息工程与自动化学院
蓝廷帅 霍彦明 邹仁知 张济源 任俊伟 李在虎
2013年5月23日
学生选课管理系统
由于互联网时代的到来以及因特网的迅速发展,电脑无出不在,当然各种工作效率也大幅提高,那么对于一个学校来说,开发 begin
;
;
end;
end.
程序代码编写
查询信息模块
部分源代码:
uses unit1,unit2,unit3,unit5,unit6;
{$R *.dfm}
procedure (Sender: TObject);
begin
;
;
end;
详细设计
procedure (Sender: TObject);
begin
if (=0) then
begin
;
;
end;
if (=1) then
begin
;
;
end;
if (=2) then
begin
;
;
end;
if (=3) then
begin
;
;
end;
end;
end.
程序代码编写
学生信息查询操作页面
部分程序代码:
uses unit4;
{$R *.dfm}
procedure (Sender: TObject);
begin
;
;
end;
procedure (Sender: TObject);
begin
with ADOQuery1 DO
begin
close;
;
详细设计
('SELECT * from students');
open;
end;
end;
procedure (Sender: TObject);
begin
if =0 then
with ADOQuery1 do
begin
close;
;
('select *from students where =:a');
('a').value:=trim();
open;
end;
if =1 then
with ADOQuery1 do
begin
close;
;
('select *from students where =:a');
('a').value:=trim();
open;
end;
end;
end;
end.
程序代码编写
插入模块
部分程序代码:
procedure (Sender: TObject);
begin
with ADOQuery1 DO
begin
close;
;
('SELECT * from students');
open;
end;
end;
详细设计
procedure (Sender: TObject);
begin
with ADOQuery1 do
begin
close;
;
('insert into students values('''++''','''++''','''+edit3
.Text+''','''++''','''++''','''++''')' );
execsql;
showmessage('一条信息已插入!');
:=