【正文】 gle 代碼： unit Unit1。 type TForm1 = class(TForm) ADOConnection1: TADOConnection。 //選擇登陸身份 GroupBox1: TGroupBox。 Label2: TLabel。 cbbcustNo: TComboBox。 RBTadmin: TRadioButton。 RBTfangke: TRadioButton。 btnexit: TButton。 procedure btnexitClick(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 var Form1: TForm1。 //登陸用戶的身份 no:integer。 //登陸用戶的姓名 implementation uses Unit2,uyhmain, Ujiemian,jszunit1,uxtwh,uregister 。 var CurrTime: TSystemTime。 begin GetSystemTime(CurrTime)。 while Sec do GetSystemTime(CurrTime)。39。39。 if not then :=39。39。Data Source=database\。 end。//“退出系統(tǒng) ”按鈕的 onclick 事件 begin close。 procedure (Sender: TObject)。 begin if then id:=39。 else if then id:=39。 else if then id:=39。 。39。請輸入用戶編號 !39。39。請輸入密碼 !39。 close。 if id=39。 then (39。) else if id=39。 then (39。) else if id=39。 then (39。)。用戶號 39。 (39。).value:=。 open。 i:= 。//保存用戶編號的列表框為空或編號值不重復(fù)時，將輸入的編號保存 yhname:=fieldbyname(39。).asstring end else begin :=+1。對不起，您無權(quán)使用該程序 !39。 。對不起，您輸入的用戶號或密碼有誤，請重新輸入 !39。 :=39。 :=39。 。 end。 end。 begin 。注冊表 39。 append。 end。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, DBCtrls, Mask。 Label1: TLabel。 Label3: TLabel。 Label5: TLabel。 Label7: TLabel。 Label8: TLabel。 btncancel: TButton。 DBEdit1: TDBEdit。 DBEdit3: TDBEdit。 DBComboBox3: TDBComboBox。 Edit1: TEdit。 Label10: TLabel。 procedure btnregisterClick(Sender: TObject)。 procedure DBEdit1KeyPress(Sender: TObject。 procedure DBEdit3KeyPress(Sender: TObject。 private { Private declarations } public { Public declarations } end。 implementation uses unit1。 //注冊 onclick 事件 begin if (39。)and(39。)and(39。) and(39。)and(39。)and(39。) then begin if then begin showmessage(39。)。39。 end else with adoquery1 do begin close。 (39。+)。 if recordcount=0 then begin 。注冊成功 !39。 。該編號已存在，請重新輸入 !39。 end。請將相關(guān)信息填寫完整 !39。 end。 //取消 的 onclick 事件 begin close。 procedure (Sender: TObject。 begin if (key48)and(key8)or(key57) then key:=0。 end。 var Key: Char)。 end。 窗體最下邊狀態(tài)欄顯示當(dāng)前信 息。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls, ToolWin, Menus, StdCtrls, ExtCtrls, jpeg。 N1: TMenuItem。 N3: TMenuItem。 N6: TMenuItem。 N8: TMenuItem。 N10: TMenuItem。 ToolButton1: TToolButton。 ToolButton3: TToolButton。 ImageList1: TImageList。 ToolButton6: TToolButton。 ToolButton8: TToolButton。 ToolButton10: TToolButton。 ToolButton12: TToolButton。 Panel1: TPanel。 Button2: TButton。 Button4: TButton。 Button6: TButton。 Image1: TImage。 ComboBox1: TComboBox。 N11: TMenuItem。 N13: TMenuItem。 N15: TMenuItem。 N17: TMenuItem。 N19: TMenuItem。 N22: TMenuItem。 N24: TMenuItem。 N4: TMenuItem。 procedure Button2Click(Sender: TObject)。 procedure ToolButton1Click(Sender: TObject)。 procedure ToolButton3Click(Sender: TObject)。 procedure ToolButton6Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure ToolButton10Click(Sender: TObject)。 procedure ToolButton11Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 implementation uses unit1,utsmain,ujyyghmain,uyhmain, Uchaoqiquery, jszUnit1,umessage,uxtwh,upersonal。 //窗體顯示 begin if id=39。 then begin :=true。 :=true。 :=true。 :=true。 :=false。 :=false。 :=false。 end。 {*********************工具欄按鈕 ********************} procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 :=39。 :=false。 。 procedure (Sender: TObject)。 :=false。 end。 //用戶查詢 begin 。 end。 //借閱查詢 begin with fjyygh do begin show。 :=false。 :=39。 caption:=39。 end。 procedure (Sender: TObject)。 end。 //讀者掛失 begin (Sender)。 procedure (Sender: TObject)。 end。 //背景設(shè)置選項 begin case of 0: (39。)。背景 \綠色心情 .jpg39。 2: (39。)。背景 \平芬秋色 39。 4: (39。)。背景 \雪中飛舞 .jpg39。 6: (39。)。背景 \桃花依舊笑春風(fēng) .jpg39。 8: (39。)。背景 \竹韻軒居 .jpg39。 10: (39。)。 end。 //背景設(shè)置 begin :=true 。 (*************************菜單項 **********************) procedure (Sender: TObject)。 end。 //“關(guān)于” begin 。 procedure (Sender: TObject)。 end。 //單擊“圖書管理”按鈕 begin 。 procedure (Sender: TObject)。 :=true。 end。 //“證件管理” begin 。 procedure (Sender: TObject)。 end。 //顯 示或隱藏日期 begin if =39。 then begin :=false。顯示日期 39。顯示日期 39。 :=39。 :=39。 end。 procedure (Sender: TObject)。確定要退出嗎 ?39。 //退出系統(tǒng) end。 begin [0].Text :=39。+yhname。 圖書館理系統(tǒng)總界面 39?，F(xiàn)在時間： 39。 39。 end。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, DBCtrls, Mask, jpeg, ExtCtrls。 Label6: TLabel。 DBEdit6: TDBEdit。 DBEdit4: TDBEdit。 Label2: TLabel。 Label5: TLabel。 DBComboBox1: TDBComboBox。 Button5: TButton。 DBEdit3: TDBEdit。 Label4: TLabel。 Label11: TLabel。 procedure Button5Click(Sender: TObject)。 procedure Button5Enter(Sender: TObj