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

管理系统使用说明书（及详解）1登录界面：2功能选择界面：（全部功能均能实现）3浏览会员表：（下方快捷符号可实现增删改功能）4查询会员信息：（查询功能非常完善）5增加新会员：6修改记录：（可直接删改）7删除会员：（输入任意条件均可识别）8系统总览表：此表可实现全部功能。

9退出系统：相关代码：1登录界面：unit Unit8;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,unit2, DB, ADODB;typeTForm8 = 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;varForm8: TForm8;implementationuses Unit1;{$R *.dfm}procedure TForm8.Button1Click(Sender: TObject);beginadoquery1.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 thenbeginapplication.MessageBox('用户名或密码错误','出错',mb_ok+mb_iconwarning);edit1.SetFocus;edit2.SelectAll;endelsebeginform2.Show;form8.Hide;end;end;procedure TForm8.Button2Click(Sender: TObject);beginclose;end;end.2功能选择界面：unit Unit8;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,unit2, DB, ADODB;typeTForm8 = 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;varForm8: TForm8;implementationuses Unit1;{$R *.dfm}procedure TForm8.Button1Click(Sender: TObject);beginadoquery1.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 thenbeginapplication.MessageBox('用户名或密码错误','出错',mb_ok+mb_iconwarning);edit1.SetFocus;edit2.SelectAll;endelsebeginform2.Show;form8.Hide;end;end;procedure TForm8.Button2Click(Sender: TObject);beginclose;end;end.3浏览会员表：4查询会员信息：unit Unit4;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, DB, ADODB, Grids, DBGrids;typeTForm4 = class(TForm)RadioGroup1: TRadioGroup;GroupBox1: TGroupBox;Edit1: TEdit;DBGrid1: TDBGrid;ADOQuery1: TADOQuery;DataSource1: TDataSource;BitBtn1: TBitBtn;procedure BitBtn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm4: TForm4;StrSql:string;implementation{$R *.dfm}procedure TForm4.BitBtn1Click(Sender: TObject);beginif edit1.Text=' ' thenMessageBox(0,'查询内容为空!','错误',0)elseif trim(edit1.Text)<>' ' thenbegincase RadioGroup1.ItemIndex of0:BeginStrSql:='select * from table2 where 会员号='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入会员号',mtError,[mbok],1);end;end;1:beginStrSql:='select * from table2 where 会员姓名='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入会员姓名',mtError,[mbok],1);end;end;2:beginStrSql:='select * from table2 where 出生年月='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入出生年月',mtError,[mbok],1);end;end;3:beginStrSql:='select * from table2 where 车辆品牌型号='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('性别输入错误，请从新输入车辆品牌型号',mtError,[mbok],1);end;end;4:beginStrSql:='select * from table2 where 购车时间='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入购车时间',mtError,[mbok],1);end;end;5:beginStrSql:='select * from table2 where 电话='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入电话',mtError,[mbok],1);end;end;end;end;end;End.5增加新会员：unit Unit5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, DB, ADODB, Grids, DBGrids;typeTForm5 = class(TForm)GroupBox2: TGroupBox;Label1: TLabel;Label2: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Edit2: TEdit;Edit3: TEdit;RadioButton1: TRadioButton;RadioButton2: TRadioButton;Edit4: TEdit;DateTimePicker1: TDateTimePicker;Edit6: TEdit;Edit7: TEdit;Edit8: TEdit;Edit9: TEdit;Edit5: TEdit;BitBtn2: TBitBtn;DBGrid1: TDBGrid;ADOQuery1: TADOQuery;DataSource1: TDataSource;procedure BitBtn2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm5: TForm5;ADOQuery1:string;implementation{$R *.dfm}procedure TForm5.BitBtn2Click(Sender: TObject);beginbeginif Edit2.Text='' thenMessageBox(0,'会员号内容不能为空！','错误',MB_OK)elseADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.text+'''';ADOQuery1.Open;if not(ADOQuery1.Eof and ADOQuery1.Bof) thenbeginedit2.SetFocus;exit;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2';ADOQuery1.Open;ADOQuery1.Append;ADOQuery1.FieldByName('会员号').AsString:=edit2.Text;ADOQuery1.FieldByName('会员姓名').AsString:=edit3.Text;if RadioButton1.Checked thenADOQuery1.FieldByName('性别').AsString:='男'elseADOQuery1.FieldByName('性别').AsString:='女';ADOQuery1.FieldByName('出生年月').AsDateTime:=DateTimePicker1.Date;ADOQuery1.FieldByName('购车时间').AsString:=edit5.Text;ADOQuery1.FieldByName('车辆品牌型号').AsString:=edit4.Text;ADOQuery1.FieldByName('购入价格（万）').AsString:=edit6.Text;ADOQuery1.FieldByName('优惠套餐').AsString:=edit7.Text;ADOQuery1.FieldByName('电话').AsString:=edit8.Text;ADOQuery1.FieldByName('贷款套餐').AsString:=edit9.Text;ADOQuery1.Post;end;end;end;End.6修改记录：unit Unit6;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, DB, ADODB, Grids, DBGrids;typeTForm6 = class(TForm)GroupBox2: TGroupBox;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Edit2: TEdit;Edit3: TEdit;RadioButton1: TRadioButton;RadioButton2: TRadioButton;Edit4: TEdit;DateTimePicker1: TDateTimePicker;Edit6: TEdit;Edit7: TEdit;Edit8: TEdit;Edit9: TEdit;Edit5: TEdit;BitBtn3: TBitBtn;DBGrid1: TDBGrid;ADOQuery1: TADOQuery;DataSource1: TDataSource;BitBtn1: TBitBtn;procedure BitBtn3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm6: TForm6;implementation{$R *.dfm}procedure TForm6.BitBtn3Click(Sender: TObject);beginADOQuery1.close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.Text+'''';ADOQuery1.Open;if (ADOQuery1.Eof and ADOQuery1.Bof) thenbeginMessageBox(0,'会员号不存在，不能修改！','警告',0);edit2.SetFocus;exit;endelseADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.Text+'''';ADOQuery1.Open;ADOQuery1.Edit;ADOQuery1.FieldByName('会员号').AsString:=edit2.Text;ADOQuery1.FieldByName('会员姓名').AsString:=edit3.Text;if RadioButton1.Checked thenADOQuery1.FieldByName('性别').AsString:='男'elseADOQuery1.FieldByName('性别').AsString:='女';ADOQuery1.FieldByName('出生年月').AsDateTime:=DateTimePicker1.Date;ADOQuery1.FieldByName('购车时间').AsString:=edit5.Text;ADOQuery1.FieldByName('车辆品牌型号').AsString:=edit4.Text;ADOQuery1.FieldByName('购入价格（万）').AsString:=edit6.Text;ADOQuery1.FieldByName('优惠套餐').AsString:=edit7.Text;ADOQuery1.FieldByName('电话').AsString:=edit8.Text;ADOQuery1.FieldByName('贷款套餐').AsString:=edit9.Text;ADOQuery1.Post;end;end;End.7删除会员：unit Unit7;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;typeTForm7 = class(TForm)DBGrid1: TDBGrid;ADOQuery1: TADOQuery;DataSource1: TDataSource;BitBtn4: TBitBtn;Edit2: TEdit;procedure BitBtn4Click(Sender: TObject);private{ Private declarations }publicvarForm7: TForm7;implementation{$R *.dfm}procedure TForm7.BitBtn4Click(Sender: TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.Text+''''; ADOQuery1.Open;if(ADOQuery1.Eof and ADOQuery1.Bof) thenbeginmessagebox(0,'会员号不存在，不能删除！','警告',0);edit2.SetFocus;Exit;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='delete * from table2 where 会员号='''+edit2.Text+'''';ADOQuery1.ExecSQL;edit2.Text:='';ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2';ADOQuery1.Open;end;end;End.8系统总览表：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, ComCtrls;TForm1 = class(TForm)DBGrid1: TDBGrid;ADOQuery1: TADOQuery; DataSource1: TDataSource; DBNavigator1: TDBNavigator; RadioGroup1: TRadioGroup; GroupBox1: TGroupBox;Edit1: TEdit;GroupBox2: TGroupBox;Label1: TLabel;Label2: TLabel;Edit2: TEdit;Label3: TLabel;Edit3: TEdit;Label4: TLabel;Label5: TLabel;RadioButton1: TRadioButton; RadioButton2: TRadioButton;Label6: TLabel;Edit4: TEdit;BitBtn1: TBitBtn;BitBtn2: TBitBtn;BitBtn3: TBitBtn;BitBtn4: TBitBtn;BitBtn5: TBitBtn;BitBtn6: TBitBtn;DateTimePicker1: TDateTimePicker; Label7: TLabel;Label8: TLabel;Edit6: TEdit;Edit7: TEdit;Label9: TLabel;Label10: TLabel;Edit8: TEdit;Edit9: TEdit;Edit5: TEdit;Label11: TLabel;procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject);private{ Private declarations }{ Public declarations }end;varForm1: TForm1;StrSql:string;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);beginif edit1.Text=' ' thenMessageBox(0,'查询内容为空!','错误',0)elseif trim(edit1.Text)<>' ' thenbegincase RadioGroup1.ItemIndex of0:beginStrSql:='select * from table2 where 会员号='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入会员号',mtError,[mbok],1);end;end;1:beginStrSql:='select * from table2 where 会员姓名='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入会员姓名',mtError,[mbok],1);end;end;2:beginStrSql:='select * from table2 where 出生年月='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入出生年月',mtError,[mbok],1);end;end;3:beginStrSql:='select * from table2 where 车辆品牌型号='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('性别输入错误，请从新输入车辆品牌型号',mtError,[mbok],1);end;end;4:beginStrSql:='select * from table2 where 购车时间='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入购车时间',mtError,[mbok],1);end;end;5:beginStrSql:='select * from table2 where 电话='''+trim(edit1.Text )+'''';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;if ADOQuery1.Bof and ADOQuery1.Eof thenMessagedlg('查无此人，请从新输入电话',mtError,[mbok],1);end;end;end;end;procedure TForm1.BitBtn2Click(Sender: TObject);beginif Edit2.Text='' thenMessageBox(0,'会员号内容不能为空！','错误',MB_OK)elseADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.text+'''';ADOQuery1.Open;if not(ADOQuery1.Eof and ADOQuery1.Bof) thenbeginMessageBox(0,'会员号不能重复！','警告',0);edit2.SetFocus;exit;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2';ADOQuery1.Open;ADOQuery1.Append;ADOQuery1.FieldByName('会员号').AsString:=edit2.Text;ADOQuery1.FieldByName('会员姓名').AsString:=edit3.Text;if RadioButton1.Checked thenADOQuery1.FieldByName('性别').AsString:='男'elseADOQuery1.FieldByName('性别').AsString:='女';ADOQuery1.FieldByName('出生年月').AsDateTime:=DateTimePicker1.Date;ADOQuery1.FieldByName('购车时间').AsString:=edit5.Text;ADOQuery1.FieldByName('车辆品牌型号').AsString:=edit4.Text;ADOQuery1.FieldByName('购入价格（万）').AsString:=edit6.Text;ADOQuery1.FieldByName('优惠套餐').AsString:=edit7.Text;ADOQuery1.FieldByName('电话').AsString:=edit8.Text;ADOQuery1.FieldByName('贷款套餐').AsString:=edit9.Text;ADOQuery1.Post;end;end;procedure TForm1.BitBtn3Click(Sender: TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.Open;if (ADOQuery1.Eof and ADOQuery1.Bof) thenbeginMessageBox(0,'会员号不存在，不能修改！','警告',0);edit2.SetFocus;exit;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.Text+'''';ADOQuery1.Open;ADOQuery1.Edit;ADOQuery1.FieldByName('会员号').AsString:=edit2.Text;ADOQuery1.FieldByName('会员姓名').AsString:=edit3.Text;if RadioButton1.Checked thenADOQuery1.FieldByName('性别').AsString:='男'elseADOQuery1.FieldByName('性别').AsString:='女';ADOQuery1.FieldByName('出生年月').AsDateTime:=DateTimePicker1.Date;ADOQuery1.FieldByName('购车时间').AsString:=edit5.Text;ADOQuery1.FieldByName('车辆品牌型号').AsString:=edit4.Text;ADOQuery1.FieldByName('购入价格（万）').AsString:=edit6.Text;ADOQuery1.FieldByName('优惠套餐').AsString:=edit7.Text;ADOQuery1.FieldByName('电话').AsString:=edit8.Text;ADOQuery1.FieldByName('贷款套餐').AsString:=edit9.Text;ADOQuery1.Post;end;end;procedure TForm1.BitBtn4Click(Sender: TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2 where 会员号='''+edit2.Text+''''; ADOQuery1.Open;if(ADOQuery1.Eof and ADOQuery1.Bof) thenbeginmessagebox(0,'会员号不存在，不能删除！','警告',0);edit2.SetFocus;Exit;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='delete * from table2 where 会员号='''+edit2.Text+'''';ADOQuery1.ExecSQL;edit2.Text:='';edit3.Text:='';RadioButton1.Checked:=false;RadioButton2.Checked:=false;edit4.Text:='';ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select * from table2';ADOQuery1.Open;end;end;procedure TForm1.BitBtn5Click(Sender: TObject);beginStrSql:='select * from table2';if ADOQuery1.Active thenbeginADOQuery1.Active:=false;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(StrSql);ADOQuery1.Active:=true;end;end;procedure TForm1.BitBtn6Click(Sender: TObject);beginclose;end;end.。