human_delete human_insert 是/否 是/否 无 无 删除权限 插入权限 系统用户数据表：表名“tab_login”，结构见表6-8
表6-8 tab_login表结构
字段名称 login_id user_name user_password human_id employer_id 数据类型 数字 文本 数字 数字 数字 字段大小 10 10 10 10 10 索引 有 有 无 有 有 说明 登陆编号 登陆用户名 登陆密码 权限编号 员工编号 客户个人数据表：表名“tab_pasinfo”，结构见表6-9
表6-9 tab_pasinfo表结构
字段名称 passenger_id pas_name pas_sex pas_age pas_birthday pas_address pas_comeday pas_photo 数据类型 数字 文本 文本 数字 日期/时间 文本 日期/时间 OLE 对象 字段大小 10 10 4 2 16 60 16 索引 有 无 无 无 无 无 无 说明 客户编号 客户姓名 客户性别 客户年龄 客户出生年月日 客户地址 客户登记日期 客户照片
16
第七章 详细设计
7.1图书管理系统流程
1.用户登录模块，可以选择用管理员或者普通用户登录。
图7-1 登录界面图
2. 图书管理系统的主界面设计图
图7-2 主界面设计图
17
3、图书管理，包括新书录入、图书变更、删除图书、图书查询等。
图7-3 图书管理界面图
源码：
procedure TForm1.N4Click(Sender: TObject); //新书录入 var
ADOQuery:TADOQuery; begin
form_panel4Click(); emp_YN_null;
PageControl1.ActivePageIndex:=3; ADOQuery:=TADOQuery.Create(self);
ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ extractfilepath(application.ExeName)+
'DATA\\db_booksys.mdb;Persist Security Info=False'; //连接字符串
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select book_id from tab_bookinfo'); ADOQuery.Open; ADOQuery.Last;
edit5.Enabled:=false;
edit5.Text:= Myjiami.db_idtoadd(ADOQuery.FieldValues['book_id'],10); ADOQuery.Free;
edit6.Enabled:=true; edit7.Enabled:=true; edit8.Enabled:=true; edit9.Enabled:=true; edit10.Enabled:=true; edit11.Enabled:=true;
18
combobox1.Enabled:=true; combobox2.Enabled:=true; button5.Enabled:=true; button6.Enabled:=false; button7.Enabled:=false; button8.Enabled:=false; edit12.Enabled:=false; form1.book_refrish; end;
procedure TForm1.Button8Click(Sender: TObject); //图书查询 var
ADOQuery:TADOQuery;
str_cid:string; //图书类别编号 str_pid:string; //图书出版社编号 begin
ADOQuery:=TADOQuery.Create(self);
ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ extractfilepath(application.ExeName)+
'DATA\\db_booksys.mdb;Persist Security Info=False'; //连接字符串
if edit5.Text='' then begin
MessageDlg('请输入要查询的图书编号！！', mtInformation, [mbYes],0); ADOQuery.Free; exit; end;
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select * from tab_bookinfo where book_id=:A'); ADOQuery.Parameters.ParamByName('A').Value:=edit5.Text; ADOQuery.Open; //从书籍信息表中选择相关内容 if ADOQuery.RecordCount>0 then begin
edit6.Text:= ADOQuery.FieldValues['book_name']; edit7.Text:= ADOQuery.FieldValues['book_writer']; edit8.Text:= ADOQuery.FieldValues['book_pub_times']; edit9.Text:= ADOQuery.FieldValues['book_version']; edit10.Text:= ADOQuery.FieldValues['book_price'];
edit11.Text:= ADOQuery.FieldValues['book_information']; str_cid:= ADOQuery.FieldValues['book_classid']; str_pid:= ADOQuery.FieldValues['book_publishid']; str_bookclassid:= str_cid; str_bookpublishid:= str_pid; end
19
4、借还书管理 ,包含的数据项有书籍编号，借书证号码，借书日期，还书日期。
图7-4 借还书界面图
源码：
procedure TForm1.SpeedButton1Click(Sender: TObject); //借书 var
Pic:TPicture; //BMP图片类 begin
// if int_human<1 then //begin
//MessageDlg('无权使用！！',mtWarning, [mbYes],0); // exit; // end;
Pic:=TPicture.Create;
pic.LoadFromFile(extractfilepath(application.ExeName)+'RES\\bmp1.bmp'); image1.Picture:=nil;
image1.Picture.Assign(pic.Bitmap); CheckBox1.Checked:=false;
20