【正文】 OConnection1: TADOConnection。
ADOTable1: TADOTable。
DataSource1: TDataSource。
DBGrid1: TDBGrid。
DBEdit1: TDBEdit。
Label1: TLabel。
Label2: TLabel。
Button1: TButton。
Button2: TButton。
Button3: TButton。
DBNavigator1: TDBNavigator。
Button4: TButton。
procedure Button1Click(Sender: TObject)。
procedure Button2Click(Sender: TObject)。
procedure Button3Click(Sender: TObject)。
procedure Button4Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
var
Form28: TForm28。
implementation
uses Unit2。
{$R *.dfm}
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
38附錄begin
end。
procedure (Sender: TObject)。
begin
。
end。
end.
宿舍檢修unit Unit29。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,
jpeg。
type
TForm29 = class(TForm)
Image1: TImage。
ADOConnection1: TADOConnection。
ADOTable1: TADOTable。
DataSource1: TDataSource。
DBGrid1: TDBGrid。
DBNavigator1: TDBNavigator。
DBEdit1: TDBEdit。
Label1: TLabel。
Button1: TButton。
Button2: TButton。
Button3: TButton。
Button4: TButton。
Label2: TLabel。
Button5: TButton。
procedure Button1Click(Sender: TObject)。
procedure Button2Click(Sender: TObject)。
procedure Button4Click(Sender: TObject)。
procedure Button5Click(Sender: TObject)。
procedure Button3Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
var
Form29: TForm29。
implementation
uses Unit2。
{$R *.dfm}
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。
end.
宿舍報檢39附錄unit Unit30。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,
jpeg。
type
TForm30 = class(TForm)
Image1: TImage。
ADOConnection1: TADOConnection。
ADOTable1: TADOTable。
DataSource1: TDataSource。
DBGrid1: TDBGrid。
DBNavigator1: TDBNavigator。
Label1: TLabel。
DBEdit1: TDBEdit。
Button1: TButton。
Button2: TButton。
Button3: TButton。
Label2: TLabel。
procedure Button1Click(Sender: TObject)。
procedure Button2Click(Sender: TObject)。
procedure Button3Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
var
Form30: TForm30。
implementation
uses Unit2。
{$R *.dfm}
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
begin
。
end。
end.
登錄及注冊unit Unit1。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, jpeg, ExtCtrls, DB, ADODB, DBCtrls。
type
TForm1 = class(TForm)
Image1: TImage。
Label1: TLabel。
Label2: TLabel。
Edit1: TEdit。
MaskEdit1: TMaskEdit。
Button1: TButton。
Button2: TButton。
Label3: TLabel。
RadioButton1: TRadioButton。
RadioButton2: TRadioButton。
ADOTable1: TADOTable。
Label4: TLabel。
Label5: TLabel。
Label6: TLabel。
Label7: TLabel。
Button3: TButton。
Button4: TButton。
DBEdit1: TDBEdit。
41附錄DBEdit2: TDBEdit。
DataSource1: TDataSource。
procedure Button1Click(Sender: TObject)。
procedure Button2Click(Sender: TObject)。
procedure Button3Click(Sender: TObject)。
procedure Button4Click(Sender: TObject)。
private
{ Private declarations }
public
{ Public declarations }
end。
var
Form1: TForm1。
implementation
uses Unit2。
{$R *.dfm}
procedure (Sender: TObject)。
begin
while not do
begin
if(trim((39。Name39。).AsString)=)
and(trim((39。Password39。).AsString)=)
and(trim((39。role39。).AsString)=39。管理員39。)and ()
then
begin
。
。
break。
end
else
if(trim((39。Name39。).AsString)=)
and(trim((39。Password39。).AsString)=)
and(trim((39。role39。).AsString)=39。用戶39。)and ()
then
begin
。
。
:=false。
:=false。
:=false。
:=false。
break。
end。
。
end。
if then
begin showmessage(39。您輸入的用戶名或密碼有誤，請重試！39。)。
。
end。
end。
procedure (Sender: TObject)。
begin

end。
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
begin

end。
end.
43