管理系统使用说明书(及详解)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
管理系统使用说明书（及详解）1登录界面：
2功能选择界面：
（全部功能均能实现）
3浏览会员表：（下方快捷符号可实现增删改功能）
4查询会员信息：（查询功能非常完善）
5增加新会员：
6修改记录：（可直接删改）
7删除会员：（输入任意条件均可识别）
8系统总览表：
此表可实现全部功能。
9退出系统：
相关代码：
1登录界面：
unit Unit8;
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;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from biao1 where username='''+edit1.Text+'''and password='''+edit2.Text+''''; adoquery1.Open;
if adoquery1.Bof and adoquery1.Eof then
begin
application.MessageBox('用户名或密码错误','出错',mb_ok+mb_iconwarning);
edit1.SetFocus;
edit2.SelectAll;
end
else
begin
form2.Show;
form8.Hide;
end;
end;
procedure TForm8.Button2Click(Sender: TObject);
begin
close;
end;
end.
2功能选择界面：
unit Unit8;
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;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from biao1 where username='''+edit1.Text+'''and password='''+edit2.Text+''''; adoquery1.Open;
if adoquery1.Bof and adoquery1.Eof then
begin
application.MessageBox('用户名或密码错误','出错',mb_ok+mb_iconwarning);
edit1.SetFocus;
edit2.SelectAll;
end
else
begin
form2.Show;
form8.Hide;
end;
end;
procedure TForm8.Button2Click(Sender: TObject);
begin
close;
end;
end.
3浏览会员表：