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

《图书管理系统开发设计源代码.doc》由会员分享，可在线阅读，更多相关《图书管理系统开发设计源代码.doc（44页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、图书管理系统设计源代码:*: 文件列表 FILE 图书管理系统.PRG .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 图书

2、信息表 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

3、 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 s

4、un=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

5、 = 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 Wid

6、th = 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,提示)| +-EL

7、SE| | 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.valuethisform.text4.value| | | | | MESSAGEBOX(2次输入的密码不一致，请重新

8、输入！,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

9、= 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 = 3

10、61 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 ForeCo

11、lor = 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 = 52

12、0 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 Cap

13、tion = 返回 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

14、.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

15、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 =

16、 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 H

17、eight = 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

18、 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

19、= 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(

20、对不起,你的输入错误！,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

21、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 = 书号

22、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

23、(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(该书已经修改成功！,48,信息提示)| +-ELSE| | =MESSAGEBOX(没有找到对应的图书编号！,48,信息提示)| +-E