uuser_password.pas

工廠採購管理系統

unit uuser_password;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, StdCtrls, DBCtrls, Mask, DB, ADODB;

type
  Tfrmpassword = class(TForm)
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBComboBox1: TDBComboBox;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBMemo1: TDBMemo;
    DBEdit5: TDBEdit;
    Image1: TImage;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    OpenPictureDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
  private
    { Private declarations }
    kzm:string;
  public
    { Public declarations }
  end;

var
  frmpassword: Tfrmpassword;

implementation
uses uconst,ufunction;
{$R *.dfm}

procedure Tfrmpassword.FormCreate(Sender: TObject);
begin
DBComboBox1.Items.Clear;
DBComboBox1.Items.add('系统维护');
DBComboBox1.Items.add('生产部');
DBComboBox1.Items.add('采购部');
DBComboBox1.Items.add('货仓部');
strsql:='select * from sec where dh='+''''+userid+'''';
adoexect(adoquery1,strsql);
loadpicture(adoquery1,image1,trim(dbedit5.text),'photo');
adoquery1.Edit;
end;

procedure Tfrmpassword.RzBitBtn1Click(Sender: TObject);
begin

strsql:='select * from sec where dh='+''''+trim(dbedit1.Text)+'''';
adoexect(adoquery2,strsql);
if (userid<>trim(dbedit1.Text)) and (not(adoquery2.Recordset.eof and adoquery2.Recordset.bof)) then
   begin
   showmessage('该帐号已经存在，请选用其他的帐号！');
   dbedit1.SetFocus;
   exit;
   end ;
savepicture(adoquery1,image1,kzm,'photo');
adoquery1.Post;
if userid<>trim(dbedit1.Text) then
   begin
   strsql:='update user_qxsz set dh='+''''+trim(dbedit1.Text)+'''';
   adodel(adoquery2,strsql);
   end;
userid:=trim(dbedit1.Text);
username:=trim(dbedit2.Text);
close;
end;

procedure Tfrmpassword.RzBitBtn2Click(Sender: TObject);
begin
adoquery1.CancelUpdates;
adoquery2.Close;
close;
end;

procedure Tfrmpassword.Image1DblClick(Sender: TObject);
var
i:integer;
begin
if OpenPictureDialog1.Execute then begin
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
i:=pos('.',OpenPictureDialog1.FileName);
kzm:=copy(OpenPictureDialog1.FileName,i+1,length(OpenPictureDialog1.FileName)-i);
dbedit5.text:=kzm;
end;
end;

end.