图书管理系统开发设计源代码.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.valuethisform。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)