【文章內(nèi)容簡(jiǎn)介】 : TToolButton。 ToolButton11: TToolButton。 ToolButton12: TToolButton。 ToolButton13: TToolButton。 Panel1: TPanel。 Button1: TButton。 Button2: TButton。 Button3: TButton。 Button4: TButton。 Button5: TButton。 Button6: TButton。 StatusBar1: TStatusBar。 Image1: TImage。 Timer1: TTimer。 ComboBox1: TComboBox。 ToolButton14: TToolButton。 N11: TMenuItem。 N12: TMenuItem。 N13: TMenuItem。 N14: TMenuItem。 N15: TMenuItem。 N16: TMenuItem。 N17: TMenuItem。 N18: TMenuItem。 N19: TMenuItem。 N20: TMenuItem。 N22: TMenuItem。 N23: TMenuItem。 N24: TMenuItem。 MonthCalendar1: TMonthCalendar。 N4: TMenuItem。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure ToolButton1Click(Sender: TObject)。 procedure ToolButton2Click(Sender: TObject)。 procedure ToolButton3Click(Sender: TObject)。 procedure ToolButton4Click(Sender: TObject)。 procedure ToolButton6Click(Sender: TObject)。 procedure ToolButton7Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure ToolButton8Click(Sender: TObject)。 procedure ToolButton10Click(Sender: TObject)。 procedure ComboBox1Select(Sender: TObject)。 procedure ToolButton11Click(Sender: TObject)。 procedure N22Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure N23Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Fmain: TFmain。 implementation uses unit1,utsmain,ujyyghmain,uyhmain, Uchaoqiquery, jszUnit1,umessage,uxtwh,upersonal。 {$R *.dfm} procedure (Sender: TObject)。 //窗體顯示 begin if id=39。管理員 39。 then begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end else //限制普通用戶操作 begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 end。 {*********************工具欄按鈕 ********************} procedure (Sender: TObject)。 //新增圖書(shū)” begin 。 。 end。 procedure (Sender: TObject)。 //“新增用戶” begin 。 :=39。新增用戶 39。 :=false。 :=false。 。 end。 procedure (Sender: TObject)。 //書(shū)籍查詢 begin 。 :=false。 :=false。 end。 procedure (Sender: TObject)。 //用戶查詢 begin 。 :=false。 end。 procedure (Sender: TObject)。 //借閱查詢 begin with fjyygh do begin show。 :=false。 :=false。 :=false。 :=39。39。 caption:=39。借出圖書(shū) 39。 end。 end。 procedure (Sender: TObject)。 //超期查詢 begin 。 end。 procedure (Sender: TObject)。 //讀者掛失 begin (Sender)。 end。 procedure (Sender: TObject)。 //讀者注銷 begin (Sender)。 end。 procedure (Sender: TObject)。 //背景設(shè)置選項(xiàng) begin case of 0: (39。背景 \蝶戀花 .jpg39。)。 1: (39。背景 \綠色心情 .jpg39。)。 2: (39。背景 \平芬秋色 39。)。 3: (39。背景 \平芬秋色 39。)。 4: (39。背景 \一品香茗 .jpg39。)。 5: (39。背景 \雪中飛舞 .jpg39。)。 6: (39。背景 \雪暗香梅 .jpg39。)。 7: (39。背景 \桃花依舊笑春風(fēng) .jpg39。)。 8: (39。背景 \書(shū)香梅韻 .jpg39。)。 9: (39。背景 \竹韻軒居 .jpg39。)。 10: (39。背景 \暖雨晴風(fēng) .jpg39。)。 end。 end。 procedure (Sender: TObject)。 //背景設(shè)置 begin :=true 。 //背景設(shè)置選項(xiàng)彈出 end。 (*************************菜單項(xiàng) **********************) procedure (Sender: TObject)。 //用戶管 理 begin 。 end。 procedure (Sender: TObject)。 //“關(guān)于” begin 。 //顯示開(kāi)發(fā)小組信息 end。 procedure (Sender: TObject)。 //顯示個(gè)人信息 begin 。 end。 (**************************按鈕 ***************************) procedure (Sender: TObject)。 //單擊“圖書(shū)管理”按鈕 begin 。 //顯示圖書(shū)管理窗口 end。 procedure (Sender: TObject)。 //單擊“圖書(shū)借還”按鈕 begin 。 :=true。 :=true。 end。 procedure (Sender: TObject)。 //“證件管理” begin 。 end。 procedure (Sender: TObject)。 //“密碼修改” begin 。 end。 procedure (Sender: TObject)。 //顯 示或隱藏日期 begin if =39。隱藏日期 39。 then begin :=false。 :=39。顯示日期 39。 :=39。顯示日期 39。 end else begin :=true。 :=39。隱藏日期 39。 :=39。隱藏日期 39。 end。 end。 procedure (Sender: TObject)。 //退出 begin if messagedlg(39。確定要退出嗎 ?39。,mtconfirmation,mbyesnocancel,0)=mryes then 。 //退出系統(tǒng) end。 procedure (Sender: TObject)。 begin [0].Text :=39。 當(dāng)前操作員： 39。+yhname。 [1].Text :=39。 圖書(shū)館理系統(tǒng)總界面 39。 [4].Text :=39?，F(xiàn)在時(shí)間： 39。+datetostr(date)+39。 39。+timetostr(time)。 end。 end. 借書(shū)證管理 ： 單擊“辦理新借書(shū)證”時(shí)， 先新增用戶， 顯示該界面如下： 然后辦理借書(shū)證： 按要求 填寫(xiě) 相關(guān)信息，保存到數(shù)據(jù)庫(kù)中（借書(shū)證表） 新 建借書(shū)證 代碼： unit jszxj。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, DBCtrls, Mask, jpeg, ExtCtrls。 type Tjsznew = class(TForm) Label7: TLabel。 Label6: TLabel。 Label8: TLabel。 DBEdit6: TDBEdit。 DBEdit5: TDBEdit。 DBEdit4: TDBEdit。 Label10: TLabel。 Label2: TLabel。 Label3: TLabel。 Label5: TLabel。 DBEdit1: TDBEdit。 DBComboBox1: TDBComboBox。 DBEdit2: TDBEdit。 Button5: TButton。 Button12: TButton。 DBEdit3: TDBEdit。 Label1: TLabel。 Label4: TLabel。 Label9: TLabel。 Label11: TLabel。 procedure DBComboBox1Exit(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure Button12Click(Sender: TObject)。 procedure Button5Enter(Sender: TObject)。 procedure DBEdit2KeyPress(Sender: TObject。 var Key: Char)。 procedure DBEdit4KeyPress(Sender: