图书管理系统开发设计源代码.docx
- 文档编号:18589620
- 上传时间:2023-08-19
- 格式:DOCX
- 页数:36
- 大小:18.94KB
图书管理系统开发设计源代码.docx
《图书管理系统开发设计源代码.docx》由会员分享,可在线阅读,更多相关《图书管理系统开发设计源代码.docx(36页珍藏版)》请在冰点文库上搜索。
图书管理系统开发设计源代码
图书管理系统设计源代码:
*:
文件列表
FILE
图书管理系统.PRG
.JPG
GLY.SCX
GLYXXCX.SCX
JYCX.SCX
JYGL.SCX
SJGL.SCX
TJTS.SCX
TSXXCX.SCX
TSXXGL.SCX
登陆界面.SCX
图书管理.DBC
DatabaseDatabaseVersion10
DatabaseTransactionLog
DatabaseStoredProceduresSource
DatabaseStoredProceduresObject
DatabaseStoredProceduresDependencies
Table图书信息表
Path图书信息表.dbf
Field书号书号C100
Field书名书名C170
Field作者作者C120
Field出版社出版社C210
Indexxh
Unique0
Table读者信息表
Path读者信息表.dbf
Field学号学号C100
Field姓名姓名C100
Field专业专业C100
Field电话电话C110
Table借阅管理表
Path借阅管理表.dbf
Field学号学号C100
Field姓名姓名C100
Field已借书号已借书号C100
Field已借书名已借书名C100
Field借阅日期借阅日期D80
Tablegly
Pathgly.dbf
Field管理员管理员C100
Field密码密码C100
Field身份证号身份证号C200
Field备注备注M40NoCPTrans
Index管理员
Unique0
*:
使用VisualFoxPro格式的向导版本生成文档.05
*:
******************************************************************************
*:
图书管理系统
PUBLICsun,flag,xh,sh,secondtime,printtype
printtype=0
secondtime=0
sun=0
DOFORM登陆界面.scx
READevents
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"
+-------PROCEDUREClick
|SETexacton
|SETorderto管理员
|SEEKthisform.Text1.value
|+-------IFfound()=.f.
||MESSAGEBOX('此账号不存在!
',0+64+0,'提示')
|+-------ELSE
||LOCATEfor管理员=thisform.Text1.value
||+-------IF身份证号<>thisform.Text2.value
|||MESSAGEBOX('您输入的身份证号不正确!
',0+64+0,'提示')
||+-------ELSE
|||+-------IFlen(thisform.Text3.value)<6
||||MESSAGEBOX('密码不得少于6位!
',0+64+0,'提示')
|||+-------ELSE
||||+-------IFthisform.Text3.value<>thisform.text4.value
|||||MESSAGEBOX('2次输入的密码不一致,请重新输入!
',0+64+0,'提示')
||||+-------ELSE
|||||REPLACEall密码withthisform.Text3.valuefor管理员=thisform.Text1.value
|||||MESSAGEBOX('密码修改成功!
',0+64+0,'提示')
|||||DOform登陆界面.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"
+-------PROCEDUREClick
|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"
+-------PROCEDUREClick
|GOtop
|SETexacton
|LOCATEfor书号=thisform.Text1.valueand书名=thisform.Text2.value
|+-------IFfound()=.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"
+-------PROCEDUREClick
|
|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"
+-------PROCEDUREClick
|SETexacton
|DIMEa(4)
|a
(1)=thisform.Text1.value
|a
(2)=thisform.Text2.value
|a(3)=thisform.Text3.value
|a(4)=thisform.text4.value
|LOCATEfor书名=a
(1)and书号=a
(2)
|+-------IFfound()=.t.
||REPLACE书号witha
(1)
||REPLACE书名witha
(2)
||REPLACE作者witha(3)
||REPLACE出版社witha(4)
||=MESSAGEBOX("该书已经修改成功!
",48,"信息提示")
|+-------ELSE
||=MESSAGEBOX("没有找到对应的图书编号!
",48,"信息提示")
|+-------ENDIF
+-------ENDPROC
Top=288
Left=312
Height=49
Width=97
Caption="取消"
Name="Command2"
+-------PROCEDUREClick
|thisform.RELEASE
+-------ENDPROC
Top=288
Left=144
Height=49
Width=121
Caption="删除"
Name="Command3"
+-------PROCEDUREClick
|GOtop
|SETexacton
|LOCATEfor书名=thisform.Text1.valueand书号=thisform.Text2.value
|+-------IFfound()=.t.
||Delete
||PACK
||=MESSAGEBOX("该书已经删除!
",48,"信息提示")
|+-------ELSE
||=MESSAGEBOX("对不起,你的输入错误!
",48,"信息提示")
|+-------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=""
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书 管理 系统 开发 设计 源代码