管理系统使用说明书(及详解)
发布时间：2016-11-09 来源：文档文库
小
中
大
字号：
管理系统使用说明书（及详解）
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 adoquery1.Open; if adoquery1.Bof and adoquery1.Eof then
begin where username='''+edit1.Text+'''and password='''+edit2.Text+'''';
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; 