unit_xgmm.pas

基本信息：房屋基本信息、客户基本信息、职工基本信息 房屋交易：客户订购、退房、购买 信息查询：销售、订购、结款、交易记录查询 报表查询：日报表、月报表

unit Unit_xgmm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  Txgmm = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgmm: Txgmm;

implementation

uses Unit_login;

{$R *.dfm}

procedure Txgmm.Button1Click(Sender: TObject);
var sql:string;
begin
 sql:='select * from yonghu where(name='''+trim(labelededit2.text)+''')and(password='''+trim(labelededit3.text)+''')and(type='''+trim(labelededit1.text)+''')';

  login.adoquery1.Close;
  login.adoquery1.sql.Clear;
  login.adoquery1.SQL.Add(sql);
  login.adoquery1.Open ;
  if login.adoquery1.RecordCount=0 then
  showmessage('你原密码不准确，请重新输入!!!!')
  else
  begin
   if trim(labelededit4.Text)<>trim(labelededit5.text) then
   showmessage('你输入的新密码，两次不一致')
   else
   begin
   if trim(labelededit5.text)='' then
    showmessage('密码不能为空!!!')
    else
     begin
       sql:='update yonghu set password='''+trim(labelededit5.text)+''' where (name='''+trim(labelededit2.text)+''')and(type='''+trim(labelededit1.text)+''')';
       login.adoquery1.Open;
       login.adoquery1.SQL.Clear;
       login.adoquery1.sql.add(sql);
       ///login.adoquery1.Open;
       ///login.adoquery1.post;
       login.ADOQuery1.ExecSQL;
       showmessage('修改成功');
     end;

   end;
  end;

end;

procedure Txgmm.Button2Click(Sender: TObject);
begin
if messagedlg('你确定退出此窗口吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
close
else
exit;
end;

end.