【文章內(nèi)容簡(jiǎn)介】 k(Sender: TObject)。 procedure Image_sfcxClick(Sender: TObject)。 procedure Image_kccxClick(Sender: TObject)。 procedure Image_lscxClick(Sender: TObject)。 procedure Image_jcrkClick(Sender: TObject)。 procedure Image_thsfClick(Sender: TObject)。 procedure Image_jnsfClick(Sender: TObject)。 procedure Image_jslsClick(Sender: TObject)。 procedure Image_xslsClick(Sender: TObject)。 procedure Image_tcClick(Sender: TObject)。 procedure N23Click(Sender: TObject)。 //procedure FormCreate(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var MainForm: TMainForm。 username:string。 //用戶名 qx:array[1..4] of boolean。 //四個(gè)權(quán)限 implementation uses checkuser,operator,passwordchange,classmanage,units,bookfee,returnfee,bookin,studentbook,unitbook,classbookbrower,lingshuchaxun,about, kcfind。 {$R *.dfm} procedure (Sender: TObject)。 begin 18 if messagedlg(39。確認(rèn)退出？ 39。,mtconfirmation,[mbyes,mbno],0)=mryes then Close else end。 procedure (Sender: TObject)。 begin ()。 if username39。39。 then begin if qx[1] then begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end else begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 if qx[2] then 19 begin :=true。 :=true。 :=true。 :=true。 end else begin :=false。 :=false。 :=false。 :=false。 end。 if qx[3] then begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end else begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 20 end。 if qx[4] then begin :=true。 :=true。 //:=true。 //:=true。 :=true。 :=true。 :=true。 end else begin :=false。 :=false。 //:=false。 //:=false。 :=false。 :=false。 :=false。 end。 end else close。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 21 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 22 end。 procedure (Sender: TObject)。 begin cLOSE。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin [2].Text :=39。系統(tǒng)時(shí)間： 39。 + dateTimetoStr(Now)。 end。 procedure (Sender: TObject。 Node: TTreeNode)。 begin :=0。 :=1。 if =39。操作員管理 39。 then ()。 if =39。密碼修改 39。 then ()。 if =39。班級(jí)管理 39。 then ()。 if =39。學(xué)院管理 39。 then ()。 23 if =39。繳納書費(fèi) 39。 then ()。 if =39。退回書費(fèi) 39。 then ()。 if =39。教材入庫(kù) 39。 then ()。 if =39。學(xué)生領(lǐng)書 39。 then ()。 if =39。教師領(lǐng)書 39。 then ()。 if =39。書費(fèi)查詢 39。 then ()。 if =39。庫(kù)存查詢 39。 then ()。 if =39。領(lǐng)書查詢 39。 then ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 24 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin 25 ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject)。 begin if messagedlg(39。確認(rèn)退出？ 39。,mtconfirmation,[mbyes,mbno],0)=mryes then Close else 。 end。 procedure (Sender: TObject)。 begin if messagedlg(39。確認(rèn)退出？ 39。,mtconfirmation,[mbyes,mbno],0)=mryes then Close else end。 end. 學(xué)生繳納書費(fèi) unit bookfee。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB。 type 26 TBookFeeForm = class(TForm) GroupBox1: TGroupBox。 Label1: TLabel。 ComboBox1: TComboBox。 Label2: TLabel。 Edit1: TEdit。 Label3: TLabel。 Edit2: TEdit。 Label4: TLabel。 Edit3: TEdit。 Label5: TLabel。 Edit4: TEdit。 Label6: TLabel。 Edit5: TEdit。 BitBtn1: TBitBtn。 BitBtn2: TBitBtn。 ADOConnection1: TADOConnection。 Edit6: TEdit。 Label7: TLabel。 procedure BitBtn2Click(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure ComboBox1Click(Sender: TObject)。 procedure Edit2Exit(Sender: TObject)。 procedure BitBtn1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } procedure initiate。