图书管理系统开发设计源代码.doc

图书管理系统开发设计源代码

———————————————————————————————— 作者：
———————————————————————————————— 日期：

46

个人收集整理 勿做商业用途
图书管理系统设计源代码：
*： 文件列表
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("对不起，你的输入错误！”，48，"信息提示")
| +—-—————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)
｜