pass_un.pas

布林电话收费管理系统

unit pass_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, bsSkinBoxCtrls, bsSkinCtrls, ExtCtrls,
  BusinessSkinForm, bsMessages;

type
  Tpass = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    Image1: TImage;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinMaskEdit1: TbsSkinMaskEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinMaskEdit2: TbsSkinMaskEdit;
    bsSkinMaskEdit3: TbsSkinMaskEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure bsSkinMaskEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pass: Tpass;

implementation
 uses globe,dm_un,main_un;
{$R *.dfm}

procedure Tpass.bsSkinXFormButton2Click(Sender: TObject);
begin
close;
end;

procedure Tpass.FormCreate(Sender: TObject);
begin
 bsskinstdlabel4.Caption:='当前系统的用户为：'+user_name;
end;

procedure Tpass.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then close;
end;

procedure Tpass.bsSkinXFormButton1Click(Sender: TObject);
begin
 dm:=tdm.Create(nil);
 if bsskinmaskedit1.Text=user_pass then
  begin
   if bsskinmaskedit2.Text=bsskinmaskedit3.Text then
    begin
     with dm do
      begin
       q_a.Close;
       q_a.SQL.Clear;
       q_a.SQL.Add('update tuser set user_pass=:user_pass where user_id=:user_id');
       q_a.Parameters.ParamByName('user_pass').Value:=trim(bsskinmaskedit2.Text);
       q_a.Parameters.ParamByName('user_id').Value:=user_id;
       q_a.Prepared;
       q_a.ExecSQL;
      end;
      user_pass:=trim(bsskinmaskedit2.Text);
      writetolog('0.00');
      bsskinmessage1.MessageDlg('用户口令修改完毕！',mtinformation,[mbyes],0);
      bsskinxformbutton2.SetFocus;
    end
   else
    begin
       bsskinmessage1.MessageDlg('用户新口令与确认口令不符！，请输入正确的新口令！',mterror,[mbyes],0);
       bsskinmaskedit2.Text:='';
       bsskinmaskedit3.Text:='';
       bsskinmaskedit2.SetFocus;
    end;
  end
 else
  begin
   bsskinmessage1.MessageDlg('用户原口令有误！，请输入正确的原口令！',mterror,[mbyes],0);
   bsskinmaskedit1.Text:='';
   bsskinmaskedit1.SetFocus;
  end;
end;

procedure Tpass.bsSkinMaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   key:=#0;
   postmessage(handle,WM_KEYDOWN,VK_TAB,0);
  end;
end;

end.