unit26.~pas

来自「应对服装行业的生产成本控制系统」· ~PAS 代码 · 共 674 行 · 第 1/2 页

unit Unit26;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, DBCtrls, Buttons, DB, DBClient,
  MConnect, ADODB;

type
  TForm26 = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label4: TLabel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
  mimastr,mimastrs,mimastrj: string;
  nc,ngc: integer;
  function docheck():string;
  function mima():string;
  function qx():boolean;
  function checkusers():boolean;
    { Private declarations }
  public
  function deleteusers():boolean;
    { Public declarations }
  end;

var
  Form26: TForm26;

implementation

uses Unit25,unit1,unit28;

{$R *.dfm}

procedure TForm26.SpeedButton2Click(Sender: TObject);
begin
try
DataModule1.ClientDataSet8.Active:=false;
except
showmessage('数据库没有打开!')
end;
form25.Close;
close;
end;

procedure TForm26.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
DataModule1.ClientDataSet8.Active:=false;
except
showmessage('数据库没有打开!')
end;
form25.Close;
end;

procedure TForm26.FormActivate(Sender: TObject);
begin
mimastr:='';
mimastrj:='';
mimastrs:='';
nc:=0;
ngc:=0;
edit1.Enabled:=false;
groupbox2.Enabled:=false;
speedbutton1.Enabled:=true;
speedbutton2.Enabled:=true;
speedbutton3.Enabled:=false;
speedbutton4.Enabled:=false;
try
DataModule1.ClientDataSet8.Active:=true;
except
showmessage('数据库没有打开!')
end;
end;

procedure TForm26.Edit1Change(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
 speedbutton3.Enabled:=true
 else
 speedbutton3.Enabled:=false;
end;

procedure TForm26.DBLookupComboBox1Click(Sender: TObject);
begin
if trim(dblookupcombobox1.Text)<>'' then
begin
edit1.Enabled:=true;
if DataModule1.ClientDataSet8.FieldByName('mima').AsString<>'' then mimastrs:=DataModule1.ClientDataSet8.fieldbyname('mima').AsString;
end
else
edit1.Enabled:=false
end;

procedure TForm26.SpeedButton3Click(Sender: TObject);
begin
groupbox2.Enabled:=true;
edit2.SetFocus;
speedbutton3.Enabled:=true;
speedbutton4.Enabled:=true;
end;

procedure TForm26.SpeedButton1Click(Sender: TObject);
begin
 edit1.Text:=trim(edit1.Text);
 if edit1.Text='' then
 begin
 showmessage('请您输入密码!');
 edit1.SetFocus;
 exit;
 end;
nc:=nc+1;
docheck;
if mimastrj=mimastrs then
begin
checkusers;
form1.StatusBar1.Panels[4].Text:=dblookupcombobox1.Text;
form25.Hide;
form25.Visible:=false;
form26.Visible:=false;
qx;
DataModule1.ClientDataSet8.Active:=false;
form1.ShowModal;
end
else
begin
showmessage('您输入的密码不正确，请注意字母的大小写是否正确!');
if nc>3 then
begin
showmessage('非法用户，系统即将关闭!');
close;
form25.Close;
end;
edit1.SetFocus;
edit1.Text:='';
mimastrj:='';
exit;
end;
end;
function tform26.docheck():string;
   var
   I,I1:INTEGER;
   sstr1,sstr2,sstr3:string;
   begin
 edit1.Text:=trim(edit1.Text);
 if edit1.Text='' then
 begin
 showmessage('请您输入密码!');
 edit1.SetFocus;
 exit;
 end;
 i:=1;
sstr1:='';
sstr2:='';
sstr3:='';
i1:=length(edit1.Text);
while i<=i1 do
  begin
  sstr1:=copy(edit1.Text,i,1);
  if sstr1='A' THEN
  SSTR2:='K'
  ELSE IF SSTR1='B' THEN
  SSTR2:='Q'
  ELSE IF SSTR1='C' THEN
SSTR2:='S'
ELSE IF SSTR1='D' THEN
SSTR2:='U'
ELSE IF SSTR1='E' THEN
SSTR2:='T'
ELSE IF SSTR1='F' THEN
SSTR2:='M'
ELSE IF SSTR1='G' THEN
SSTR2:='W'
ELSE IF SSTR1='H' THEN
SSTR2:='L'
ELSE IF SSTR1='I' THEN
SSTR2:='R'
ELSE IF SSTR1='J' THEN
SSTR2:='B'
ELSE IF SSTR1='K' THEN
SSTR2:='F'
ELSE IF SSTR1='L' THEN
SSTR2:='Y'
ELSE IF SSTR1='M' THEN
SSTR2:='Z'
ELSE IF SSTR1='N' THEN
SSTR2:='V'
ELSE IF SSTR1='O' THEN
SSTR2:='A'
ELSE IF SSTR1='P' THEN
SSTR2:='C'
ELSE IF SSTR1='Q' THEN
SSTR2:='D'
ELSE IF SSTR1='R' THEN
SSTR2:='E'
ELSE IF SSTR1='S' THEN
SSTR2:='G'
ELSE IF SSTR1='T' THEN
SSTR2:='H'
ELSE IF SSTR1='U' THEN
SSTR2:='I'
ELSE IF SSTR1='V' THEN
SSTR2:='J'
ELSE IF SSTR1='W' THEN
SSTR2:='X'
ELSE IF SSTR1='X' THEN
SSTR2:='N'
ELSE IF SSTR1='Y' THEN
SSTR2:='O'
ELSE IF SSTR1='Z' THEN
SSTR2:='P'
ELSE if sstr1='a' THEN
SSTR2:='o'
ELSE IF SSTR1='b' THEN
SSTR2:='j'
ELSE IF SSTR1='c' THEN
SSTR2:='p'
ELSE IF SSTR1='d' THEN
SSTR2:='q'
ELSE IF SSTR1='e' THEN
SSTR2:='r'
ELSE IF SSTR1='f' THEN
SSTR2:='k'
ELSE IF SSTR1='g' THEN
SSTR2:='s'
ELSE IF SSTR1='h' THEN
SSTR2:='t'
ELSE IF SSTR1='i' THEN
SSTR2:='u'
ELSE IF SSTR1='j' THEN
SSTR2:='v'
ELSE IF SSTR1='k' THEN
SSTR2:='a'
ELSE IF SSTR1='l' THEN
SSTR2:='h'
ELSE IF SSTR1='m' THEN
SSTR2:='f'
ELSE IF SSTR1='n' THEN
SSTR2:='x'
ELSE IF SSTR1='o' THEN
SSTR2:='y'
ELSE IF SSTR1='p' THEN
SSTR2:='z'
ELSE IF SSTR1='q' THEN
SSTR2:='b'
ELSE IF SSTR1='r' THEN
SSTR2:='i'
ELSE IF SSTR1='s' THEN
SSTR2:='c'
ELSE IF SSTR1='t' THEN
SSTR2:='e'
ELSE IF SSTR1='u' THEN
SSTR2:='d'
ELSE IF SSTR1='v' THEN
SSTR2:='n'
ELSE IF SSTR1='w' THEN
SSTR2:='g'
ELSE IF SSTR1='x' THEN
SSTR2:='w'
ELSE IF SSTR1='y' THEN
SSTR2:='l'
ELSE IF SSTR1='z' THEN
SSTR2:='m'
else if sstr1='0' then
sstr2:='6'
else if sstr1='1' then
sstr2:='5'
else if sstr1='2' then
sstr2:='4'
else if sstr1='3' then
sstr2:='7'
else if sstr1='4' then
sstr2:='3'
else if sstr1='5' then
sstr2:='8'
else if sstr1='6'then
sstr2:='9'
else if sstr1='7' then
sstr2:='1'
else if sstr1='8' then
sstr2:='2'
else if sstr1='9' then
sstr2:='0'
 else
 begin
 sstr2:=sstr1 ;
 end;
 IF (I MOD 2)=0 THEN
 begin
 sstr3:=sstr3+sstr2;
 end
 ELSE
 BEGIN
 sstr3:=sstr2+sstr3;
 END;
  i:=i+1;
end;
mimastrj:=sstr3;
docheck:=sstr3;
end;

 function tform26.mima():string;
   var
   I,I1:INTEGER;
   sstr1,sstr2,sstr3:string;
   begin
   edit2.Text:=trim(edit2.Text);
   edit3.Text:=trim(edit2.Text);
   if (trim(edit2.Text)='') or (trim(edit3.Text)='') or (trim(edit2.Text)<>trim(edit3.Text)) then
    begin
    showmessage('请您输入密码并保证<新密码>与<确认密码>一致!');
    edit2.SetFocus;