管理系统使用说明书(及详解).doc

管理系统使用说明书（及详解）

1登录界面：

2功能选择界面：

（全部功能均能实现）

3浏览会员表：（下方快捷符号可实现增删改功能）

4查询会员信息：（查询功能非常完善）

5增加新会员：

6修改记录：（可直接删改）

7删除会员：（输入任意条件均可识别）

8系统总览表：

此表可实现全部功能。

9退出系统：

相关代码：

1登录界面：

unitUnit8;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls,unit2,DB,ADODB;

type

TForm8=class(TForm)

Label11:TLabel;

Label1:TLabel;

Label2:TLabel;

Edit1:TEdit;

Edit2:TEdit;

Label3:TLabel;

Button1:TButton;

ADOConnection1:TADOConnection;

ADOQuery1:TADOQuery;

Button2:TButton;

procedureButton1Click(Sender:TObject);

procedureButton2Click(Sender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form8:TForm8;

implementation

usesUnit1;

{$R*.dfm}

procedureTForm8.Button1Click(Sender:TObject);

begin

adoquery1.close;

adoquery1.SQL.Clear;

adoquery1.SQL.Text:=select*frombiao1whereusername=+edit1.Text+andpassword=+edit2.Text+;adoquery1.Open;

ifadoquery1.Bofandadoquery1.Eofthen

begin

application.MessageBox(用户名或密码错误,出错,mb_ok+mb_iconwarning);

edit1.SetFocus;

edit2.SelectAll;

end

else

begin

form2.Show;

form8.Hide;

end;

end;

procedureTForm8.Button2Click(Sender:TObject);

begin

close;

end;

end.

2功能选择界面：

unitUnit8;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls,unit2,DB,ADODB;

type

TForm8=class(TForm)

Label11:TLabel;

Label1:TLabel;

Label2:TLabel;

Edit1:TEdit;

Edit2:TEdit;

Label3:TLabel;

Button1:TButton;

ADOConnection1:TADOConnection;

ADOQuery1:TADOQuery;

Button2:TButton;

procedureButton1Click(Sender:TObject);

procedureButton2Click(Sender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form8:TForm8;

implementation

usesUnit1;

{$R*.dfm}

procedureTForm8.Button1Click(Sen