【正文】 需求，對各項功能的實現(xiàn)也在草稿—實現(xiàn)—修改—完善的過程中不斷細化，對各項流程我雖然系統(tǒng)的基本功能都已實現(xiàn)，但還是存在系統(tǒng)不穩(wěn)定等問題尚待解決。所以在準備工作中要正確分析社會需求了解現(xiàn)實應用，畫出流程圖，把大體框架做好，然后再逐一細化。在此向龍老師表示深深的感謝和崇高的敬意。當看著自己的程序，自己成天相伴的系統(tǒng)能夠健康的運行，真是莫大的幸福和欣慰。 參考文獻[1] ：科學出版社，～60
[2] ：中國鐵道出版社，~67[3] (原書第5版) .吉林機械工業(yè)出版社，～20 [4] ，~55[5] ，~155[6] (附光盤) .北京：清華大學出版，~25
[7] :Delphi 7 教程(第5版)(附光盤1張) .吉林電子出版社，~45[8] ，~12
[9] ，~88
[10] 、北京希望電子出版社，~69[11] ，~51[12] ，~12331附 錄附錄：程序關鍵代碼學生成績表代碼
unit Unit5。
DataSource1: TDataSource。
Label2: TLabel。
DBEdit3: TDBEdit。
Button3: TButton。
procedure Button2Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
begin
end。
begin
end。
begin
。
33
type
TForm13 = class(TForm)
ADOConnection1: TADOConnection。
DBNavigator1: TDBNavigator。
Label3: TLabel。
Label7: TLabel。
DBEdit4: TDBEdit。
Button1: TButton。
Button5: TButton。
procedure Button4Click(Sender: TObject)。
implementation
35信息管理學士學位論文
uses Unit2。
begin
end。
begin
end。
end.

學生信息報表unit Unit19。
DataSource1: TDataSource。
procedure Button1Click(Sender: TObject)。
implementation
uses Unit20, Unit2。
begin
。
ADOConnection1: TADOConnection。
DBEdit1: TDBEdit。
Button2: TButton。
procedure Button1Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
begin
end。
38附錄begin
end。
end.
宿舍檢修unit Unit29。
ADOTable1: TADOTable。
DBEdit1: TDBEdit。
Button3: TButton。
procedure Button1Click(Sender: TObject)。
procedure Button3Click(Sender: TObject)。
{$R *.dfm}
procedure (Sender: TObject)。
procedure (Sender: TObject)。
procedure (Sender: TObject)。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,
jpeg。
DataSource1: TDataSource。
DBEdit1: TDBEdit。
Label2: TLabel。
private
{ Private declarations }
public
{ Public declarations }
end。
begin
end。
begin
。
type
TForm1 = class(TForm)
Image1: TImage。
MaskEdit1: TMaskEdit。
RadioButton1: TRadioButton。
Label5: TLabel。
Button4: TButton。
procedure Button1Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
begin
while not do
begin
if(trim((39。).AsString)=)
and(trim((39。)and ()
then
begin
。Name39。role39。
。
:=false。
end。
。
begin

end。
begin

end。
begin
end。
end。您輸入的用戶名或密碼有誤，請重試！39。
end。
:=false。用戶39。Password39。
break。).AsString)=39。).AsString)=)
and(trim((39。
implementation
uses Unit2。
procedure Button3Click(Sender: TObject)。
41附錄DBEdit2: TDBEdit。
Label7: TLabel。
ADOTable1: TADOTable。
Button2: TButton。
Label2: TLabel。
end.
登錄及注冊unit Unit1。
begin
end。
implementation
uses Unit2。
procedure Button2Click(Sender: TObject)。
Button2: TButton。
DBNavigator1: TDBNavigator。
ADOConnection1: TADOConnection。
end。
procedure (Sender: TObject)。
procedure (Sender: TObject)。
var
Form29: TForm29。
procedure Button4Click(Sender: TObject)。
Label2: TLabel。
Button1: TButton。
DBGrid1: TDBGrid。
type
TForm29 = class(TForm)
Image1: TImage。
begin
。
begin
end。
implementation
uses Unit2。
procedure Button3Click(Sender: TObject)。
DBNavigator1: TDBNavigator。
Label2: TLabel。
DataSource1: TDataSource。
end.
發(fā)布通知unit Unit28。
begin
end。
private
{ Private declarations }
public
{ Public declarations }
end。
Button1: TButton。
type
TForm19 = class(TForm)
Image1: TImage。
begin
。
begin
end。
begin
end。
private
{ Private declarations }
public
{ Public declarations }
end。
procedure Button2Click(Sender: TObject)。
Button3: TButton。
DBEdit6: TDBEdit。
DBEdit2: TDBEdit。
Label5: TLabel。
Label1: TLabel。
DataSource1: TDataSource。
end.
宿舍管理表查詢unit Unit13。
begin
end。
begin
end。
implementation
uses Unit2。
procedure Button4Click(Sender: TObject)。
Button5: TButton。
Button1: TButton。
DBEdit1: TDBEdit。
Image1: TImage。
type
TForm5 = class(TForm)
ADOC