【文章內(nèi)容簡(jiǎn)介】 { Private declarations } public { Public declarations } end。 var xueshengguanli: Txueshengguanli。 implementation {$R *.dfm} procedure (Sender: TObject)。 begin if =39。39。 then showmessage(39。請(qǐng)輸入 ID39。) else if =39。39。 then showmessage(39。請(qǐng)輸入姓名 39。) else if =39。39。then showmessage(39。請(qǐng)輸入學(xué)號(hào) 39。) else if =39。39。 then showmessage(39。請(qǐng)輸入院系 39。) else if =39。39。 then showmessage(39。請(qǐng)輸入班級(jí) 39。) else if =39。39。 then showmessage(39。請(qǐng)輸入年齡 39。) else begin if messagedlg(39。 確實(shí) 要 增加 該 學(xué)生 ？ 39。,mtInformation,[mbOK, mbCancel],0)=mrok then begin 。 。 (39。studentid39。).AsString:=。 (39。studentname39。).AsString:=。 (39。studentnum39。).AsString:=。 (39。studentcollage39。).AsString:=。 (39。studentclass39。).AsString:=。 (39。studentage39。).AsString:=。 (39。studentsex39。).AsString:=。 。 showmessage(39。添加成功 39。)。 。 end else begin showmessage(39。添加失敗 39。)。 。 end。 end。 end。 procedure (Sender: TObject)。 begin 。 if messagedlg(39。 確實(shí)要?jiǎng)h除該學(xué)生？39。,mtWarning,[mbOK,mbCancel],0)=mrok then begin 。 showmessage(39。刪除成功 39。)。 end else begin showmessage(39。刪除失敗 39。)。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=[4].AsString。 :=[5].AsString。 :=[6].AsString。 。 end。 procedure (Column: TColumn)。 begin :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=[4].AsString。 :=[5].AsString。 :=[6].AsString。 end。 procedure (Sender: TObject)。 begin if =39。39。 then showmessage(39。請(qǐng)輸入 ID39。) else if =39。39。 then showmessage(39。請(qǐng)輸入姓名 39。) else if =39。39。then showmessage(39。請(qǐng)輸入學(xué)號(hào) 39。) else if =39。39。 then showmessage(39。請(qǐng)輸入院系 39。) else if =39。39。 then showmessage(39。請(qǐng) 輸入班級(jí) 39。) else if =39。39。 then showmessage(39。請(qǐng)輸入年齡39。) else begin 。 [0].AsString:=。 [1].AsString:=。 [2].AsString:=。 [3].AsString:=。 [4].AsString:=。 [5].AsString:=。 [6].AsString:=。 。 showmessage(39。修改成功 39。)。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin :=true。 if then if not (39。studentid39。,[]) then begin showmessage(39。沒有該同學(xué)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。studentid39。,[])。 :=39。39。 end。 if then if not (39。studentname39。,[]) then begin showmessage(39。沒有該同學(xué)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。studentname39。,[])。 :=39。39。 end。 end。 procedure (Sender: TObject)。 begin :=true。 if then if not (39。studentid39。,[]) then begin showmessage(39。沒有該同學(xué)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。studentid39。,[])。 :=39。39。 :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=[4].AsString。 :=[5].AsString。 :=[6].AsString。 :=[7].AsString。 end。 if then if not (39。studentname39。,[]) then begin showmessage(39。沒有該同學(xué)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。studentname39。,[])。 :=39。39。 :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=[4].AsString。 :=[5].AsString。 :=[6].AsString。 :=[7].AsString。 end。 { :=true。 。 showmessage(39。jksdh sdhfsdhfsdfsdjkfsdlfshjkf39。)。 if then if not (39。studentid39。,[]) then begin showmessage(39。沒有該同學(xué)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。studentid39。,[])。 :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=[4].AsString。 :=[5].AsString。 :=[6].AsString。 :=[7].AsString。 :=39。39。 end。 。 if then if not (39。studentname39。,[]) then begin showmessage(39。沒有該同學(xué)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。studentname39。,[])。 :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=[4].AsString。 :=[5].AsString。 :=[6].AsString。 :=[7].AsString。 :=39。39。 end。 } ////////圖書信息修改選擇 { if then if not (39。bookname39。,[]) then begin showmessage(39。沒有這本書，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin (39。bookname39。,[])。 :=[0].AsString。 :=[1].AsString。 :=[2].AsString。 :=[3].AsString。 :=39。39。 end。 } end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 end. 圖