pass.~pas

一个用Delphi编写的简单售票系统,有查询,修改.增加.删除等功能.

unit pass;

interface

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

type
  Tpassform = class(TForm)
    Button1: TButton;
    Button2: TButton;
    grp1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passform: Tpassform;

implementation
uses login,index;

{$R *.dfm}

procedure Tpassform.FormCreate(Sender: TObject);
var
dbname:string;
begin
dbname:= ExtractFilePath(Application.ExeName) + 'yang.mdb';
with ADOConnection1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+dbname+';'+
'Mode=ReadWrite;'+
'Persist Security Info=False';
Connected:=True;//打开数据连接
 Edit1.Text:='杨泉';
end;
end;




procedure Tpassform.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tpassform.Button1Click(Sender: TObject);
var
  Adodataset1:TAdoDataset;
  adoquery1:TADOQuery;
begin
 // if Edit1.Text='' then

  AdoDataSet1:=TAdoDataset.Create(self);
  adoDataset1.Connection:=adoconnection1;
  adodataset1.CommandType:=cmdtext;
  Adodataset1.CommandText:='select * from userpass where pass=:password';
  adodataset1.close;
  Adodataset1.Parameters.Clear;
  Adodataset1.Parameters.AddParameter;
  adodataset1.Parameters[0].name:='password';
  adodataset1.Parameters[0].DataType:=ftstring;
  Adodataset1.Parameters[0].Direction:=pdinput;
  adodataset1.Parameters[0].Value:=edit2.text;

  adodataset1.active:=true;
  if adodataset1.Recordset.RecordCount=1 then
  begin
       adoquery1:=TAdoQuery.Create(self);
       adoquery1.Connection:=adoconnection1;
       adoquery1.close;
       adoquery1.sql.Clear;
       adoquery1.sql.add('update userpass set pass=:password');
       adoquery1.Parameters.Clear;
       adoquery1.Parameters.AddParameter;
       adoquery1.Parameters[0].name:='password';
       adoquery1.Parameters[0].DataType:=ftstring;
       adoquery1.Parameters[0].Direction:=pdinput;
       adoquery1.Parameters[0].Value:=edit3.text;
       adoquery1.ExecSQL;
       adoquery1.close;
       Application.MessageBox('密码成功更新，请牢记！','提示信息',mb_ok);
       close;
  end
  else
    begin
       Application.MessageBox('您输入的旧密码错误或密码为空，请检查！','提示信息',mb_ok);
       Edit2.text:='';
       edit2.SetFocus;
    end;
end;

end.