Дипломной работе рассматривается создание автоматизированного рабочего места диспетчера системно-технического

103
 
 
390
 
391
 
392
 
393
 
394
 
395
 
396
 
397
 
398
 
399
 
400
 
401
 
402
 
403
 
404
 
405
 
406
 
407
 
408
 
409
 
410
 
411
 
412
 
413
 
414
 
415
 
416
 
417
 
418
 
419
 
420
 
421
 
422
 
423
 
424
 
425
 
426
 
427
 
428
 
429
 
430
 
431
 
432
 
433
 
434
 
435
 
436
 
437
 
438
 
                          a1[z+2]:=' Одна ';
 
                          pr:=False;
 
                         end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        2:begin
 
            case i of
 
              1:if not pr then a1[z]:=' двісті ' else begin 
a1[z]:=' Двісті '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' двадцять ' else begin 
a1[z+1]:=' Двадцять '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then if Nk=3 then
 
                    begin
 
                     if not pr then a1[z+2]:=' два ' else begin 
a1[z+2]:=' Два '; pr:=False; end;
 
                    end
 
                     else
 
                    begin
 
                      if not pr then a1[z+2]:=' дві ' else begin 
a1[z+2]:=' Дві '; pr:=False; end;
 
                    end;
 
                end;
 
            end;
 
          end;
 
        3:begin
 
            case i of
 
              1:if not pr then a1[z]:=' триста ' else begin 
a1[z]:=' Триста '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' тридцять ' else begin 
a1[z+1]:=' Тридцять '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                      begin
 
                       if not pr then a1[z+2]:=' три ' else begin 
a1[z+2]:=' Три '; pr:=False; end;
 
                      end;
 
                end;
 
            end;
 
          end;
 
        4:begin
 
            case i of
 
              1:if not pr then a1[z]:=' чотириста ' else begin 
a1[z]:=' Чотириста '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' сорок ' else begin 
a1[z+1]:=' Сорок '; pr:=False; end;
 
              3:begin
 

104
 
 
439
 
440
 
441
 
442
 
443
 
444
 
445
 
446
 
447
 
448
 
449
 
450
 
451
 
452
 
453
 
454
 
455
 
456
 
457
 
458
 
459
 
460
 
461
 
462
 
463
 
464
 
465
 
466
 
467
 
468
 
469
 
470
 
471
 
472
 
473
 
474
 
475
 
476
 
477
 
478
 
479
 
480
 
481
 
482
 
483
 
484
 
485
 
486
 
487
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' чотири ' else 
begin a1[z+2]:=' Чотири '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        5:begin
 
            case i of
 
              1:if not pr then a1[z]:=' п’ятсот ' else begin 
a1[z]:=' П’ятсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' п’ятдесят ' else begin 
a1[z+1]:=' П’ятдесят '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' п’ять ' else begin 
a1[z+2]:=' П’ять '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        6:begin
 
            case i of
 
              1:if not pr then a1[z]:=' шістсот ' else begin 
a1[z]:=' Шістсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' шістдесят ' else begin 
a1[z+1]:=' Шістдесят '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' шість ' else begin 
a1[z+2]:=' Шість '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        7:begin
 
            case i of
 
              1:if not pr then a1[z]:=' сімсот ' else begin 
a1[z]:=' Сімсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' сімдесят ' else begin 
a1[z+1]:=' Сімдесят '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' сім ' else begin 
a1[z+2]:=' Сім '; pr:=False; end;
 

105
 
 
488
 
489
 
490
 
491
 
492
 
493
 
494
 
495
 
496
 
497
 
498
 
499
 
500
 
501
 
502
 
503
 
504
 
505
 
506
 
507
 
508
 
509
 
510
 
511
 
512
 
513
 
514
 
515
 
516
 
517
 
518
 
519
 
520
 
521
 
522
 
523
 
524
 
525
 
526
 
527
 
528
 
529
 
530
 
531
 
532
 
533
 
534
 
535
 
536
 
                     end;
 
                end;
 
            end;
 
          end;
 
        8:begin
 
            case i of
 
              1:if not pr then a1[z]:=' вісімсот ' else begin 
a1[z]:=' Вісімсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' вісімдесят ' else begin 
a1[z+1]:=' Вісімдесят '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' вісім ' else begin 
a1[z+2]:=' Вісім '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        9:begin
 
            case i of
 
              1:if not pr then a1[z]:=' дев’ятсот ' else begin 
a1[z]:=' Дев’ятсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' дев’яносто ' else begin 
a1[z+1]:=' Дев’яносто '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' дев’ять ' else 
begin a1[z+2]:=' Дев’ять '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
      end; {Case}
 
    end;  {for 1 - 3 }
 
    case Nk of
 
      1:begin
 
         { if n1[2]<>1 then
 
            begin
 
              case n1[3] of
 
                   0:a1[z+3]:=' гривень ';
 
                   1:a1[z+3]:=' гривня ';
 
                2..4:a1[z+3]:=' гривні ';
 
                5..9:a1[z+3]:=' гривень ';
 
              end;
 
            end else
 
             a1[z+3]:=' гривень ';}
 
        end;
 

106
 
 
537
 
538
 
539
 
540
 
541
 
542
 
543
 
544
 
545
 
546
 
547
 
548
 
549
 
550
 
551
 
552
 
553
 
554
 
555
 
556
 
557
 
558
 
559
 
560
 
561
 
562
 
563
 
564
 
565
 
566
 
567
 
568
 
569
 
570
 
571
 
572
 
573
 
574
 
575
 
576
 
577
 
578
 
579
 
580
 
581
 
582
 
583
 
584
 
585
 
      2:begin
 
          if n1[2]<>1 then
 
            begin
 
              case n1[3] of
 
                   0:a1[z+3]:=' тисяч ';
 
                   1:a1[z+3]:=' тисяча ';
 
                2..4:a1[z+3]:=' тисячі ';
 
                5..9:a1[z+3]:=' тисяч ';
 
              end;
 
            end else
 
              a1[z+3]:=' тисяч ';
 
          Nk:=1;
 
        end;
 
      3:begin
 
          if n1[2]<>1 then
 
            begin
 
              case n1[3] of
 
                   0:a1[z+3]:=' мільйонів ';
 
                   1:a1[z+3]:=' мільйон ';
 
                2..4:a1[z+3]:=' мільйона ';
 
                5..9:a1[z+3]:=' мільйонів ';
 
              end;
 
            end else
 
              a1[z+3]:=' мільйонів ';
 
          Nk:=2;
 
        end;
 
    end;
 
  end; {for 1 - Nk}
 
 { sum:=trunc((0.005+summa-trunc(summa+0.005))*100);
 
  n1[2]:=trunc(sum/10);
 
  n1[3]:=trunc(sum-n1[2]*10);
 
  str(n1[2]:1,k1);
 
  str(n1[3]:1,k);
 
  a1[z+4]:=k1+k;}
 
  {if n1[2]<>1 then
 
      begin
 
       case n1[3] of
 
         0:a1[z+5]:=' копійок ';
 
         1:a1[z+5]:=' копійка ';
 
      2..4:a1[z+5]:=' копійки ';
 
      5..9:a1[z+5]:=' копійок ';
 
       end;
 
     end else
 
       a1[z+5]:=' копійок ';}
 
   Money1:=a1[1]+a1[2]+a1[3]+a1[4]+a1[5]+a1[6]+a1[7]+a1[8]+a1[9]+
 
            a1[10]+a1[11]+a1[12]+a1[13]+a1[14]+a1[15];
 
end;
 
 {Функція перетворення дати в строку}
 
Function DenMesGod(Data:TDateTime):String;
 

107
 
 
586
 
587
 
588
 
589
 
590
 
591
 
592
 
593
 
594
 
595
 
596
 
597
 
598
 
599
 
600
 
601
 
602
 
603
 
604
 
605
 
606
 
607
 
608
 
609
 
610
 
611
 
612
 
613
 
614
 
615
 
616
 
617
 
618
 
619
 
620
 
621
 
622
 
623
 
624
 
625
 
626
 
627
 
628
 
629
 
630
 
631
 
632
 
633
 
634
 
var
 
    mes:Integer;
 
    naimmes:string;
 
begin
 
   mes:= StrToInt(FormatDateTime('m',Data));
 
  case mes of
 
    1:naimmes:='січня';
 
    2:naimmes:='лютого';
 
    3:naimmes:='березня';
 
    4:naimmes:='квітня';
 
    5:naimmes:='травня';
 
    6:naimmes:='червня';
 
    7:naimmes:='липня';
 
    8:naimmes:='серпня';
 
    9:naimmes:='вересня';
 
   10:naimmes:='жовтня';
 
   11:naimmes:='листопада';
 
   12:naimmes:='грудня';
 
  end;
 
  DenMesGod:=FormatDateTime('d',DATA)+' '+naimmes+' '+
 
       FormatDateTime('yyyy',DATA) ;
 
end;
 
    { Функции шифрования и дешифрования даты для ввода по шаблону}
 
function CheckDateFormat(SDate:string):string;
 
   var
 
     IDateChar:string;
 
     x,y:integer;
 
begin
 
     IDateChar:='-,\/';
 
    for y:=1 to length(IDateChar) do
 
    begin
 
      x:=pos(IDateChar[y],SDate);
 
      while x>0 do
 
      begin
 
        Delete(SDate,x,1);
 
        Insert('.',SDate,x);
 
        x:=pos(IDateChar[y],SDate);
 
      end;
 
    end;
 
    CheckDateFormat:=SDate;
 
end;
 
 
 
 
 
function DateEncode(SDate:string):longint;
 
   var
 
     year,month,day:longint;
 
     wy,wm,wd:longint;
 
     Check:integer;
 
begin
 

108
 
 
635
 
636
 
637
 
638
 
639
 
     SDate:=CheckDateFormat(SDate);
 
     Val(Copy(SDate,1,pos('.',SDate)-1),day,check);
 
     Delete(Sdate,1,pos('.',SDate));
 
     Val(Copy(SDate,1,pos('.',SDate)-1),month,check);
 
     Delete(SDate,1,pos('.',SDate));
 
     Val(SDate,year,check);
 
     wy:=year;
 
     wm:=month;
 
     wd:=day;
 
     try
 
      EncodeDate(wy,wm,wd);
 
     except
 
       year:=0;
 
       month:=0;
 
       day:=0;
 
     end;
 
     DateEncode:=(year*10000)+(month*100)+day;
 
 end;
 
 function DateFormatSQL(SDate:string):string;
 
   var
 
     day,month,year:string;
 
begin
 
     day:=Copy(SDate,1,pos('.',SDate)-1);
 
     Delete(Sdate,1,pos('.',SDate));
 
     month:=Copy(SDate,1,pos('.',SDate)-1);
 
     Delete(SDate,1,pos('.',SDate));
 
     year:=SDate;
 
     DateFormatSQL:=year+'-'+month+'-'+day;
 
end;
 
 {Функция перетворення день тиждня}
 
Function DenWeek(Data:TDateTime):String;
 
var
 
    den:Integer;
 
    naimden:string;
 
begin
 
   den:= DayOfWeek(Data);
 
  case den of
 
    1:naimden:='ВС';
 
    2:naimden:='ПН';
 
    3:naimden:='ВТ';
 
    4:naimden:='СР';
 
    5:naimden:='ЧТ';
 
    6:naimden:='ПТ';
 
    7:naimden:='СБ';
 
  end;
 
  DenWeek:=naimden ;
 
end;
 
 
 
end. 
 

109
 
 
 
Б қосымшасы