宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)設(shè)計(jì)論文-資料下載頁(yè)
2025-06-28 05:02本頁(yè)面
【正文】 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.
宿舍報(bào)檢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.
登錄及注冊(cè)u(píng)nit 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。您輸入的用戶名或密碼有誤，請(qǐng)重試！39。)。
。
end。
end。
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
begin
end。
procedure (Sender: TObject)。
begin
end。
end.
43
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1