Pascal/Turbo Pascal - programa de un hotel en pascal ayuda

   
Vista:

programa de un hotel en pascal ayuda

Publicado por ctilope (1 intervención) el 12/08/2013 21:36:32
Buenas disculpen es para ver si me pueden ayudar con este programa lo vengo haciendo pero me a costado mucho
Funcionalidad del programa
Las características solicitadas son las siguientes: . Para acceder al sistema se requieren los datos persolales (lD y Contraseña), que
se tomarán de un archivo de datos. . Se capturará la información principal del cliente que realiza la reservación. . Se capturará la información pertinente a la reservación que está realizando el
cliente, así como si toma o no un paquete de alimentación. . En caso de no tomar un paquete de alimentación completo, se debe de realizar
los cargos necesarios a la habitación asociada a la reserva del cliente, para luego
al momento de retilarse proceder a confeccionar la car:cel¡ción de los rubros
necesarios. . Deberán de crearse los siguienies mantenimientos: Usuarios (operario /
adrninistrador), Habitaciones, Paquetes Alimentación, Bebidas, Comídas. . Una
. Cuando el cliente pasa a retirar su vehículo se deberá dc crear la facturación de
los servicios brindados y el cliente procede a cancelar. . Al momento de realizar la reservación se asigna la habitación y se deja abierta la
cuenta para realizar cargos posteriores.
. Se podrán realizar descuentos, los cuales se calculan sobre el subtotal de la
reservación-
. Solo un usuario administrador es capaz de cerrar una reservación.
' El sistema deberá de tener la capacidad pua realizar cierres diarios en donde se
mostrarán los subtotales habitación y rur total general del día. El reporte deberá
de tener hora y fecha. . Deberá de existir consultas en donde se indique si una habitación está ocupada,
quien la tiene reservada, cuanto tiempo y cuando queda libre.
Las características técnicas
. El programa será capaz de ocultar el password capturado.
' Las órdenes se manejan por un consecutivo dado por el sistema y NUNCA
digitado por alguna persona.
.gracia por su ayuda...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

programa de un hotel en pascal ayuda

Publicado por ramon (2072 intervenciones) el 03/09/2013 14:03:24
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
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
{Veras no se real mente como quieres cada registro pero te paso un
 ejemplo para que me digas si es esto o pasame tu las rejistros
 como los quieres.}
 
program hotel;
 uses
    crt;
  type
     acceso = record
            ident : word;
            paswor : longint;
          end;
 
     vehicu = record
            matricula : string[25];
            posicion  : char;
            numdni    : longint;
            fechaent  : string[12];
            fechasal  : string[12];
          end;
 
     reserva = record
             habitac : integer; {habitacion ocupasda}
             serbici : integer; {serbicio de comidas contratados}
             extras  : integer; {serbicios extras}
             fechaing : string[12]; {fecha ingreso}
             fechafin : string[12]; {fecha final}
             vehiculo : vehicu;
           end;
 
      cliente = record
            nombapell : string; {Nombre y apellidos}
            numdni    : longint; {numero del DNI o ID}
            numabita  : integer; {numero abitacion}
            reser     : reserva;
          end;
 
   var
     f : file of cliente;
     datos : cliente;
     contras : acceso;
     fc : file of acceso;
     accesovalido : boolean;
 
 
    procedure creacionpaswor;
    var
       error, s, t : integer;
       tec : char;
       gh, pasw : string[20];
       wo : word;
    begin
       fillchar(contras,sizeof(acceso),0);
       clrscr;
       writeln('*** Introdudca El Paswor Para Acceso A Los Datos ***');
       writeln;
       gotoxy(10,2);write('Numero ID : ');
       gotoxy(22,2);readln(contras.ident);
       gotoxy(10,3);write('Entre Paswor : ');
       t := 1;
       gotoxy(24 + t,3);
       fillchar(pasw,21,' ');
       pasw[0] := chr(20);
    repeat
        tec := readkey;
        if tec in[#48..#57] then
        begin
           pasw[t] := tec;
           pasw[0] := chr(t);
           gotoxy(24 + t,3);write('*');
           t := t + 1;
        end;
        if tec = #8 then
        begin
            t := t - 1;
            if t < 1 then
            t := 1;
            pasw[t] := ' ';
            pasw[0] := chr(t);
            gotoxy(24 + t,3);write(' ');
        end;
    until (t > 19) or (tec = #13);
       s := 1;
       for t := length(pasw) downto 1 do
       if pasw[t] <> #32 then
       begin
       gh[s] := pasw[t];
       gh[0] := chr(s);
       s := s + 1;
       end;
       val(gh,wo,error);
       contras.paswor := (wo div 30);
       assign(fc,'c:\tp\bin\Paswor.ggg');
    {$I-} reset(fc); {$I+}
    if ioresult <> 0 then
    begin
         rewrite(fc);
         seek(fc,0);
         write(fc,contras);
         close(fc);
    end;
  end;
 
   procedure verificapaswor;
   var
      id : word;
      pw : longint;
      err, pp, tt : integer;
      mo, da : string[20];
      tcd : char;
   begin
       clrscr;
       gotoxy(10,2);write('**** Entre ID Y Paswor Para acceso ****');
       gotoxy(10,3);write('    Entre ID : ');
       gotoxy(25,3);readln(id);
       gotoxy(10,4);write('    Entre Paswor : ');
       tt := 1;
       gotoxy(28 + tt,4);
    repeat
        tcd := readkey;
        if tcd in[#48..#57] then
        begin
            da[tt] := tcd;
            da[0] := chr(tt);
            gotoxy(28 + tt,4);write('*');
            tt := tt + 1;
            if tt > 20 then
            tt := 20;
        end;
        if tcd = #8 then
        begin
           tt := tt - 1;
           if tt < 1 then
           tt := 1;
           da[tt] := ' ';
           da[0] := chr(tt);
           gotoxy(28 + tt,4);write(da[tt]);
        end;
    until tcd = #13;
      pp := 1;
      tt := 0;
      for tt := length(da) downto 1 do
      if da[tt] <> #32 then
      begin
         mo[pp] := da[tt];
         mo[0] := chr(pp);
         pp := pp + 1;
      end;
       val(mo,pw,err);
       pw := pw div 30;
    assign(fc,'c:\tp\bin\Paswor.ggg');
    {$I-} reset(fc); {$I+}
    if ioresult = 0 then
    begin
        seek(fc,0);
        read(fc,contras);
        close(fc);
    end;
       if (contras.ident = id) and (contras.paswor = pw) then
       begin
          accesovalido := true;
       end
    else
      accesovalido := false;
   end;
 
 
  begin
      accesovalido := false;
      assign(fc,'c:\tp\bin\Paswor.ggg');
    {$I-} reset(fc); {$I+}
    if ioresult <> 0 then
    begin
      creacionpaswor;
     end
  else
      close(fc);
      verificapaswor;
      clrscr;
      if accesovalido = true then
      writeln('   Administrador  Correcto ')
    else
      writeln('   Administrador  In Correcto ');
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

programa de un hotel en pascal ayuda

Publicado por Caro (1 intervención) el 13/09/2013 17:53:33
El programa pide contraseña.. como es?? urgente por fa...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

programa de un hotel en pascal ayuda

Publicado por ramon (2072 intervenciones) el 14/09/2013 16:08:16
Fíjate el programa te pedirá que entres el paswor para acceso a los datos ese sera tu paswor
de acceso cuando el te lo pida.

1
2
3
4
5
6
7
8
9
10
accesovalido := false;
      assign(fc,'c:\tp\bin\Paswor.ggg');
    {$I-} reset(fc); {$I+}
    if ioresult <> 0 then
    begin
      creacionpaswor;
     end
 
{Eso lo realiza aqui si no encuentra el archivo que contiene la contraseña o paswor te pide entres
uno luego ese sera tu entrada.}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar