Создание базы данных

@Виктория25 · Регистрация: 08.08.2011

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста, с чего надо начинать писать программу (базу данных) на Турбо Паскале???

@Виктория25 · 09.08.2011, 16:55 **[ТС]**

Подскажите, как можно ввести разметку на экран??? А именно горизонтальные и вертикальные линии....???

@Puporev · 09.08.2011, 17:17

Можно просто символами '-' и '|', а можно сделать таблицу символами псевдографики. Вам что конкретно нужно?

Добавлено через 2 минуты
Первый вариант например есть здесь.
https://www.cyberforum.ru/pascal/thread172202.html

@Андрей Борисови · 09.08.2011, 19:23

Вот более-менее готовая оболочка для вашей программы.
Вам осталось только дописать к ней условия обработки БД

Delphi
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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
Program PROGRAM1;
Uses Crt;
 
Type TEST=record
       NAIM:String[20];   {PODUKT}
       VHOD:String[10];   {DATA POSTUPL}
       SROK:String[10];   {GODNOST}
     End;
 
Var 
  zap: TEST;
  fname: file of TEST;
  rez: Integer;
 
{Otkrytie BD}
Procedure OpenBD;
Begin
  Assign (fname, 'c:\TEST.BD');
  {$I-}
  Reset(fname);
  {$I+}
  If IOResult<>0 Then Rewrite(fname);
End;
 
{Vivod Menu}
Procedure ShowMenu;
Begin
  ClrScr;
  TextColor (14);
  Writeln('MENU');
  TextColor (15);
  WriteLn('  1 - Dobavit zapis');
  WriteLn('  2 - Izmenit zapis');
  WriteLn('  3 - Udalit zapis');
  WriteLn('  4 - Prosmotr  BD (',FileSize(fname),')');
  WriteLn('  5 - Pechat  BD (',FileSize(fname),')');
  WriteLn('  6 - Sohranit v txt');
  WriteLn('  0 - Vihod');
  WriteLn('------------------------');
  Write('Vash vibor? ');
End;
 
{Dobavit zapis}
Procedure AddZapis;
Begin
  ShowMenu;
  Reset (fname);
  Seek(fname, FileSize(fname));
  GotoXY(1,12);
  TextColor(14);
  WriteLn('Dobavit zapis');
  TextColor(15);
  Write('PODUKT :');
  Readln (zap.NAIM);
  Write('DATA POSTUPL :');
  Readln (zap.VHOD);
  Write('GODNOST :');
  Readln (zap.SROK);
  Write (fname, zap);
End;
 
{Izmenit zapis}
Procedure EditZap;
Var
  nz:Integer;
Begin
  ShowMenu;
  Reset (fname);
  GotoXY(1,12);
  TextColor(14);
  Write('Izmenit zapis N ');
  TextColor(15);
  ReadLn(nz);
  Seek(fname, nz-1);
  Read(fname, zap);
  Writeln;
  Writeln('PODUKT :',zap.NAIM);
  Writeln('DATA POSTUPL :',zap.VHOD);
  Writeln('GODNOST :',zap.SROK);
  Writeln;
  Seek(fname, nz-1);
  Write('PODUKT :');
  Readln (zap.NAIM);
  Write('DATA POSTUPL :');
  Readln (zap.VHOD);
  Write('GODNOST :');
  Readln (zap.SROK);
  Write (fname, zap);
End;
 
{Udalit zapis}
Procedure DelZap;
Var
  nz:Integer;
  st:String;
Begin
  ShowMenu;
  Reset (fname);
  GotoXY(1,12);
  TextColor(14);
  Write('Udalit zapis N ');
  TextColor(15);
  ReadLn(nz);
  Seek(fname, nz-1);
  Read(fname, zap);
  Writeln;
  Writeln('PODUKT :',zap.NAIM);
  Writeln('DATA POSTUPL :',zap.VHOD);
  Writeln('GODNOST :',zap.SROK);
  Writeln;
  TextColor(14);
  Write('Udalit navsegda? (y/n) ');
  ReadLn(st);
  TextColor(15);
  If st<>'n' then
    Begin
      Seek(fname, FileSize(fname)-1);
      Read(fname, zap);
      Seek(fname, nz-1);
      Write (fname, zap);
      Seek(fname, FileSize(fname)-1);
      Truncate(fname);
    End;
End;
 
{Prosmotr BD}
Procedure VivodBD;
Var
  i,y,kolzap:Integer;
  st:String;
Begin
  ClrScr;
  kolzap:=4;
  y:=1;
  Reset (fname);
  For i:=0 to FileSize(fname)-1 do
    Begin
      TextColor(14);
      Writeln('---------------< ',i+1,' >---------------');
      TextColor(15);
      Read(fname, zap);
      Writeln('PODUKT :',zap.NAIM);
      Writeln('DATA POSTUPL :',zap.VHOD);
      Writeln('GODNOST :',zap.SROK);
      WriteLn;
      y:=y+1;
      If y>24 div kolzap then
        Begin
          TextColor(14);
          Write('Dalee? (y/n) ');
          Readln(st);
          TextColor(15);
          If st<>'n'then
            Begin
              y:=1;
              ClrScr;
            End
          else break;
        End;
    End;
  TextColor(14);
  Write('Najmite << Enter >> dla vozvrata v menu');
  TextColor(15);
End;
 
{Pechat BD}
Procedure PrintBD;
Var
  i:Integer;
  f:text;
Begin
  TextColor(14);
  Writeln('Pechat BD');
  TextColor(15);
  Assign(f,'PRN');
  Reset (fname);
  For i:=0 to FileSize(fname)-1 do
    Begin
      Read(fname, zap);
      Write(f,'PODUKT :',zap.NAIM,chr(13));
      Write(f,'DATA POSTUPL :',zap.VHOD,chr(13));
      Write(f,'GODNOST :',zap.SROK,chr(13));
      Write(f,,chr(13);
    End;
  Close(f);
  TextColor(14);
  Writeln('Pechat BD zakonchena.');
  Writeln('Najmite << Enter >> dla vozvrata v menu.');
  TextColor(15);
  ReadLn;
End;
 
{Sohranit v txt}
Procedure BDinTXT;
Var
  i:Integer;
  f:text;
  st:string;
Begin
  TextColor(14);
  Writeln('Sohranit BD v TXT-fayl');
  Writeln;
  Writeln('Vvedite put\imia fayla.rashirenie (c:\myfile.txt)');
  Readln(st);
  If st='' then st:='c:\myfile.txt';
  TextColor(15);
  Assign(f,st);
  Rewrite(f);
  Reset (fname);
  For i:=0 to FileSize(fname)-1 do
    Begin
      Read(fname, zap);
      Write(f,'PODUKT :',zap.NAIM,chr(13));
      Write(f,'DATA POSTUPL :',zap.VHOD,chr(13));
      Write(f,'GODNOST :',zap.SROK,chr(13));
      Write(f,chr(13));
    End;
  Close(f);
  TextColor(14);
  Writeln('Sohranenie v fayl ',st,' zakoncheno.');
  Writeln('Najmite << Enter >> dla vozvrata v menu.');
  TextColor(15);
  ReadLn;
End;
 
{Osnovnaya programma}
Begin
  ClrScr;
  OpenBD;  {Otkrytie BD}
  Repeat
    ShowMenu;  {Vivod Menu}
    ReadLN(rez);
    Case rez of
      1:AddZapis;  {Dobavit zapis}
      2:EditZap;  {Izmenit zapis}
      3:DelZap;  {Udalit zapis}
      4:VivodBD;  {Prosmotr BD}
      5:PrintBD;  {Pechat BD}
      6:BDinTXT;  {Sohranit v txt}
 
      0:exit;
    End;
  Until rez=0;
  Close(fname)
End.

Новые блоги и статьи Все статьи Все блоги /
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .
Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .

@Виктория25 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 10

	Создание базы данных 08.08.2011, 21:52. Показов 7641. Ответов 22 Метки нет (Все метки) Подскажите пожалуйста, с чего надо начинать писать программу (базу данных) на Турбо Паскале??? 0

@Виктория25 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 10
	09.08.2011, 16:55 [ТС]
	Подскажите, как можно ввести разметку на экран??? А именно горизонтальные и вертикальные линии....??? 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.08.2011, 17:17
	Можно просто символами '-' и '\|', а можно сделать таблицу символами псевдографики. Вам что конкретно нужно? Добавлено через 2 минуты Первый вариант например есть здесь. https://www.cyberforum.ru/pascal/thread172202.html 0