号
smallint
2
图书类别
nvarchar
20
(4)用户
字段名称
数据类型
大小
varchar
20
性别
varchar
4
类型
varchar
50
联系电话
varchar
15
密码
varchar
50
(5)借出信息
字段名称
数据类型
大小
借出编号
int
4
图书编号
int
4
借书证号
varchar
50
借出日期
smalldatetime
4
借出状态
bit
4
第四章 系统实现
4.1 系统数据库模型需分析
关系图
图4-1关系图
4.2 各子系统功能分析与程序代码设计
4.2.1 系统主界面
程序运行程序以后,就可以看到如图4-2的程序的主界面,从这个界面中用户可以根据不同的身份进行不同的操作。
图4-2 系统主界面
程序实现相关代码:
procedure TfrmMain.SpeedButton1Click(Sender: TObject);
begin
frmAdm.Show;
end;
procedure TfrmMain.SpeedButton2Click(Sender: TObject);
begin
frmReaderSer.Show;
end;
procedure TfrmMain.SpeedButton3Click(Sender: TObject);
begin
frmLookBook.Show;
end;
procedure TfrmMain.SpeedButton4Click(Sender: TObject);
var Str: string;
begin
Str := '图书管理系统' + #13;
Str := Str + '作者:李丽丽(L3)' + #13;
Str := Str + '这是我的第一次编程,请大家多多指教!';
ShowMessage(Str);
end;
procedure TfrmMain.SpeedButton5Click(Sender: TObject);
begin
if messagedlg('确定要退出本系统吗?', mtinformation, [mbyes, mbno], 0) = mryes then
begin
ShowMessage('谢谢你的使用');
// form1.DestroyWnd;
frmMain.Close;
end;
end;
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[2].Text := '日期:' + DateToStr(Date);
StatusBar1.Panels[3].Text := '时间:' + TimeToStr(Time);
end;
procedure TfrmMain.SkinData1FormSkin(Sender: TObject; aName: String;
var DoSkin: Boolean);
begin
skindata1.Active:=true;
end;
end.
4.2.2 管理员登录界面
主程序运行后,点击管理员登录,跳出管理员登录界面,输入用户名和密码即可进入系统管理的后台界面。
功能:本模块的主要功能是对操作用户身份的验证,只有系统的合法用户才能进入系统。在进行系统登录过程中,登录模块将调用数据库里的用户表,并对用户名和密码进行验证,只有输入了正确的用户名和密码后,系统登录才会成功。否则退出登录模块。并在输入了错误的或者是不存在的用户名和密码时,系统会给出出错信息提示,指明登录过程中的错误输入或错误操作,以便用户进行正确的登录。
其窗体如图4-3所示:管理员登录窗体:
图4-3 管理员登录界面
登录按钮代码:
procedure TfrmAdm.Button1Click(Sender: TObject);
begin
with DM.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 用户 where =:username and 密码=:pass and 类型=:GLY');
Parameters.ParamByName('username').Value := Edit1.Text;
Parameters.ParamByName('pass').Value := Edi
相关热词:delphi 图书 管理 系统 论文 delphiSQLS