【正文】 [0].DataType:=ftcurrency。 。 。 then showmessage(39。 45 var adoquery1:TAdoQuery。 。目前書庫該書的數(shù)量不夠，請檢查 !39。).ascurrency)。教材數(shù)量 39。 :=(39。).asstring。 end。 。++39。 :=39。 。).ascurrency)。班級人數(shù) 39。 [0].Direction:=pdinput。 。 :=cmdtext。 procedure (Sender: TObject)。 end。 while not do begin ((39。 43 :=39。 。 。 var adotable1:TAdoTable。 :=true。 :=39。 :=false。 :=true。 :=39。 :=false。 :=true。 :=39。 :=false。 :=true。 :=39。039。 procedure 。 implementation 41 uses main。 procedure BitBtn1Click(Sender: TObject)。 procedure ComboBox1Click(Sender: TObject)。 Label12: TLabel。 BitBtn2: TBitBtn。 Edit9: TEdit。 40 Edit7: TEdit。 Edit5: TEdit。 Label5: TLabel。 Label3: TLabel。 type TStudentBookForm = class(TForm) Label1: TLabel。 begin close。 procedure (Sender: TObject)。 ([,StrToDate(),c,StrToInt(),StrToInt(),StrToInt(),StrToFloat(),Date(),username,date()])。 。 [5].Value:=StrToFloat()。 [5].name:=39。 [4].DataType:=ftstring。 [3].Value:=。 [3].name:=39。 [2].DataType:=ftstring。 [1].Value:=。 [1].name:=39。 [0].DataType:=ftInteger。 。 。教材表 39。 。) else begin adoquery1:=(self)。) else if =39。) else if =39。) else if =39。) else if =39。) else if =39。) else if =39。 begin if =39。 36 end。 :=(39。).AsString。教材數(shù)量 39。 :=(39。).AsDateTime)。 [3].Value:=StrToFloat()。 [3].name:=39。 [2].DataType:=ftstring。 [1].Value:=。 [1].name:=39。 [0].DataType:=ftstring。 。 :=adoconnection1。 end。 。 。 :=adoconnection1。 procedure (Sender: TObject)。 :=false。 :=39。 :=39。 :=39。039。 :=false。 :=39。39。39。 {$R *.dfm} procedure 。 end。 procedure BitBtn1Click(Sender: TObject)。 Label15: TLabel。 Edit11: TEdit。 Edit10: TEdit。 Edit8: TEdit。 Edit6: TEdit。 ComboBox1: TComboBox。 Edit4: TEdit。 Edit2: TEdit。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Mask, DB, ADODB。 initiate。說明 39。 (39。).Asstring:=。本期費用 39。 (39。).asinteger:=StrtoInt()。班級名 39。 :=true。 AdoTable1:=(self)。 [1].Value:=。 [1].name:=39。 [0].DataType:=ftcurrency。 。 。 adoquery1:TAdoQuery。元 39。繳納書費 39。 end。 :=IntToStr((39。 :=true。classname39。select * from 班級表 where 班級名 =:classname39。 begin adodataset1:=(self)。 。 。 。 :=floattostr((39。 :=adoconnection1。 28 end。 :=false。 :=false。 :=39。 :=false。 :=false。 :=39。 end。 27 var BookFeeForm: TBookFeeForm。 procedure Edit2Exit(Sender: TObject)。 Label7: TLabel。 BitBtn1: TBitBtn。 Label5: TLabel。 Label3: TLabel。 Label1: TLabel。,mtconfirmation,[mbyes,mbno],0)=mryes then Close else end。 end。 procedure (Sender: TObject)。 end。 begin 25 ()。 procedure (Sender: TObject)。 end。 begin ()。 procedure (Sender: TObject)。 end。 begin ()。 procedure (Sender: TObject)。 end。 then ()。書費查詢 39。 if =39。 then ()。退回書費 39。 23 if =39。 then ()。密碼修改 39。 if =39。 procedure (Sender: TObject。 begin [2].Text :=39。 procedure (Sender: TObject)。 end。 begin ()。 procedure (Sender: TObject)。 end。 begin ()。 procedure (Sender: TObject)。 end。 begin ()。 end。 //:=false。 :=true。 //:=true。 :=false。 :=false。 :=true。 end。 end else begin :=false。 if qx[2] then 19 begin :=true。 :=false。 end else begin :=false。 :=true。39。,mtconfirmation,[mbyes,mbno],0)=mryes then Close else end。 //四個權(quán)限 implementation uses checkuser,operator,passwordchange,classmanage,units,bookfee,returnfee,bookin,studentbook,unitbook,classbookbrower,lingshuchaxun,about, kcfind。 private { Private declarations } public { Public declarations } end。 procedure Image_xslsClick(Sender: TObject)。 procedure Image_jcrkClick(Sender: TObject)。 17 procedure Image_xyglClick(Sender: TObject)。 procedure N20Click(Sender: TObject)。 procedure N18Click(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure N2Click(Sender: TObject)。 N22: TMenuItem。 Image_tc: TImage。 Image_jnsf: TImage。 Image_kccx: TImage。 N20: TMenuItem。 ToolBar1: TToolBar。 N16: TMenuItem。 N12: TMenuItem。 N7: TMenuItem。 N2: TMenuItem。 以下為程序運行時的部分界面圖： 13 14 以下為 部分源代碼： 主界面： unit main。接下來要 改變一個密碼 ： 改變數(shù)據(jù)庫密碼總 是一個好方法。首先需要打開 Microsoft Access，不選數(shù)據(jù)庫，然后使用 Open More Files 選項 ， 瀏覽數(shù)據(jù)庫。 6 4 系統(tǒng)需求分析 本系統(tǒng)可以實現(xiàn)一下功能： 系統(tǒng)管理 ： 操作員 信息 的 增、刪、改 ； 院系信息的增、刪、改 ； 班級信息的增、刪、改 ； 班級信息和學(xué)院信息的維護(hù) ； 書費管理： 交納書費 、 退回多余的書費 ； 教材出入庫： 學(xué)生領(lǐng)書 、 教師領(lǐng)書 、 教材入庫 ； 綜合查詢： 書費查詢 、 領(lǐng)書查詢 、 教材庫存量查詢 ； 打印和報表輸出： 輸出班級領(lǐng)書信息，書費繳納和退還信息 ； 幫助： 關(guān)于：一些本系統(tǒng)的基本信息 。它使用了 Microsoft Windows 圖形用戶界面的許多 先進(jìn)特性和設(shè)計思想，采用了彈性可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z (ObjectOriented Language)， 當(dāng)今世界上最快的編輯器 和 最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。 文檔范圍 首先該文檔的 作用是幫助 學(xué)生 和教 師訂教材，通過該系統(tǒng)，管理員能比較方便和快速的知道所訂之書以及相應(yīng)的收費情況。同時由于不可避免的人為因素 ,可能造成教材收費出錯等情況。參考類似系統(tǒng)，采用高效的組卷技術(shù)，能以交互方式方便靈活地生成不同難度的試卷及題解，適用于多種層次和水平的考試。 描述個人在各階段完成的工作、解決的關(guān)鍵問