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

95
 
 
А қосымшасы  
Бағдарлама сипаттамасы 
1
 
2
 
3
 
4
 
5
 
6
 
7
 
8
 
9
 
10
 
11
 
12
 
13
 
14
 
15
 
16
 
17
 
18
 
19
 
20
 
21
 
22
 
23
 
24
 
25
 
26
 
27
 
28
 
29
 
30
 
31
 
32
 
33
 
34
 
35
 
36
 
37
 
38
 
39
 
40
 
41
 
42
 
43
 
44
 
45
 
46
 
1unit Dispetcher;
 
interface
 
uses SysUtils, Dialogs {,DateUtils,Variants};
 
var KodPasword:integer;
 
    FParentValue: Variant;
 
    FParentKlin:Variant;
 
    FParentAnat:Variant;
 
    F_Id:Variant;
 
    F_Parent:Variant;
 
Function Money(Summa:Real):String;
 
Function Money1(Summa:Real):String;
 
Function DenMesGod(Data:TDateTime):String;
 
function CheckDateFormat(SDate:string):string;
 
function DateFormatSQL(SDate:string):string;
 
function DateEncode(SDate:string):longint;
 
Function DenWeek(Data:TDateTime):String;
 
 implementation
 
 {Функція перетворення числового значення в прописне}
 
Function Money(Summa:Real):String;
 
var n1:array[1..3] of integer;
 
    a1:array[1..15] of string;
 
    j,i,Nk,z,kol:integer;
 
    k,k1:string;
 
    sum:real;
 
    pr:Boolean;
 
 begin
 
  for j:=1 to 15 do
 
    for i:=1 to length(a1[j]) do a1[j]:='';
 
  if summa>=1000000 then
 
      Nk:=3 else
 
        if summa>=1000 then
 
           Nk:=2 else Nk:=1;
 
  kol:=Nk; sum:=summa;
 
  z:=1;
 
  pr:=true;
 
  for j:=1 to kol do
 
  begin
 
    case Nk of
 
      1:begin
 
          if kol<>1 then begin
 
                           if kol=2 then z:=5 else z:=9;
 
                           sum:=summa-trunc(summa/1000)*1000;
 
                         end;
 
          n1[1]:=trunc(sum/100);
 
          n1[2]:=trunc((sum-n1[1]*100)/10);
 
          n1[3]:=trunc(sum-n1[1]*100-n1[2]*10);
 

96
 
 
47
 
48
 
49
 
50
 
51
 
52
 
53
 
54
 
55
 
56
 
57
 
58
 
59
 
60
 
61
 
62
 
63
 
64
 
65
 
66
 
67
 
68
 
69
 
70
 
71
 
72
 
73
 
74
 
75
 
76
 
77
 
78
 
79
 
80
 
81
 
82
 
83
 
84
 
85
 
86
 
87
 
88
 
89
 
90
 
91
 
92
 
93
 
94
 
95
 
        end;
 
      2:begin
 
          if kol=3 then begin
 
            sum:=summa-trunc(summa/1000000)*1000000;
 
            z:=5;
 
          end;
 
          n1[1]:=trunc(sum/100000);
 
          n1[2]:=trunc((sum-n1[1]*100000)/10000);
 
          n1[3]:=trunc((sum-n1[1]*100000-n1[2]*10000)/1000);
 
        end;
 
      3:begin
 
          n1[1]:=trunc(sum/100000000);
 
          n1[2]:=trunc((sum-n1[1]*100000000)/10000000);
 
          n1[3]:=trunc((sum-n1[1]*100000000-
n1[2]*10000000)/1000000);
 
        end;
 
    end;
 
    if trunc(summa)=0 then
 
       if not pr then a1[z]:=' ноль ' else
 
           begin a1[z]:=' Ноль '; pr:=false; end;
 
    for i:=1 to 3 do
 
    begin
 
      case n1[i] of
 
        1:begin
 
            case i of
 
              1:if not pr then a1[z]:=' сто ' else begin a1[z]:=' 
Сто '; pr:=False_;_end_;___3:if_not_pr_then'>False; end;
 
              2:begin
 
                  case n1[3] of
 
                    0:if not pr then a1[z+1]:=' десять ' else 
begin a1[z+1]:=' Десять '; pr:=False; end;
 
                    1:if not pr then a1[z+1]:=' одинадцять ' else 
begin a1[z+1]:=' Одинадцять '; pr:=False; end;
 
                    2:if not pr then a1[z+1]:=' дванадцять ' else 
begin a1[z+1]:=' Дванадцять '; pr:=False; end;
 
                    3:if not pr then a1[z+1]:=' тринадцять ' else 
begin a1[z+1]:=' Тринадцять '; pr:=False; end;
 
                    4:if not pr then a1[z+1]:=' чотирнадцять ' 
else begin a1[z+1]:=' Чотирнадцять '; pr:=False; end;
 
                    5:if not pr then a1[z+1]:=' п’ятнадцять ' else 
begin a1[z+1]:=' П’ятнадцять '; pr:=False; end;
 
                    6:if not pr then a1[z+1]:=' шістнадцять ' else 
begin a1[z+1]:=' Шістнадцять '; pr:=False; end;
 
                    7:if not pr then a1[z+1]:=' сімнадцять ' else 
begin a1[z+1]:=' Сімнадцять ';  pr:=False; end;
 
                    8:if not pr then a1[z+1]:=' вісімнадцять ' 
else begin a1[z+1]:=' Вісімнадцять '; pr:=False; end;
 
                    9:if not pr then a1[z+1]:=' дев’ятнадцять ' 
else begin a1[z+1]:=' Дев’ятнадцять '; pr:=False; end;