Разработка автоматизированной системы для автоматизации расчета заработной платы

end;

if w=3 then

begin

Image2.Picture.LoadFromFile('черная.bmp');

Image3.Picture.LoadFromFile('черная.bmp');

Image4.Picture.LoadFromFile('красная.bmp');

end;

end;

procedure TForm1.perevod;

var

stint,nn,i,j,ii,q:integer;

stout,inf:string;

qqq,qq:word;

nas:array[1..8]of integer;

begin

for i:=1 to 8 do

nas[i]:=0;

for i:=1 to 6 do

begin

stout:=Edit3.Text;

stint:=ord(stout[i]);

q:=stint;

j:=1;

repeat

DivMod(q,2,qq,qqq);

q:=qq;

nas[j]:=qqq;

j:=j+1;

until qq<2;

if qq=1 then nas[j]:=1;

for ii:=1 to 8 do

begin

stat:=stat+IntToStr(nas[ii]);

nas[ii]:=0;

end;

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ScktComp, StdCtrls, Buttons, ComCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

ClientSocket1: TClientSocket;

ServerSocket1: TServerSocket;

BitBtn1: TBitBtn;

Button2: TButton;

ProgressBar1: TProgressBar;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

procedure BitBtn1Click(Sender: TObject);

procedure dekodirovsnie;

procedure sravnenie;

procedure vkl;

procedure srorost;

procedure perevod;

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

rez,cskt:integer;

s,sss,stst:string;

ss:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

cskt:=0;

ProgressBar1.Position:=0;

ServerSocket1.Port:=1024;

ServerSocket1.Active:=true;

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

var

ii:integer;

begin

begin

s:='';

s:=Socket.ReceiveText;

if s='5'then

begin

for ii:=0 to 1000000 do

ProgressBar1.Position:=0;

cskt:=0;

s:=Edit1.Text;

sss:=Edit1.Text;

dekodirovsnie;

sravnenie;

perevod;

end;

if (s[1]='5')or(s[1]='6')or(s[1]='7')then

begin

if s[1]='5' then ProgressBar1.Max:=55;

if s[1]='6' then ProgressBar1.Max:=63;

if s[1]='7' then ProgressBar1.Max:=71;

exit;

end;

if (s='1')or(s='0')then

begin

Edit1.Text:=Edit1.Text+s;

stst:=stst+s;

cskt:=cskt+1;

ProgressBar1.Position:=cskt;

exit;

end;

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

ServerSocket1.Active:=false;

ServerSocket1.Close;

Form1.Close;

end;

procedure TForm1.dekodirovsnie;

var

D:ARRAY of array of integer;

dd:array of integer;

d1:array of integer;

d2:array of integer;

m,k:integer;

i,n,j,st,dln:integer;

begin

m:=48;

dln:=length(s);

if dln=71 then

begin

k:=24;

ss:=100000;

end;

if dln=55 then

begin

k:=8;

ss:=30000;

end;

if dln=63 then

begin

k:=16;

ss:=70000;

end;

//caaaai ianneaa aeiaie?aneee

SetLength(d,2);

SetLength(d[0],m+k);

SetLength(d[1],m+k);

SetLength(dd,k);

SetLength(d1,k);

SetLength(d2,k);

if dln=55 then

begin

dd[0]:=1;

dd[1]:=1;

dd[2]:=0;

dd[3]:=0;

dd[4]:=1;

dd[5]:=1;

dd[6]:=0;

dd[7]:=0;

end;

if dln=63 then

begin

dd[0]:=1;

dd[1]:=1;

dd[2]:=0;

dd[3]:=0;

dd[4]:=1;

dd[5]:=1;

dd[6]:=0;

dd[7]:=0;

dd[8]:=1;

dd[9]:=1;

dd[10]:=0;

dd[11]:=0;

dd[12]:=1;

dd[13]:=1;

dd[14]:=0;

dd[15]:=0;

end;

if dln=71 then

begin

dd[0]:=1;

dd[1]:=1;

dd[2]:=0;

dd[3]:=0;

dd[4]:=1;

dd[5]:=1;

dd[6]:=0;

dd[7]:=0;

dd[8]:=1;

dd[9]:=1;

dd[10]:=0;

dd[11]:=0;

dd[12]:=1;

dd[13]:=1;

dd[14]:=0;

dd[15]:=0;

dd[16]:=1;

dd[17]:=1;

dd[18]:=0;

dd[19]:=0;

dd[20]:=1;

dd[21]:=1;

dd[22]:=0;

dd[23]:=0;

end;

for i:=0 to m+k-2 do

begin

st:=StrToInt(s[i+1]);

d[0,i]:=st;

end;

for i:=0 to k-1 do

begin

d1[i]:=d[0,i];d[1,i]:=1;

n:=n+1;

end;

repeat

if d1[0]=dd[0]then

for i:=0 to k-1 do

begin

if (d1[i]=1)and(dd[i]=1)then d2[i]:=0;

if (d1[i]=0)and(dd[i]=1)then d2[i]:=1;

if (d1[i]=1)and(dd[i]=0)then d2[i]:=1;

if (d1[i]=0)and(dd[i]=0)then d2[i]:=0;

end

else

for i:=0 to k-1 do

d2[i]:=d1[i];

j:=1;

for i:=0 to k-2 do

begin

d2[j-1]:=d2[j];

j:=j+1;

end;

d2[k-1]:=d[0,n];

d[1,n]:=1;

n:=n+1;

for i:=0 to k-1 do

d1[i]:=d2[i];

until d[1,m+k-1]=1;

s:='';

for i:=0 to k-1 do

s:=s+IntToStr(d1[i]);

for i:=0 to m+k-1 do

d[1,i]:=0;

end;

procedure TForm1.sravnenie;

var

kol:integer;

i:integer;

str:string;

zz:integer;

begin

zz:=0;

kol:=length(s);

rez:=0;

for i:=1 to kol do

begin

if s[i]=IntToStr(0)then zz:=zz+1;

end;

if zz<>kol then

begin

rez:=1;

str:=IntToStr(rez);

ClientSocket1.Socket.SendText(str);

Edit1.Clear;

zz:=0;

str:='';

end

else

begin

ShowMessage('сообщение передано');

rez:=0;

str:=IntToStr(rez);

ClientSocket1.Socket.SendText(str);

zz:=0;

str:='';

Memo1.Clear;

end;

end;

procedure TForm1.vkl;

begin

ClientSocket1.Port:=300;

ClientSocket1.Address:='127.0.0.1';

ClientSocket1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

vkl;

end;

procedure TForm1.srorost;

var

i:integer;

begin

ProgressBar1.Max:=ss;

for i:=0 to ss do

ProgressBar1.Position:=i;

ProgressBar1.Position:=0;

end;

procedure TForm1.perevod;

var

i,nn,mm,mini,maxi,j:integer;

bit,codogr,bitslov:string;

begin

codogr:=sss;

mini:=1;

maxi:=8;

for j:=0 to 5 do

begin

for i:=mini to maxi do

bit:=bit+codogr[i];

nn:=0;

for i:=1 to 8 do

begin

if bit[i]=IntToStr(1) then

begin

if i=1 then nn:=nn+1;

if i=2 then nn:=nn+2;

if i=3 then nn:=nn+4;

if i=4 then nn:=nn+8;

if i=5 then nn:=nn+16;

if i=6 then nn:=nn+32;

if i=7 then nn:=nn+64;

if i=8 then nn:=nn+128;

end; end;

bitslov:=bitslov+chr(nn);

mini:=mini+8;

maxi:=maxi+8;

bit:='';

end;

Memo1.Lines.Add(bitslov);

end; end.

Размещено на Allbest.ru