图书管理系统设计源代码:
*: 文件列表
FILE 图书管理系统.PRG
1310657170.JPG
GLY.SCX GLYXXCX.SCX JYCX.SCX JYGL.SCX SJGL.SCX
TJTS.SCX TSXXCX.SCX TSXXGL.SCX
登陆界面.SCX 图书管理.DBC Database Database Version 10 Database TransactionLog Database StoredProceduresSource Database StoredProceduresObject Database StoredProceduresDependencies
Table 图书信息表
Path 图书信息表.dbf
Field 书号 书号 C
10 0
Field 书名 书名 C
17 0
Field 作者 作者 C
12 0
Field 出版社 出版社 C
21 0
Index xh
Unique 0
Table 读者信息表
Path 读者信息表.dbf Field 学号 学号 C
10 0
Field 姓名 姓名 C
10 0
Field 专业 专业 C
10 0
Field 电话 电话 C
11 0
Table 借阅管理表
Path 借阅管理表.dbf
Field 学号 学号 C
10 0
Field 姓名 姓名 C
10 0
Field 已借书号 已借书号 C
10 0
Field 已借书名 已借书名 C
10 0
Field 借阅日期 借阅日期 D
8 0
Table gly
Path gly.dbf
Field 管理员 管理员 C
10 0
Field 密码 密码 C
10 0
Field 身份证号 身份证号 C
20 0
Field 备注 备注 M
4 0 NoCPTrans
Index 管理员
Unique 0
*: 使用 Visual FoxPro 格式的向导版本生成文档 .05
*:****************************************************************************** *: 图书管理系统
PUBLIC sun,flag,xh,sh,secondtime,printtype printtype=0 secondtime=0 sun=0
DO FORM 登陆界面.scx READ events Left = 1 Top = 220 Width = 520 Height = 200
Name = \"Dataenvironment\" Left = 10 Top = 20 Width = 116 Height = 90 Alias = \"gly\"
Database = 图书管理.dbc CursorSource = \"gly\"
Name = \"Cursor1\" Top = 0 Left = 0 DoCreate = .T. Caption = \"Form1\" Name = \"Form1\" Caption = \"账号\" Height = 24 Left = 24 Top = 12 Width = 84 Name = \"Label1\" Format = \"\" Height = 25 Left = 108 Top = 12 Width = 168 Name = \"Text1\" Caption = \"设置新密码\" Height = 24 Left = 24 Top = 84
Width = 72 Name = \"Label2\" Format = \"spring\" Height = 24 Left = 108 Top = 48 Width = 168 Name = \"Text2\" Caption = \"身份证号\" Height = 25 Left = 24 Top = 48 Width = 61 Name = \"Label3\" Format = \"spring\" Height = 25 Left = 108 Top = 84 Width = 169 Name = \"Text3\" Top = 168 Left = 72
Height = 37 Width = 133 Caption = \"确认\" Name = \"Command1\" +-------PROCEDURE Click | SET exact on | SET order to 管理员 | SEEK thisform.Text1.value | +-------IF found()=.f.
| | MESSAGEBOX('此账号不存在！',0+64+0,'提示')
| +-------ELSE
| | LOCATE for 管理员=thisform.Text1.value | | +-------IF 身份证号<>thisform.Text2.value | | | MESSAGEBOX('您输入的身份证号不正确！',0+64+0,'提示') | | +-------ELSE
| | | +-------IF len(thisform.Text3.value)<6 | | | | MESSAGEBOX('密码不得少于6位！',0+64+0,'提示') | | | +-------ELSE | | | | +-------IF
thisform.Text3.value<>thisform.text4.value
| | | | |
MESSAGEBOX('2次输入的密码不一致，请重新输入！',0+64+0,'提示')
| | | | +-------ELSE
| | | | | REPLACE all 密码 with thisform.Text3.value for 管理员=thisform.Text1.value | | | | | MESSAGEBOX('密码修改成功！',0+64+0,'提示')
| | | | | DO form 登陆界面.scx
| | | | | thisform.release
| | | | +-------ENDIF | | | +-------ENDIF | | +-------ENDIF | +-------ENDIF | +-------ENDPROC
Caption = \"确认新密码\" Height = 25 Left = 24
Top = 120 Width = 73 Name = \"Label4\" Height = 25 Left = 108 Top = 120 Width = 169 Name = \"Text4\"
Name = \"Dataenvironment\" Alias = \"gly\"
Database = 图书管理.dbc CursorSource = \"gly\" Name = \"Cursor1\" DoCreate = .T. Caption = \"glyxxcx\" Name = \"Form1\" ColumnCount = 3 Height = 229 Left = 12
RecordSource = \"gly\" Top = 12 Width = 361
Name = \"Grid1\"
Column1.ControlSource = \"gly.管理员\" Column1.Width = 75 Column1.Name = \"Column1\" Column2.ControlSource = \"gly.密码\" Column2.Width = 75 Column2.Name = \"Column2\"
Column3.ControlSource = \"gly.身份证号\" Column3.Width = 75 Column3.Name = \"Column3\" Caption = \"管理员\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Caption = \"密码\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0
BackColor = 255,255,255 Name = \"Text1\" Caption = \"身份证号\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Left = 1 Top = 220 Width = 520 Height = 200
Name = \"Dataenvironment\" Left = 10 Top = 20 Width = 116 Height = 90
Alias = \"借阅管理表\" Database = 图书管理.dbc CursorSource = \"借阅管理表\" Name = \"Cursor1\"
Top = 0 Left = 0 Height = 443 Width = 625 DoCreate = .T. Caption = \"Form1\" WindowState = 2 Name = \"Form1\" Top = 360 Left = 132 Height = 25 Width = 96 Caption = \"返回\" Name = \"Command1\" +-------PROCEDURE Click
| thisform.RELEASE +-------ENDPROC ColumnCount = 5 Height = 288 Left = 12
RecordSource = \"借阅管理表\" Top = 24
Width = 492 Name = \"Grid1\"
Column1.ControlSource = \"借阅管理表.姓名\" Column1.Width = 75 Column1.Name = \"Column1\"
Column2.ControlSource = \"借阅管理表.已借书号\" Column2.Width = 75 Column2.Name = \"Column2\"
Column3.ControlSource = \"借阅管理表.已借书名\" Column3.Width = 75 Column3.Name = \"Column3\"
Column4.ControlSource = \"借阅管理表.借阅日期\" Column4.Width = 75 Column4.Name = \"Column4\"
Column5.ControlSource = \"借阅管理表.学号\" Column5.Width = 75 Column5.Name = \"Column5\" Caption = \"姓名\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0
BackColor = 255,255,255 Name = \"Text1\" Caption = \"已借书号\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Caption = \"已借书名\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Caption = \"借阅日期\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255
Name = \"Text1\" Caption = \"学号\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Left = 1 Top = 220 Width = 520 Height = 200
Name = \"Dataenvironment\" Left = 10 Top = 20 Width = 116 Height = 90
Alias = \"图书信息表\" Database = 图书管理.dbc CursorSource = \"图书信息表\" Name = \"Cursor1\" Top = -1
Left = 0 Height = 443 Width = 625 DoCreate = .T. Caption = \"Form1\" WindowState = 2 Name = \"Form1\" Caption = \"书号\" Height = 37 Left = 168 Top = 48 Width = 121 Name = \"Label2\" Caption = \"书名\" Height = 37 Left = 168 Top = 108 Width = 121 Name = \"Label3\" Caption = \"作者\" Height = 37 Left = 168
Top = 156 Width = 121 Name = \"Label4\" Height = 37 Left = 312 Top = 48 Width = 145 Name = \"Text1\" Height = 37 Left = 312 Top = 108 Width = 145 Name = \"Text2\" Height = 37 Left = 312 Top = 156 Width = 145 Name = \"Text3\" Top = 264 Left = 168 Height = 37 Width = 97
Caption = \"查询书籍\" Name = \"Command2\" +-------PROCEDURE Click | GO top | SET exact on
| LOCATE for 书号=thisform.Text1.value and 书名=thisform.Text2.value | +-------IF found()=.t.
| | thisform.Text1.value=书号 | | thisform.Text2.value=书名 | | thisform.Text3.value=作者 | | thisform.text4.value=出版社 | +-------ELSE
| | =MESSAGEBOX(\"对不起,你的输入错误！\信息提示\") | +-------ENDIF | +-------ENDPROC Top = 264 Left = 324 Height = 37 Width = 85
Caption = \"退出\" Name = \"Command3\" +-------PROCEDURE Click |
| thisform.RELEASE +-------ENDPROC
Caption = \"出版社\" Height = 37 Left = 168 Top = 204 Width = 121 Name = \"Label1\" Height = 37 Left = 312 Top = 204 Width = 145 Name = \"Text4\" Left = 1 Top = 220 Width = 520 Height = 200
Name = \"Dataenvironment\"
Left = 10 Top = 20 Width = 116 Height = 90
Alias = \"图书信息表\" ORDER = \"xh\"
Database = 图书管理.dbc CursorSource = \"图书信息表\" Name = \"Cursor1\" Top = 10 Left = -34 Height = 445 Width = 606 DoCreate = .T. Caption = \"Form1\" WindowState = 2 Name = \"Form1\" Caption = \"书号\" Height = 36 Left = 48 Top = 60 Width = 96
Name = \"Label1\" Caption = \"书名\" Height = 36 Left = 48 Top = 120 Width = 96 Name = \"Label2\" Height = 37 Left = 192 Top = 120 Width = 168 Name = \"Text2\" Top = 288 Left = 12 Height = 49 Width = 97 Caption = \"修改\" Name = \"Command1\" +-------PROCEDURE Click | SET exact on | DIME a(4)
| a(1)=thisform.Text1.value
| a(2)=thisform.Text2.value | a(3)=thisform.Text3.value | a(4)=thisform.text4.value
| LOCATE for 书名=a(1) and 书号=a(2) | +-------IF found()=.t.
| | REPLACE 书号 with a(1) | | REPLACE 书名 with a(2) | | REPLACE 作者 with a(3) | | REPLACE 出版社 with a(4)
| | =MESSAGEBOX(\"该书已经修改成功！\信息提示\") | +-------ELSE
| | =MESSAGEBOX(\"没有找到对应的图书编号！\信息提示\") | +-------ENDIF +-------ENDPROC Top = 288 Left = 312 Height = 49 Width = 97 Caption = \"取消\" Name = \"Command2\"
+-------PROCEDURE Click
| thisform.RELEASE +-------ENDPROC Top = 288 Left = 144 Height = 49 Width = 121 Caption = \"删除\" Name = \"Command3\" +-------PROCEDURE Click | GO top | SET exact on
| LOCATE for 书名=thisform.Text1.value and 书号=thisform.Text2.value | +-------IF found()=.t. | | Delete | | PACK
| | =MESSAGEBOX(\"该书已经删除！\信息提示\")
| +-------ELSE
| | =MESSAGEBOX(\"对不起,你的输入错误！\信息提示\")
| +-------ENDIF | +-------ENDPROC Caption = \"作者\" Height = 37 Left = 48 Top = 180 Width = 85 Name = \"Label3\" Caption = \"出版社\" Height = 37 Left = 48 Top = 228 Width = 97 Name = \"Label4\" Height = 36 Left = 192 Top = 168 Width = 168 Name = \"Text3\" Height = 33 Left = 192
Top = 219 Width = 168 Name = \"Text4\" Format = \"\" Height = 37 Left = 192 Top = 60 Width = 168 Name = \"Text1\" Left = 92 Top = 343 Width = 520 Height = 200
Name = \"Dataenvironment\" Left = 150 Top = 20 Width = 116 Height = 90
Alias = \"图书信息表1\" Database = 图书管理.dbc CursorSource = \"图书信息表\" Name = \"Cursor2\"
Top = -10 Left = 90 DoCreate = .T. Caption = \"tjxdbd\" Name = \"Form1\" Caption = \"书号\" Height = 25 Left = 12 Top = 24 Width = 73 Name = \"书号\" Caption = \"书名\" Height = 37 Left = 12 Top = 60 Width = 85 Name = \"Label2\" Caption = \"出版社\" Height = 25 Left = 12 Top = 144 Width = 85
Name = \"Label4\" Value = Format = \"\" Height = 25 Left = 96 Top = 24 Width = 169 Name = \"Text1\" Value = Format = \"\" Height = 25 Left = 96 Top = 60 Width = 169 Name = \"Text2\" Value = Format = \"\" Height = 24 Left = 96 Top = 96 Width = 168 Name = \"Text3\"
Value = Format = \"\" Height = 24 Left = 96 Top = 144 Width = 168 Name = \"Text4\" Caption = \"作者\" Height = 25 Left = 12 Top = 96 Width = 73 Name = \"Label1\" Top = 192 Left = 36 Height = 37 Width = 109 Caption = \"确定\" Name = \"Command1\" +-------PROCEDURE Click | DIME a(4)
| a(1)=thisform.Text1.value
| a(2)=thisform.Text2.value | a(3)=thisform.Text3.value | a(4)=thisform.text4.value | SET exact on
| LOCATE for 书名=a(1) and 书号=a(2) | +-------IF eof()=.t.
| | APPEND from array a
| | MESSAGEBOX('该书已经添加成功！',48,'信息提示')
| | thisform.RELEASE | +-------ELSE | |
| | =MESSAGEBOX(\"该书已经存在，请重新输入！\信息提示\") | +-------ENDIF | +-------ENDPROC Top = 192 Left = 180 Height = 37 Width = 109 Caption = \"取消\"
Name = \"Command2\" +-------PROCEDURE Click
| DO form tsxxgl.scx | thisform.release +-------ENDPROC Left = 1 Top = 220 Width = 520 Height = 200
Name = \"Dataenvironment\" Alias = \"图书信息表\" Database = 图书管理.dbc CursorSource = \"图书信息表\" Name = \"Cursor1\" DoCreate = .T. Caption = \"tsxxcx\" Name = \"Form1\" ColumnCount = 4 Height = 217 Left = 0
RecordSource = \"图书信息表\" Top = 0
Width = 373 Name = \"Grid1\"
Column1.ControlSource = \"图书信息表.书号\" Column1.Width = 75 Column1.Name = \"Column1\"
Column2.ControlSource = \"图书信息表.书名\" Column2.Width = 75 Column2.Name = \"Column2\"
Column3.ControlSource = \"图书信息表.作者\" Column3.Width = 75 Column3.Name = \"Column3\"
Column4.ControlSource = \"图书信息表.出版社\" Column4.Width = 75 Column4.Name = \"Column4\" Caption = \"书号\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Caption = \"书名\"
Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Caption = \"作者\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\" Caption = \"出版社\" Name = \"Header1\" BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = \"Text1\"
Name = \"Dataenvironment\" Top = -2
Left = -4 Height = 443 Width = 625 DoCreate = .T.
Caption = \"图书信息管理\" WindowState = 2 Name = \"Form1\" Top = 84 Left = 60 Height = 36 Width = 156 FontSize = 12
Caption = \"添加新的图书\" Name = \"Command1\" +-------PROCEDURE Click
| DO FORM tjts.scx | +-------ENDPROC Top = 84 Left = 288 Height = 37 Width = 156
FontSize = 12 Caption = \"管理图书\" Name = \"Command3\" +-------PROCEDURE Click
| DO FORM sjgl.scx | +-------ENDPROC Top = 264 Left = 156 Height = 36 Width = 156 FontSize = 12
Caption = \"返回登录面\" Name = \"Command5\" +-------PROCEDURE Click
| DO form 登陆界面.scx | thisform.RELEASE +-------ENDPROC FontSize = 18
Caption = \"图书信息管理\" Height = 37 Left = 24
Top = 24 Width = 156 Name = \"Label1\" Top = 144 Left = 60 Height = 37 Width = 157 FontSize = 12
Caption = \"查询书籍 \" Name = \"Command2\" +-------PROCEDURE Click
| DO FORM jygl.scx | +-------ENDPROC Top = 144 Left = 288 Height = 36 Width = 156 FontSize = 12
Caption = \"学生信息查询\" Name = \"Command4\" +-------PROCEDURE Click
| DO form jycx.scx | +-------ENDPROC Top = 204 Left = 288 Height = 37 Width = 157 FontSize = 12
Caption = \"管理员信息查询\" Name = \"Command7\" +-------PROCEDURE Click
| DO form glyxxcx.scx | +-------ENDPROC Top = 204 Left = 60 Height = 37 Width = 157 FontSize = 12
Caption = \"图书信息查询\" Name = \"Command6\" +-------PROCEDURE Click
| DO form tsxxcx.scx | +-------ENDPROC Left = 1 Top = 220 Width = 520 Height = 200
Name = \"Dataenvironment\" Left = 10 Top = 20 Width = 116 Height = 90 Alias = \"gly\"
Database = 图书管理.dbc CursorSource = \"gly\" Name = \"Cursor1\" Top = 0 Left = 0 Height = 443 Width = 625 ShowWindow = 2 DoCreate = .T.
Caption = \"登陆界面\" WindowState = 0 Name = \"Form1\" OLEDragPicture = Picture = 1310657170.jpg Stretch = 1 Height = 720 Left = -156 Top = -60 Width = 816 Name = \"Image1\" FontSize = 14
Caption = \"用户属性：\" Height = 36 Left = 144 Top = 228 Width = 84
BackColor = 192,192,192 Name = \"Label1\" FontSize = 14 ColumnCount = 0 ColumnWidths = \"\"
RowSourceType = 1 RowSource = \"管理员\" FirstElement = 1 Height = 37 Left = 252
NumberOfElements = 0 SpecialEffect = 0 Style = 2 Top = 228 Width = 120 Format = \"\" Name = \"Combo1\" FontSize = 16 Caption = \"账号：\" Height = 36 Left = 144 Top = 276 Width = 84
BackColor = 192,192,192 Name = \"Label2\" FontSize = 14 Format = \"STRING\"
Height = 37 Left = 252 Top = 276 Width = 120 Name = \"Text1\" FontSize = 16 Caption = \"密码：\" Height = 37 Left = 144 Top = 324 Width = 84
BackColor = 192,192,192 Name = \"Label3\" FontSize = 14 Format = \"STRING\" Height = 37 Left = 252 Top = 324 Width = 120 PasswordChar = \"*\" Name = \"Text2\" Top = 396
Left = 96 Height = 37 Width = 96 FontSize = 16 Caption = \"登录\" Name = \"Command1\" +-------PROCEDURE Click | SET exact on
| LOCATE for thisform.Combo1.value ='管理员'and 管理员=thisform.Text1.value and 密码=thisform.Text2.value | +-------IF found()=.t.
| | DO FORM tsxxgl.scx | | thisform.RELEASE | +-------ELSE
| | thisform.Text2.VALUE=''
| | =MESSAGEBOX(\"对不起,你的密码错误！\信息提示\")
| | thisform.Text2.SETFOCUS | +-------ENDIF | +-------ENDPROC Top = 396
Left = 360 Height = 36 Width = 96 FontSize = 16 Caption = \"退出\" Name = \"Command2\" +-------PROCEDURE Click | Clear EVENTS | thisform.RELEASE | +-------IF secondtime<1 | | QUIT | +-------ENDIF | +-------ENDPROC Top = 396 Left = 228 Height = 37 Width = 96 FontSize = 16 Caption = \"找回密码\" Name = \"Command3\" +-------PROCEDURE Click
| DO FORM gly.scx | thisform.RELEASE +-------ENDPROC AutoSize = .T. FontSize = 20
Caption = \"图书管理系统---湖南大学11级机自一班学生制作\"
Height = 33 Left = 360 Top = 0 Width = 585 BackColor = 0,255,0 Name = \"Label4\" Top = 36 Left = 588 Height = 24 Width = 37 Interval = 200 Name = \"Timer1\" +-------PROCEDURE Timer | +-------IF
THISFORM.Label4.LEFT+THISFORM.Label4.WIDTH<0
| |
thisform.Label4.LEFT=THISFORM.WIDTH | +-------ELSE | |
thisform.Label4.LEFT=THISFORM.Label4.LEFT-10 | +-------ENDIF +-------ENDPROC
因篇幅问题不能全部显示，请点此查看更多更全内容