圖書管理系統(tǒng)開發(fā)設(shè)計(jì)源代碼

1、圖書管理系統(tǒng)設(shè)計(jì)源代碼 :*: 文件列表FILE圖書管理系統(tǒng) .PRG1310657170.JPGGLY.SCXGLYXXCX.SCXJYCX.SCXJYGL.SCXSJGL.SCXTJTS.SCXTSXXCX.SCXTSXXGL.SCX登陸界面 .SCX圖書管理 .DBCDatabase Database Version 10 Database TransactionLogDatabase StoredProceduresSourceDatabase StoredProceduresObjectDatabase StoredProceduresDependenciesTable 圖書信息表P

2、ath 圖書信息表 .dbf10 0Field 書名 書名 C 17 0Field 作者 作者 C 12 0Field 出版社 出版社 C 21 0Index xhUnique 0 Table 讀者信息表Path 讀者信息表 .dbf Field 學(xué)號(hào) 學(xué)號(hào) C 10 0Field 姓名 姓名 C 10 0Field 專業(yè) 專業(yè) C 10 0Field 電話 電話 C 11 0Table 借閱管理表Path 借閱管理表 .dbf10 0Field 姓名 姓名 C 10 0Field 已借書號(hào) 已借書號(hào) C 10 0Field 已借書名 已借書名 C 10 0Field 借閱日期 借閱日期 D

3、8 0Table glyPath gly.dbf Field 管理員 管理員 C 10 0Field 密碼 密碼 C 10 0Field 身份證號(hào) 身份證號(hào) C 20 0Field 備注 備注 M 4 0 NoCPTransIndex 管理員Unique 0*: 使用 Visual FoxPro 格式的向?qū)О姹旧晌臋n .05*:* *: 圖書管理系統(tǒng)PUBLIC sun,flag,xh,sh,secondtime,printtypeprinttype=0secondtime=0sun=0DO FORM 登陸界面 .scxREAD eventsLeft = 1Top = 220Width =

4、520Height = 200Name = "Dataenvironment"Left = 10Top = 20Width = 116Height = 90Alias = "gly"Database = 圖書管理 .dbcCursorSource = "gly"Name = "Cursor1" Top = 0Left = 0DoCreate = .T. Caption = "Form1" Name = "Form1" Caption = "賬號(hào) " Hei

5、ght = 24Left = 24Top = 12Width = 84Name = "Label1" Format = ""Height = 25Left = 108Top = 12Width = 168Name = "Text1" Caption = "設(shè)置新密碼 " Height = 24Left = 24Top = 84Name = "Label2" Format = "spring" Height = 24Left = 108Top = 48Width = 168Na

6、me = "Text2" Caption = "身份證號(hào) " Height = 25Left = 24Top = 48Width = 61Name = "Label3" Format = "spring" Height = 25Left = 108Top = 84Width = 169Name = "Text3" Top = 168Left = 72Width = 133Caption = "確認(rèn) "Name = "Command1"+-PROCEDURE

7、 Click| SET exact on| SET order to 管理員| SEEK thisform.Text1.value| +-IF found(=.f.| | MESSAGEBOX('此賬號(hào)不存在! ',0+64+0,'提示 '| +-ELSE| | LOCATE for 管理員 =thisform.Text1.value | | +-IF 身份證號(hào) <>thisform.Text2.value| | | MESSAGEBOX('您輸入的身份 證號(hào)不正確! ',0+64+0,'提示 '| | +-ELSE|

8、 | | +-IF len(thisform.Text3.value<6 | | | | MESSAGEBOX('密碼 不得少于 6位! ',0+64+0,'提示 '| | | +-ELSE| | | | +-IFthisform.Text3.value<>thisform.text4.value| | | | |MESSAGEBOX('2次輸入的密碼不一致,請(qǐng)重新輸入! ',0+64+0,'提示 '| | | | +-ELSE| | | | | REPLACE all 密碼 with thisform.Text

9、3.value for 管理員 =thisform.Text1.value | | | | |MESSAGEBOX('密碼修改成功! ',0+64+0,'提示 '| | | | | DO form 登 陸界面 .scx| | | | |thisform.release| | | | +-ENDIF| | | +-ENDIF| | +-ENDIF| +-ENDIF|+-ENDPROCCaption = "確認(rèn)新密碼 "Height = 25Left = 24Top = 120Width = 73Name = "Label4"

10、Height = 25Left = 108Top = 120Width = 169Name = "Text4"Name = "Dataenvironment" Alias = "gly"Database = 圖書管理 .dbc CursorSource = "gly" Name = "Cursor1" DoCreate = .T.Caption = "glyxxcx" Name = "Form1" ColumnCount = 3Height = 229Le

11、ft = 12 RecordSource = "gly" Top = 12Width = 361Name = "Grid1" Column1.ControlSource = "gly.管理員 " Column1.Width = 75Column1.Name = "Column1" Column2.ControlSource = "gly.密碼 " Column2.Width = 75Column2.Name = "Column2" Column3.ControlSource

12、= "gly.身份證號(hào) " Column3.Width = 75Column3.Name = "Column3"Caption = "管理員 "Name = "Header1"BorderStyle = 0Margin = 0ForeColor = 0,0,0BackColor = 255,255,255Name = "Text1"Caption = "密碼 "Name = "Header1"BorderStyle = 0Margin = 0ForeCol

13、or = 0,0,0BackColor = 255,255,255 Name = "Text1"Caption = "身份證號(hào) " Name = "Header1" BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"Left = 1Top = 220Width = 520Height = 200Name = "Dataenvironment" Left = 10Top = 20Widt

14、h = 116Height = 90Alias = "借閱管理表 " Database = 圖書管理 .dbc CursorSource = "借閱管理表 " Name = "Cursor1"Top = 0Left = 0Height = 443Width = 625DoCreate = .T.Caption = "Form1"WindowState = 2Name = "Form1"Top = 360Left = 132Height = 25Width = 96Caption = "

15、返回 "Name = "Command1" +-PROCEDURE Click| thisform.RELEASE +-ENDPROCColumnCount = 5Height = 288Left = 12RecordSource = "借閱管理表 " Top = 24Width = 492Name = "Grid1"Column1.ControlSource = "借閱管理表 . 姓名 " Column1.Width = 75Column1.Name = "Column1" Colu

16、mn2.ControlSource = "借閱管理表 . 已借書號(hào) " Column2.Width = 75Column2.Name = "Column2" Column3.ControlSource = "借閱管理表 . 已借書名 " Column3.Width = 75Column3.Name = "Column3" Column4.ControlSource = "借閱管理表 . 借閱日期 " Column4.Width = 75Column4.Name = "Column4&q

17、uot; Column5.ControlSource = "借閱管理表 . 學(xué)號(hào) " Column5.Width = 75Column5.Name = "Column5"Caption = "姓名 "Name = "Header1"BorderStyle = 0Margin = 0ForeColor = 0,0,0BackColor = 255,255,255 Name = "Text1" Caption = "已借書號(hào) " Name = "Header1"

18、; BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Caption = "已借書名 " Name = "Header1" BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Caption = "借閱日期 " Name = "Header1" Bord

19、erStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255Name = "Text1"Caption = "學(xué)號(hào) "Name = "Header1" BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"Left = 1Top = 220Width = 520Height = 200Name = "Dataenvironment&qu

20、ot; Left = 10Top = 20Width = 116Height = 90Alias = "圖書信息表 " Database = 圖書管理 .dbc CursorSource = "圖書信息表 " Name = "Cursor1"Top = -1Height = 443 Width = 625 DoCreate = .T. Caption = "Form1" WindowState = 2 Name = "Form1" Caption = "書號(hào) " Height

21、 = 37 Left = 168 Top = 48Width = 121 Name = "Label2" Caption = "書名 " Height = 37 Left = 168 Top = 108 Width = 121 Name = "Label3" Caption = "作者 " Height = 37 Left = 168Width = 121 Name = "Label4" Height = 37 Left = 312 Top = 48 Width = 145 Name = &qu

22、ot;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 = 97Caption = "查詢書籍 "Name = "Command2"+-PROCEDURE Click| GO top| SET exact on| LOCATE

23、for 書號(hào) =thisform.Text1.value and 書名 =thisform.Text2.value| +-IF found(=.t.| | thisform.Text1.value=書號(hào)| | thisform.Text2.value=書名| | thisform.Text3.value=作者| | thisform.text4.value=出版社| +-ELSE| | =MESSAGEBOX("對(duì)不起 , 你的輸入錯(cuò) 誤! ",48," 信息提示 "| +-ENDIF|+-ENDPROCTop = 264Left = 324Height

24、 = 37Width = 85Caption = "退出 "Name = "Command3" +-PROCEDURE Click| thisform.RELEASE +-ENDPROCCaption = "出版社 "Height = 37Left = 168Top = 204Width = 121Name = "Label1"Height = 37Left = 312Top = 204Width = 145Name = "Text4"Left = 1Top = 220Width = 520He

25、ight = 200Name = "Dataenvironment"Left = 10Top = 20Width = 116Height = 90Alias = "圖書信息表 " ORDER = "xh"Database = 圖書管理 .dbc CursorSource = "圖書信息表 " Name = "Cursor1"Top = 10Left = -34Height = 445Width = 606DoCreate = .T.Caption = "Form1" Wind

26、owState = 2Name = "Form1"Caption = "書號(hào) "Height = 36Left = 48Top = 60Width = 96Name = "Label1"Caption = "書名 "Height = 36Left = 48Top = 120Width = 96Name = "Label2"Height = 37Left = 192Top = 120Width = 168Name = "Text2"Top = 288Left = 12Heigh

27、t = 49Width = 97Caption = "修改 "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 書號(hào) =a(2| +-IF found(=.t.| | REPLACE 書號(hào) with a(1| | REPLACE 書名

28、with a(2| | REPLACE 作者 with a(3| | REPLACE 出版社 with a(4| | =MESSAGEBOX("該書已經(jīng)修改成功! ",48," 信息提示 "| +-ELSE| | =MESSAGEBOX("沒有找到對(duì)應(yīng)的圖書 編號(hào)! ",48," 信息提示 "| +-ENDIF+-ENDPROCTop = 288Left = 312Height = 49Width = 97Caption = "取消 "Name = "Command2"+-P

29、ROCEDURE Click| thisform.RELEASE+-ENDPROCTop = 288Left = 144Height = 49Width = 121Caption = "刪除 "Name = "Command3"+-PROCEDURE Click| GO top| SET exact on| LOCATE for 書名 =thisform.Text1.value and 書號(hào) =thisform.Text2.value| +-IF found(=.t.| | Delete| | PACK| | =MESSAGEBOX("該書已經(jīng)

30、刪除! ",48," 信息提示 "| +-ELSE| | =MESSAGEBOX("對(duì)不起 , 你的輸入錯(cuò) 誤! ",48," 信息提示 "| +-ENDIF |+-ENDPROCCaption = "作者 " Height = 37 Left = 48Top = 180Width = 85 Name = "Label3" Caption = "出版社 " Height = 37 Left = 48Top = 228Width = 97 Name = "L

31、abel4" Height = 36 Left = 192Top = 168Width = 168 Name = "Text3" Height = 33 Left = 192Top = 219Width = 168Name = "Text4"Format = ""Height = 37Left = 192Top = 60Width = 168Name = "Text1"Left = 92Top = 343Width = 520Height = 200Name = "Dataenvironment

32、" Left = 150Top = 20Width = 116Height = 90Alias = "圖書信息表 1" Database = 圖書管理 .dbc CursorSource = "圖書信息表 " Name = "Cursor2"Top = -10Left = 90 DoCreate = .T. Caption = "tjxdbd" Name = "Form1" Caption = "書號(hào) " Height = 25 Left = 12Top = 24W

33、idth = 73 Name = "書號(hào) " Caption = "書名 " Height = 37 Left = 12Top = 60Width = 85 Name = "Label2" Caption = "出版社 " Height = 25 Left = 12Top = 144Width = 85Name = "Label4" Value =Format = "" Height = 25 Left = 96 Top = 24 Width = 169 Name = &qu

34、ot;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 = 24Left = 96Top = 144Width = 168Name = "Text4"

35、Caption = "作者 "Height = 25Left = 12Top = 96Width = 73Name = "Label1"Top = 192Left = 36Height = 37Width = 109Caption = "確定 "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.

36、text4.value| SET exact on| LOCATE for 書名 =a(1 and 書號(hào) =a(2| +-IF eof(=.t.| | APPEND from array a| | MESSAGEBOX('該書已經(jīng)添加成功! ',48,' 信息提示 '| | thisform.RELEASE| +-ELSE| | | =MESSAGEBOX("該書已經(jīng)存在, 請(qǐng)重新 輸入! ",48," 信息提示 "| +-ENDIF|+-ENDPROCTop = 192Left = 180Height = 37Width

37、 = 109Caption = "取消 "Name = "Command2" +-PROCEDURE Click| DO form tsxxgl.scx | thisform.release +-ENDPROCLeft = 1Top = 220Width = 520Height = 200Name = "Dataenvironment" Alias = "圖書信息表 " Database = 圖書管理 .dbc CursorSource = "圖書信息表 " Name = "Curso

38、r1"DoCreate = .T.Caption = "tsxxcx"Name = "Form1"ColumnCount = 4Height = 217Left = 0RecordSource = "圖書信息表 " Top = 0Width = 373Name = "Grid1"Column1.ControlSource = "圖書信息表 . 書號(hào) " Column1.Width = 75Column1.Name = "Column1" Column2.Contro

39、lSource = "圖書信息表 . 書名 " Column2.Width = 75Column2.Name = "Column2" Column3.ControlSource = "圖書信息表 . 作者 " Column3.Width = 75Column3.Name = "Column3" Column4.ControlSource = "圖書信息表 . 出版社 " Column4.Width = 75Column4.Name = "Column4"Caption = &

40、quot;書號(hào) "Name = "Header1"BorderStyle = 0Margin = 0ForeColor = 0,0,0BackColor = 255,255,255Name = "Text1"Caption = "書名 "Name = "Header1" BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"Caption = "作者 "Nam

41、e = "Header1" BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"Caption = "出版社 " Name = "Header1" BorderStyle = 0Margin = 0ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"Name = "Dataenvironment" Top =

42、 -2Left = -4Height = 443Width = 625DoCreate = .T.Caption = "圖書信息管理 " WindowState = 2Name = "Form1"Top = 84Left = 60Height = 36Width = 156FontSize = 12Caption = "添加新的圖書 " Name = "Command1" +-PROCEDURE Click| DO FORM tjts.scx |+-ENDPROCTop = 84Left = 288Height =

43、 37Width = 156FontSize = 12Caption = "管理圖書 "Name = "Command3"+-PROCEDURE Click| DO FORM sjgl.scx |+-ENDPROCTop = 264Left = 156Height = 36Width = 156FontSize = 12Caption = "返回登錄面 "Name = "Command5"+-PROCEDURE Click| DO form 登陸界面 .scx | thisform.RELEASE +-ENDPRO

44、CFontSize = 18Caption = "圖書信息管理 " Height = 37Left = 24Top = 24Width = 156Name = "Label1"Top = 144Left = 60Height = 37Width = 157FontSize = 12Caption = "查詢書籍 " Name = "Command2" +-PROCEDURE Click| DO FORM jygl.scx |+-ENDPROCTop = 144Left = 288Height = 36Width =

45、 156FontSize = 12Caption = "學(xué)生信息查詢 " Name = "Command4" +-PROCEDURE Click|+-ENDPROCTop = 204Left = 288Height = 37Width = 157FontSize = 12Caption = "管理員信息查詢 " Name = "Command7"+-PROCEDURE Click| DO form glyxxcx.scx |+-ENDPROCTop = 204Left = 60Height = 37Width =

46、157FontSize = 12Caption = "圖書信息查詢 " Name = "Command6"+-PROCEDURE Click|+-ENDPROCLeft = 1Top = 220Width = 520Height = 200Name = "Dataenvironment" Left = 10Top = 20Width = 116Height = 90Alias = "gly"Database = 圖書管理 .dbc CursorSource = "gly" Name = &quo

47、t;Cursor1"Top = 0Left = 0Height = 443Width = 625ShowWindow = 2DoCreate = .T.Caption = "登陸界面 " WindowState = 0 Name = "Form1" OLEDragPicture = Picture = 1310657170.jpg Stretch = 1Height = 720Left = -156Top = -60Width = 816Name = "Image1" FontSize = 14Caption = "

48、;用戶屬性:" Height = 36Left = 144Top = 228Width = 84BackColor = 192,192,192 Name = "Label1" FontSize = 14 ColumnCount = 0 ColumnWidths = ""RowSourceType = 1 RowSource = "管理員 " FirstElement = 1 Height = 37Left = 252 NumberOfElements = 0 SpecialEffect = 0 Style = 2Top = 228Width = 120Format = ""Name = "Combo1" FontSize = 16Caption = "賬號(hào):" Height = 36Left = 144Top = 276Width = 84 BackColor = 192,192,192 Name = "Label2" FontSize = 14Format = "STRING"Height =