【導(dǎo)讀】產(chǎn)生的借書信息、還書信息。因此需要對其信息進(jìn)行管理，及時了解各個環(huán)節(jié)中。信息的變更，有利于提高管理效率。我們將建立一個圖書館管理信息系統(tǒng)。因為Visual具有強大的數(shù)。糧，尤其對一些學(xué)校來說，尤其重要。所以圖書管理系統(tǒng)應(yīng)該能夠為用戶提供充。足的信息和快捷的查詢手段。但傳統(tǒng)人工管理方式存在著許多缺點,如:效率低、帶來了不少的困難。的建和維護及前端應(yīng)用程序的開發(fā)兩個方面。完整性強.數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特

　　

【正文】 Alignment = 3, 。 ControlSource = 讀者信息表 .登記日期 , 。 Format = , 。 InputMask = , 。 Left = 105, 。 ReadOnly = .F., 。 Top = 249, 。 Visible = .T., 。 Width = 62, 。 Name = 登記日期 1 ADD OBJECT lbl 備注 1 AS embossedlabel WITH 。 Caption = 備注 :, 。 Left = 10, 。 Top = 277, 。 Visible = .T., 。 Width = 75, 。 Name = LBL 備注 1 ADD OBJECT 備注 1 AS embossedfield WITH 。 ControlSource = 讀者信息表 .備注 , 。 Format = , 。 Height = 63, 。 InputMask = XXXXXXXXXXXXXXXXXXXX, 。 Left = 105, 。 ReadOnly = .F., 。 Top = 273, 。 Visible = .T., 。 Width = 150, 。 Name = 備注 1 ADD OBJECT buttonset1 AS txtbtns WITH 。 Top = 373, 。 Left = 53, 。 Width = 320, 。 Height = 53, 。 Visible = .T., 。 oldtalk = OFF, 。 viewkey = (), 。 parentkey = , 。 viewtype = 3, 。 gridalias = , 。 topfile = .T., 。 endfile = .T., 。 addmode = .F., 。 nworkarea = 3, 。 oldsetdelete = OFF, 。 oldreprocess = 0, 。 oldmultilocks = ON, 。 oldsetfields = OFF, 。 previewmode = .F., 。 previewinit = .F., 。 usedataenv = .F., 。 editmode = .F., 。 gridref = , 。 oldbuffering = 1, 。 Name = BUTTONSET1, 。 = .T., 。 = cmdPrev, 。 = .T., 。 = cmdNext, 。 = .T., 。 = cmdTop, 。 = .T., 。 = cmdEnd, 。 = 24, 。 = 0, 。 = 24, 。 = 60, 。 = .T., 。 = cmdFind, 。 = 24, 。 = 60, 。 = 60, 。 = .T., 。 = cmdPrint, 。 = 24, 。 = 252, 。 = 60, 。 = .T., 。 = cmdExit, 。 = 24, 。 = 120, 。 = 60, 。 = 添加 (\A), 。 = .T., 。 = cmdAdd, 。 = 1, 。 = 252, 。 = 60, 。 = .T., 。 = cmdDelete, 。 = 24, 。 = 180, 。 = 71, 。 = 編輯 (\E), 。 = .T., 。 = cmdEdit ENDDEFINE * * 結(jié)束定義 : form1 PUBLIC oform1 oform1=NEWOBJECT(form1) RETURN ************************************************** * Form: form1 圖書管理系統(tǒng)源代碼 \讀者種類 .scx) * 父類 : form * 基類 : form * DEFINE CLASS form1 AS form Height = 371 Width = 286 DoCreate = .T. AutoCenter = .T. BorderStyle = 0 Caption = 讀者種類 Name = Form1 ADD OBJECT shape1 AS shape WITH 。 Top = 12, 。 Left = 24, 。 Height = 300, 。 Width = 241, 。 BackStyle = 0, 。 BorderStyle = 6, 。 BorderColor = RGB(255,255,255), 。 Name = Shape1 ADD OBJECT label1 AS label WITH 。 AutoSize = .T., 。 Caption = 讀者種類 :, 。 Height = 16, 。 Left = 36, 。 Top = 7, 。 Width = 56, 。 Name = Label1 ADD OBJECT label2 AS label WITH 。 AutoSize = .T., 。 Caption = 種類編號 :, 。 Height = 16, 。 Left = 48, 。 Top = 40, 。 Width = 56, 。 Name = Label2 ADD OBJECT label3 AS label WITH 。 AutoSize = .T., 。 Caption = 種類名稱 :, 。 Height = 16, 。 Left = 48, 。 Top = 74, 。 Width = 56, 。 Name = Label3 ADD OBJECT label4 AS label WITH 。 AutoSize = .T., 。 Caption = 借書數(shù)量 :, 。 Height = 16, 。 Left = 48, 。 Top = 108, 。 Width = 56, 。 Name = Label4 ADD OBJECT label5 AS label WITH 。 AutoSize = .T., 。 Caption = 借書期限 :, 。 Height = 16, 。 Left = 47, 。 Top = 144, 。 Width = 56, 。 Name = Label5 ADD OBJECT label6 AS label WITH 。 AutoSize = .T., 。 Caption = 有效期限 :, 。 Height = 16, 。 Left = 49, 。 Top = 178, 。 Width = 56, 。 Name = Label6 ADD OBJECT label7 AS label WITH 。 AutoSize = .T., 。 Caption = 備注信息 :, 。 Height = 16, 。 Left = 48, 。 Top = 211, 。 Width = 56, 。 Name = Label7 ADD OBJECT 種類編號 AS textbox WITH 。 ControlSource = , 。 Height = 25, 。 Left = 108, 。 Top = 33, 。 Width = 84, 。 Name = 種類編號 ADD OBJECT 種類名稱 AS textbox WITH 。 Height = 25, 。 Left = 108, 。 Top = 67, 。 Width = 85, 。 Name = 種類名稱 ADD OBJECT 借書數(shù)量 AS textbox WITH 。 Height = 25, 。 Left = 108, 。 Top = 101, 。 Width = 60, 。 Name = 借書數(shù)量 ADD OBJECT 有效期限 AS textbox WITH 。 Height = 25, 。 Left = 108, 。 Top = 169, 。 Width = 61, 。 Name = 有效期限 ADD OBJECT 備注信息 AS textbox WITH 。 Height = 73, 。 Left = 48, 。 Top = 228, 。 Width = 181, 。 Name = 備注信息 ADD OBJECT 借書期限 AS textbox WITH 。 Height = 25, 。 Left = 108, 。 Top = 137, 。 Width = 60, 。 Name = 借書期限 ADD OBJECT mand1 AS mandbutton WITH 。 Top = 324, 。 Left = 48, 。 Height = 25, 。 Width = 72, 。 Caption = 保存 , 。 Name = Command1 ADD OBJECT mand2 AS mandbutton WITH 。 Top = 324, 。 Left = 171, 。 Height = 25, 。 Width = 72, 。 Caption = 返回 , 。 Name = Command2 ADD OBJECT label8 AS label WITH 。 AutoSize = .T., 。 Caption = 本 , 。 Height = 16, 。 Left = 175, 。 Top = 105, 。 Width = 14, 。 Name = Label8 ADD OBJECT label9 AS label WITH 。 AutoSize = .T., 。 Caption = 天 , 。 Height = 16, 。 Left = 176, 。 Top = 143, 。 Width = 14, 。 Name = Label9 ADD OBJECT label10 AS label WITH 。 AutoSize = .T., 。 Caption = 月 , 。 Height = 16, 。 Left = 177, 。 Top = 174, 。 Width = 14, 。 Name = Label10 PROCEDURE insert into 讀者種類信息表 (種類編號 ,種類名稱 ,借書數(shù)量 ,借書期限 ,有效期限 ,備注 )。 values (thisform. 種類編號 .value,thisform. 種類名稱 .value, .value, .value,效期限 .value, .value) ENDPROC PROCEDURE ENDPROC ENDDEFINE * * 結(jié)束定義 : form1 PUBLIC oform1 oform1=NEWOBJECT(form1) RETURN ************************************************** * Form: form1 (\圖書管理系統(tǒng)源代碼 \讀者種類列表 .scx) * 父類 : form * 基類 : form * DEFINE CLASS form1 AS form Height = 383 Width = 527 DoCreate = .T.