unit26.~pas

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

    exit;
    end;
i:=1;
sstr1:='';
sstr2:='';
sstr3:='';
i1:=length(edit2.Text);
while i<=i1 do
  begin
  sstr1:=copy(edit2.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;
//edit1.Text:=sstr3;
mimastr:=sstr3;
mima:=sstr3;
end;

procedure TForm26.SpeedButton4Click(Sender: TObject);
var
sqlstr,relation,cx:string;
begin
if edit1.Text='' then
 begin
 showmessage('请您输入密码!');
 edit1.SetFocus;
 exit;
 end;
   docheck;
   if mimastrj<>mimastrs then
  begin
   showmessage('原密码错误!请您输入原密码后操作!');
   edit1.SetFocus;
   exit;
  end;
   if (trim(edit2.Text)='') or (trim(edit3.Text)='') or (trim(edit2.Text)<>trim(edit3.Text)) then
    begin
    showmessage('请您输入新的密码并保证<新密码>与<确认密码>一致!');
    edit2.SetFocus;
    exit;
    end;
    mima;
    relation:=' = ''';
    cx:='''';
    try
    sqlstr:='update czyb set mima' +relation+mimastr+cx+' where (czyxm'+relation+DBLookupComboBox1.Text+''')';
    DataModule1.ClientDataSet8.CommandText:=sqlstr;
    DataModule1.ClientDataSet8.Execute;
    sqlstr:='select * from czyb';
    DataModule1.ClientDataSet8.Close;
    DataModule1.ClientDataSet8.CommandText:=sqlstr;
    DataModule1.ClientDataSet8.Open;
       except
    showmessage('数据库更新失败!');
    exit;
    end;
    showmessage('密码修改正确，请您输入新密码后登录系统!');
    edit1.SetFocus;
    edit1.Text:='';
    speedbutton3.Enabled:=false;
    speedbutton4.Enabled:=false;
    edit2.Enabled:=false;
    edit3.Enabled:=false;
    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;
 function tform26.qx():boolean;
 begin
 if DataModule1.ClientDataSet8.FieldByName('czyid').AsString<>'' then form1.tbh.Text:=trim(DataModule1.ClientDataSet8.FieldByName('czyid').AsString);
 if length(trim(form1.tbh.Text))=1 then form1.tbh.Text:='0'+form1.tbh.Text;
 if DataModule1.ClientDataSet8.FieldByName('qx11').AsString<>'' then form1.N11.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx11').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx12').AsString<>'' then form1.N12.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx12').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx13').AsString<>'' then form1.N13.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx13').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx14').AsString<>'' then form1.N14.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx14').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx15').AsString<>'' then form1.N15.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx15').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx16').AsString<>'' then form1.N16.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx16').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx17').AsString<>'' then form1.N17.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx17').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx21').AsString<>'' then form1.N21.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx21').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx22').AsString<>'' then form1.N22.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx22').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx23').AsString<>'' then form1.N23.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx23').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx24').AsString<>'' then form1.N24.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx24').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx25').AsString<>'' then form1.N25.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx25').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx26').AsString<>'' then form1.N26.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx26').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx27').AsString<>'' then form1.N27.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx27').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx28').AsString<>'' then form1.N28.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx28').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx29').AsString<>'' then form1.N29.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx29').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx210').AsString<>'' then form1.N210.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx210').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx211').AsString<>'' then form1.N211.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx211').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx31').AsString<>'' then form1.N31.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx31').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx32').AsString<>'' then form1.N32.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx32').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx33').AsString<>'' then form1.N33.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx33').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx34').AsString<>'' then form1.N34.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx34').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx35').AsString<>'' then form1.N35.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx35').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx36').AsString<>'' then form1.N36.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx36').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx37').AsString<>'' then form1.N37.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx37').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx38').AsString<>'' then form1.N38.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx38').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx41').AsString<>'' then form1.N41.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx41').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx42').AsString<>'' then form1.N42.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx42').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx43').AsString<>'' then form1.N43.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx43').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx44').AsString<>'' then form1.N44.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx44').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx51').AsString<>'' then form1.N51.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx51').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx52').AsString<>'' then form1.N52.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx52').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx53').AsString<>'' then form1.N53.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx53').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx54').AsString<>'' then form1.N54.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx54').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx55').AsString<>'' then form1.N55.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx55').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx56').AsString<>'' then form1.N56.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx56').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx57').AsString<>'' then form1.N57.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx57').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx58').AsString<>'' then form1.N58.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx58').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx59').AsString<>'' then form1.N59.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx59').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx510').AsString<>'' then form1.N510.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx510').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx511').AsString<>'' then form1.N511.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx511').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx512').AsString<>'' then form1.N512.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx512').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx513').AsString<>'' then form1.N513.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx513').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx61').AsString<>'' then form1.N61.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx61').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx62').AsString<>'' then form1.N62.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx62').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx63').AsString<>'' then form1.N63.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx63').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx64').AsString<>'' then form1.N64.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx64').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx71').AsString<>'' then form1.N71.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx71').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx72').AsString<>'' then form1.N72.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx72').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx73').AsString<>'' then form1.N73.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx73').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx74').AsString<>'' then form1.N74.Enabled:=DataModule1.ClientDataSet8.FieldByName('qx74').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx75').AsString<>'' then form1.print:=DataModule1.ClientDataSet8.FieldByName('qx75').AsBoolean;
 if DataModule1.ClientDataSet8.FieldByName('qx76').AsString<>'' then form1.excel:=DataModule1.ClientDataSet8.FieldByName('qx76').AsBoolean;
  end;
 function tform26.checkusers():boolean;
 var
 msgstr,pcNAME: STRING;
 sizepcname:cardinal;
BEGIN
setlength(pcNAME,40);
sizepcname:=length(pcname)+1;
GETCOMPUTERNAME(pchar(pcNAME),sizepcNAME);
try
DataModule1.ClientDataSet9.Active:=true;
if DataModule1.ClientDataSet9.Locate('username',dblookupcombobox1.Text,[]) then
begin
  if DataModule1.ClientDataSet9.FieldByName('rq').AsDateTime>=date then
    begin
     if DataModule1.ClientDataSet9.FieldByName('pcname').AsString=trim(pcname) then
        begin
          showmessage('您在本机已经登录了或非法退出本系统，系统即将关闭，如有疑问请联系管理员!');
          beep;
          form25.Close;
          close;
          end
          else
          begin
          msgstr:='您在'+trim(DataModule1.ClientDataSet9.fieldbyname('pcname').AsString)+'已经登录了或非法退出本系统，系统即将关闭，如有疑问请联系管理员!';
          beep;
          showmessage(msgstr);
          form25.Close;
          close;
          end;
        end
     else
   begin
 showmessage('您在'+trim(DataModule1.ClientDataSet9.fieldbyname('pcname').AsString)+'已经登录了或非法退出本系统，请您正确使用本系统!');
  beep;
  exit;
 end;
 end
else
begin
DataModule1.ClientDataSet9.First;
DataModule1.ClientDataSet9.Edit;
DataModule1.ClientDataSet9.Insert;
DataModule1.ClientDataSet9.FieldByName('username').AsString:=dblookupcombobox1.Text;
DataModule1.ClientDataSet9.FieldByName('rq').AsDateTime:=date;
DataModule1.ClientDataSet9.FieldByName('pcname').AsString:=trim(pcname);
DataModule1.ClientDataSet9.ApplyUpdates(-1);
end;
except
showmessage('数据库没有打开!')
end;
DataModule1.ClientDataSet9.Active:=false;
end;
procedure TForm26.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then speedbutton1.Click;
end;
function tform26.deleteusers():boolean;
begin
try
DataModule1.ClientDataSet9.Active:=true;
if DataModule1.ClientDataSet9.Locate('username',form1.StatusBar1.Panels[4].Text,[]) then
begin
DataModule1.ClientDataSet9.Edit;
DataModule1.ClientDataSet9.Delete;
DataModule1.ClientDataSet9.ApplyUpdates(-1);
end;
DataModule1.ClientDataSet9.Active:=false;
except
showmessage('数据库没有打开!')
end;
end;
end.