change_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit change_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm, StdCtrls,
  bsSkinCtrls, bsSkinBoxCtrls, bsdbctrls, DB, ADODB;

type
  Tchange_frm = class(Tbase_frm)
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinPasswordEdit2: TbsSkinPasswordEdit;
    tbl_account: TADOTable;
    ds_account: TDataSource;
    ADOCommand1: TADOCommand;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure ds_accountDataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  change_frm: Tchange_frm;

implementation
uses data_un,golb;
{$R *.dfm}

procedure Tchange_frm.bsSkinButton2Click(Sender: TObject);
begin
  inherited;
golb.account:=2;
close;
end;

procedure Tchange_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
if Trim(bsSkinDBLookupComboBox4.KeyValue)='管理员'then
        if Trim(bsSkinPasswordEdit2.Text)=Trim(tbl_account.FieldValues['pass']) then
            begin
                    ADOCommand1.Parameters.ParamValues['pass']:=Trim(bsSkinPasswordEdit1.Text);
                    ADOCommand1.Parameters.ParamValues['user']:='管理员';
                    ADOCommand1.Execute;
                    bsSkinMessage1.MessageDlg('密码更改成功，请重新登陆',mtInformation,[mbYes],0);
                    golb.account:=1;
                    close;
            end
            else
            begin
                 bsSkinMessage1.MessageDlg('原密码不对',mtWarning,[mbYes],0);
            end;
if Trim(bsSkinDBLookupComboBox4.KeyValue)<>'管理员' then
begin
                    ADOCommand1.Parameters.ParamValues['pass']:=Trim(bsSkinPasswordEdit1.Text);
                    ADOCommand1.Parameters.ParamValues['user']:='收银员';
                    ADOCommand1.Execute;
end;                    
end;

procedure Tchange_frm.ds_accountDataChange(Sender: TObject; Field: TField);
begin
  inherited;
if Trim(tbl_account.FieldValues['fid'])<>'管理员' then
begin
bsSkinStdLabel3.Visible:=false;
bsSkinPasswordEdit2.Visible:=false;
end
else
begin
bsSkinStdLabel3.Visible:=True;
bsSkinPasswordEdit2.Visible:=true;
end;
end;

procedure Tchange_frm.FormCreate(Sender: TObject);
begin
  inherited;
tbl_account.Open;
end;

procedure Tchange_frm.bsSkinButton1KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
if Key=#13 then
 bsSkinButton1Click(Sender) ;

end;

end.