unit7.pas

商场客户管理系统： 该系统为数据库上机实验操作。 主要是针对数据库查询

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm7 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Label9: TLabel;
    Edit9: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
 uses Unit1;
{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit9.Text:='';
end;

procedure TForm7.Button5Click(Sender: TObject);
begin
Edit7.Text:='';
Edit8.Text:='';
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
   if Edit1.Text=''then
   showmessage('帐号不能够为空，请重新输入！')
   else
       begin
            if Edit2.Text=''then
            showmessage('请输入所需要设定的密码！')
            else
                begin
                   if Edit3.Text=''then
                   showmessage('确认密码不能够为空！请重新输入！')
                   else
                      begin
                         adoquery1.Close;
                         adoquery1.SQL.Clear;
                         adoquery1.Sql.Add('select * from oprator where oprator_no='''+Edit1.Text+'''');
                         adoquery1.open;
                         if adoquery1.RecordCount<>0 then
                             showmessage('帐号'''+Edit1.Text+'''已经存在，请重新输入！')
                          else
                             begin
                                  if Edit2.Text<>Edit3.Text then
                                  showmessage('两次输入的密码不一致，请重新输入！')
                                  else
                                      begin
                                          adoquery1.Close;
                                          Adoquery1.SQL.Clear;
                                          Adoquery1.SQL.Add('insert into oprator(oprator_no,oprator_mima)values('''+Edit1.Text+''','''+Edit2.Text+''')');
                                          adoquery1.ExecSQL;
                                          Showmessage('密码设定成功！请记好您的帐户和密码');
                                       end;
                             end;
                      end;
                end;
       end;
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
   if Edit4.Text='' then
      showmessage('帐户号码不能够为空，请重新输入！')
   else
       begin
            if Edit5.Text='' then
               showmessage('帐户密码不能够为空，请重新输入')
             else
                begin
                    if Edit6.Text='' then
                      showmessage('确认密码不能够为空！请重新输入！')
                      else
                         begin
                              if Edit9.Text=''then
                                 showmessage('再次确认密码不能够为空，请重新输入！')
                              else
                                begin
                                 if Edit6.Text<> Edit9.Text then
                                    showmessage('两次输入的密码不相符，请重新输入！')
                                 else
                                   begin
                                  adoquery1.Close;
                                  adoquery1.SQL.Clear;
                                  adoquery1.SQL.Add('select*from oprator where oprator_no='''+Edit4.Text+'''and oprator_mima='''+Edit5.Text+'''');
                                  adoquery1.Open;
                                  if adoquery1.RecordCount=0 then
                                  showmessage('帐号或者密码错误，请重新输入！')
                                  else
                                    begin
                                       adoquery1.Close;
                                       adoquery1.SQL.Clear;
                                       adoquery1.SQL.Add('update oprator set oprator_no='''+Edit1.Text+''',oprator_mima='''+Edit6.text+''' where oprator_no='''+Edit1.Text+'''');
                                       adoquery1.ExecSQL;
                                       Showmessage('修改成功！');
                                    end;
                               end;
                         end;
                end;  end;
       end;
end;

procedure TForm7.Button6Click(Sender: TObject);
begin
   if Edit7.Text='' then
        showmessage('帐户号码不能够为空请重新输入！')
    else
        begin
            if Edit8.Text=''then
               showmessage('帐户密码不能够为空，请重新输入！')
             else
                begin
                     adoquery1.Close;
                     adoquery1.SQL.Clear;
                     adoquery1.SQL.Add('Select*from oprator where oprator_no='''+Edit7.Text+'''and oprator_mima='''+Edit8.Text+'''');
                     adoquery1.OPen;
                     if adoquery1.RecordCount=0 then
                         showmessage('输入帐户或密码有误，不存在该记录信息！请确认后重新输入！')
                     else
                         begin
                              adoquery1.Close;
                              adoquery1.SQL.Clear;
                              adoquery1.SQL.Add('delete from oprator where oprator_no='''+Edit7.Text+'''and oprator_mima='''+Edit8.Text+'''');
                              adoquery1.ExecSQL;
                              Showmessage('删除成功！');
                         end;
                end;
        end;
end;

procedure TForm7.Button7Click(Sender: TObject);
begin
form7.Close;
end;

end.