unit22.~pas

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

checkbox23.Checked:=DataModule1.ClientDataSet8.FieldByName('qx23').AsBoolean;
checkbox24.Checked:=DataModule1.ClientDataSet8.FieldByName('qx24').AsBoolean;
checkbox25.Checked:=DataModule1.ClientDataSet8.FieldByName('qx25').AsBoolean;
checkbox26.Checked:=DataModule1.ClientDataSet8.FieldByName('qx26').AsBoolean;
checkbox27.Checked:=DataModule1.ClientDataSet8.FieldByName('qx27').AsBoolean;
checkbox28.Checked:=DataModule1.ClientDataSet8.FieldByName('qx28').AsBoolean;
checkbox29.Checked:=DataModule1.ClientDataSet8.FieldByName('qx29').AsBoolean;
checkbox210.Checked:=DataModule1.ClientDataSet8.FieldByName('qx210').AsBoolean;
checkbox211.Checked:=DataModule1.ClientDataSet8.FieldByName('qx211').AsBoolean;
checkbox31.Checked:=DataModule1.ClientDataSet8.FieldByName('qx31').AsBoolean;
checkbox32.Checked:=DataModule1.ClientDataSet8.FieldByName('qx32').AsBoolean;
checkbox33.Checked:=DataModule1.ClientDataSet8.FieldByName('qx33').AsBoolean;
checkbox34.Checked:=DataModule1.ClientDataSet8.FieldByName('qx34').AsBoolean;
checkbox35.Checked:=DataModule1.ClientDataSet8.FieldByName('qx35').AsBoolean;
checkbox36.Checked:=DataModule1.ClientDataSet8.FieldByName('qx36').AsBoolean;
checkbox37.Checked:=DataModule1.ClientDataSet8.FieldByName('qx37').AsBoolean;
checkbox38.Checked:=DataModule1.ClientDataSet8.FieldByName('qx38').AsBoolean;
checkbox41.Checked:=DataModule1.ClientDataSet8.FieldByName('qx41').AsBoolean;
checkbox42.Checked:=DataModule1.ClientDataSet8.FieldByName('qx42').AsBoolean;
checkbox43.Checked:=DataModule1.ClientDataSet8.FieldByName('qx43').AsBoolean;
checkbox44.Checked:=DataModule1.ClientDataSet8.FieldByName('qx44').AsBoolean;
checkbox51.Checked:=DataModule1.ClientDataSet8.FieldByName('qx51').AsBoolean;
checkbox52.Checked:=DataModule1.ClientDataSet8.FieldByName('qx52').AsBoolean;
checkbox53.Checked:=DataModule1.ClientDataSet8.FieldByName('qx53').AsBoolean;
checkbox54.Checked:=DataModule1.ClientDataSet8.FieldByName('qx54').AsBoolean;
checkbox55.Checked:=DataModule1.ClientDataSet8.FieldByName('qx55').AsBoolean;
checkbox56.Checked:=DataModule1.ClientDataSet8.FieldByName('qx56').AsBoolean;
checkbox57.Checked:=DataModule1.ClientDataSet8.FieldByName('qx57').AsBoolean;
checkbox58.Checked:=DataModule1.ClientDataSet8.FieldByName('qx58').AsBoolean;
checkbox59.Checked:=DataModule1.ClientDataSet8.FieldByName('qx59').AsBoolean;
checkbox510.Checked:=DataModule1.ClientDataSet8.FieldByName('qx510').AsBoolean;
checkbox511.Checked:=DataModule1.ClientDataSet8.FieldByName('qx511').AsBoolean;
checkbox512.Checked:=DataModule1.ClientDataSet8.FieldByName('qx512').AsBoolean;
checkbox513.Checked:=DataModule1.ClientDataSet8.FieldByName('qx513').AsBoolean;
checkbox61.Checked:=DataModule1.ClientDataSet8.FieldByName('qx61').AsBoolean;
checkbox62.Checked:=DataModule1.ClientDataSet8.FieldByName('qx62').AsBoolean;
checkbox63.Checked:=DataModule1.ClientDataSet8.FieldByName('qx63').AsBoolean;
checkbox64.Checked:=DataModule1.ClientDataSet8.FieldByName('qx64').AsBoolean;
checkbox71.Checked:=DataModule1.ClientDataSet8.FieldByName('qx71').AsBoolean;
checkbox72.Checked:=DataModule1.ClientDataSet8.FieldByName('qx72').AsBoolean;
checkbox73.Checked:=DataModule1.ClientDataSet8.FieldByName('qx73').AsBoolean;
checkbox74.Checked:=DataModule1.ClientDataSet8.FieldByName('qx74').AsBoolean;
checkbox75.Checked:=DataModule1.ClientDataSet8.FieldByName('qx75').AsBoolean;
checkbox76.Checked:=DataModule1.ClientDataSet8.FieldByName('qx76').AsBoolean;
except
 showmessage('数据库没有打开!')
 end;
 end;

procedure TForm22.SpeedButton7Click(Sender: TObject);
begin
saveqx;
showmessage('权限数据保存成功!');
end;

procedure TForm22.SpeedButton6Click(Sender: TObject);
var
relation,cx,dx,sqlstr:string;
begin
relation:=' = ''';
 cx:='';
 dx:= ' ''';
sqlstr:='delete from dbo.czyb';
sqlstr:=sqlstr+' where (czyxm' +relation+cx+czyxm+cx+''')';
try
DataModule1.ClientDataSet8.CommandText:=sqlstr;
DataModule1.ClientDataSet8.Execute;
sqlstr:='select * from dbo.czyb';
DataModule1.ClientDataSet8.Close;
DataModule1.ClientDataSet8.CommandText:=sqlstr;
DataModule1.ClientDataSet8.Open;
dbgrid1.Enabled:=true;
except
dbgrid1.Enabled:=true;
showmessage('  操作员删除失败!');
end;
end;

procedure TForm22.DBGrid2CellClick(Column: TColumn);
begin
show;
end;

procedure TForm22.DBGrid1DblClick(Sender: TObject);
begin
if DataModule1.ClientDataSet8.RecordCount<1 then exit;
dbgrid1.Enabled:=false;
speedbutton2.Enabled:=true;
speedbutton5.Enabled:=true;
speedbutton1.Enabled:=false;
speedbutton3.Enabled:=false;
czyxm:=DataModule1.ClientDataSet8.fieldbyname('czyxm').AsString;
end;

procedure TForm22.SpeedButton5Click(Sender: TObject);
begin
DataModule1.ClientDataSet8.Edit;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
speedbutton5.Enabled:=false;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=true;
xg:=true;
end;

procedure TForm22.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) and (edit4.Enabled) then edit4.SetFocus;  
end;
  function tform22.mima():string;
   var
   I,I1:INTEGER;
   sstr1,sstr2,sstr3:string;
   begin
   edit3.Text:=trim(edit3.Text);
   edit4.Text:=trim(edit4.Text);
   if (trim(edit3.Text)='') or (trim(edit4.Text)='') or (trim(edit3.Text)<>trim(edit4.Text)) then
    begin
    showmessage('请您输入密码并保证<密码>与<重复密码>一致!');
    edit3.SetFocus;
    exit;
    end;
i:=1;
sstr1:='';
sstr2:='';
sstr3:='';
i1:=length(edit3.Text);
while i<=i1 do
  begin
  sstr1:=copy(edit3.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 TForm22.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then dbedit2.SetFocus;
end;

procedure TForm22.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) and (edit3.Enabled) then edit3.SetFocus;
end;

function tform22.saveqx:boolean;
var
a1,a2,a3,a4,a5,a6,a7,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,c1,c2,c3,c4,c5,c6,c7,c8,d1,d2,d3,d4:string;
e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12,e13,f1,f2,f3,f4,g1,g2,g3,g4,g5,g6:string;
relation,cx,dx,sqlstr:string;
begin
relation:=' = ''';
 cx:='';
 dx:= ' ''';
a1:='0';
a2:='0';
a3:='0';
a4:='0';
a5:='0';
a6:='0';
a7:='0';
b1:='0';
b2:='0';
b3:='0';
b4:='0';
b5:='0';
b6:='0';
b7:='0';
b8:='0';
b9:='0';
b10:='0';
b11:='0';
c1:='0';
c2:='0';
c3:='0';
c4:='0';
c5:='0';
c6:='0';
c7:='0';
c8:='0';
d1:='0';
d2:='0';
d3:='0';
d4:='0';
e1:='0';
e2:='0';
e3:='0';
e4:='0';
e5:='0';
e6:='0';
e7:='0';
e8:='0';
e9:='0';
e10:='0';
e11:='0';
e12:='0';
e13:='0';
f1:='0';
f2:='0';
f3:='0';
f4:='0';
g1:='0';
g2:='0';
g3:='0';
g4:='0';
g5:='0';
g6:='0';
if checkbox11.Checked then a1:='1';
if checkbox12.Checked then a2:='1';
if checkbox13.Checked then a3:='1';
if checkbox14.Checked then a4:='1';
if checkbox15.Checked then a5:='1';
if checkbox16.Checked then a6:='1';
if checkbox17.Checked then a7:='1';
sqlstr:='update dbo.czyb set qx11'+relation+a1+dx+' ,qx12'+relation+a2+dx+' ,qx13'+relation+a3 +dx+' ,qx14'+relation+a4+dx;
sqlstr:=sqlstr+' ,qx15'+relation+a5+dx+' ,qx16'+relation+a6+dx+' ,qx17'+relation+a7+dx;
if checkbox21.Checked then b1:='1';
if checkbox22.Checked then b2:='1';
if checkbox23.Checked then b3:='1';
if checkbox24.Checked then b4:='1';
if checkbox25.Checked then b5:='1';
if checkbox26.Checked then b6:='1';
if checkbox27.Checked then b7:='1';
if checkbox28.Checked then b8:='1';
if checkbox29.Checked then b9:='1';
if checkbox210.Checked then b10:='1';
if checkbox211.Checked then b11:='1';
sqlstr:=sqlstr+' ,qx21'+relation+b1+dx+' ,qx22'+relation+b2+dx+' ,qx23'+relation+b3+dx+' ,qx24'+relation+b4+dx;
sqlstr:=sqlstr+' ,qx25'+relation+b5+dx+' ,qx26'+relation+b6+dx+' ,qx27'+relation+b7+dx+' ,qx28'+relation+b8+dx;
sqlstr:=sqlstr+' ,qx29'+relation+b9+dx+' ,qx210'+relation+b10+dx+' ,qx211'+relation+b11+dx;
if checkbox31.Checked then c1:='1';
if checkbox32.Checked then c2:='1';
if checkbox33.Checked then c3:='1';
if checkbox34.Checked then c4:='1';
if checkbox35.Checked then c5:='1';
if checkbox36.Checked then c6:='1';
if checkbox37.Checked then c7:='1';
if checkbox38.Checked then c8:='1';
sqlstr:=sqlstr+' ,qx31'+relation+c1+dx+' ,qx32'+relation+c2+dx+' ,qx33'+relation+c3+dx+' ,qx34'+relation+c4+dx;
sqlstr:=sqlstr+' ,qx35'+relation+c5+dx+' ,qx36'+relation+c6+dx+' ,qx37'+relation+c7+dx+' ,qx38'+relation+c8+dx;
if checkbox41.Checked then d1:='1';
if checkbox42.Checked then d2:='1';
if checkbox43.Checked then d3:='1';
if checkbox44.Checked then d4:='1';
sqlstr:=sqlstr+' ,qx41'+relation+d1+dx+' ,qx42'+relation+d2+dx+' ,qx43'+relation+d3+dx+' ,qx44'+relation+d4+dx;
if checkbox51.Checked then e1:='1';
if checkbox52.Checked then e2:='1';
if checkbox53.Checked then e3:='1';
if checkbox54.Checked then e4:='1';
if checkbox55.Checked then e5:='1';
if checkbox56.Checked then e6:='1';
if checkbox57.Checked then e7:='1';
if checkbox58.Checked then e8:='1';
if checkbox59.Checked then e9:='1';
if checkbox510.Checked then e10:='1';
if checkbox511.Checked then e11:='1';
if checkbox512.Checked then e12:='1';
if checkbox513.Checked then e13:='1';
sqlstr:=sqlstr+' ,qx51'+relation+e1+dx+' ,qx52'+relation+e2+dx+' ,qx53'+relation+e3 +dx+' ,qx54'+relation+e4+dx;
sqlstr:=sqlstr+' ,qx55'+relation+e5+dx+' ,qx56'+relation+e6+dx+' ,qx57'+relation+e7 +dx+' ,qx58'+relation+e8+dx;
sqlstr:=sqlstr+' ,qx59'+relation+e9+dx+' ,qx510'+relation+e10+dx+' ,qx511'+relation+e11+dx+' ,qx512'+relation+e12+dx+' ,qx513'+relation+e13+dx;
if checkbox61.Checked then f1:='1';
if checkbox62.Checked then f2:='1';
if checkbox63.Checked then f3:='1';
if checkbox64.Checked then f4:='1';
sqlstr:=sqlstr+' ,qx61'+relation+f1+dx+' ,qx62'+relation+f2+dx+' ,qx63'+relation+f3+dx+' ,qx64'+relation+f4+dx;
if checkbox71.Checked then g1:='1';
if checkbox72.Checked then g2:='1';
if checkbox73.Checked then g3:='1';
if checkbox74.Checked then g4:='1';
if checkbox75.Checked then g5:='1';
if checkbox76.Checked then g6:='1';
sqlstr:=sqlstr+' ,qx71'+relation+g1+dx+' ,qx72'+relation+g2+dx+' ,qx73'+relation+g3+dx;
sqlstr:=sqlstr+' ,qx74'+relation+g4+dx+' ,qx75'+relation+g5+dx+' ,qx76'+relation+g6+dx;
sqlstr:=sqlstr+' where (czyxm' +relation+cx+DataModule1.ClientDataSet8.fieldbyname('czyxm').AsString+cx+''')';
DataModule1.ClientDataSet8.CommandText:=sqlstr;
DataModule1.ClientDataSet8.Execute;
sqlstr:='select * from dbo.czyb';
DataModule1.ClientDataSet8.Close;
DataModule1.ClientDataSet8.CommandText:=sqlstr;
DataModule1.ClientDataSet8.Open;
end;


end.