Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.94/16: Рейтинг темы: голосов - 16, средняя оценка - 4.94
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7

помогите начинающему програмисту...или как я курсовую писал

05.02.2008, 00:56. Показов 3165. Ответов 16
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
доброго вам времени суток.
я что хотел то...
я тут знаете програмку пишу...
база данных по кинотеатру...
сначала я хотел ее написать на делфи+ib, но потом так подумал,и решил что слишком много головняка с этим мультиплатформером,слишком много параметров надо сравниват,много запоминать,опять весь монитор в стикерах и все такое...+еще в ib там со всеми генераторами,тригерами,и таблицами много проблем...
так вот...я ушел от темы...
я все плюнул и решил сделать все чисто в делфи,с опен диалогом,со структурами,и всем таким...тем более легче делать новые файлы,редактировать и все такое...и главное одна платформа...
и вот в чем мне нужна ваша помощ...
в анкете кинотеатра которую должен обрабатывать этот "шедевр" такие строки:
фио,адрес,дата рождения,контактный телефон,мыло,согласны ли на рассылку новостей,семйное положение,вид деятельности,есть ли дети(сколько и какого возраста),как часто ходит в кино,часло ли в их кинотеатр,с кем ходит,какие жанры предпочитает,откуда узнали о том что идет в кинотеатре, и откуда узнали про дисконт...
это анкета для владельцев дисконт карт...
и почти то-же самое для простых посетителей, только там на какой фильм билет купили,какой смотрели,что понравилось и так далее...
так вот...природа меня фантазией...да и мозгом в целом обделила, поэтому прошу вашей помощи о гуру дельфийско
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
05.02.2008, 00:56
Ответы с готовыми решениями:

Помогите начинающему
Проблема состоит в том, что у меня из Едита данные сохраняются в тхт Вот так: FName='C:\Delphi\Baza\mem.txt'; begin ...

Помогите начинающему
Есть процедура заполнения Таблицы из файла procedure TForm1.Button1Click(Sender: TObject); Var F: TextFile; i,j: Integer; S:...

Помогите начинающему 1С програмисту! )
Здравствуйте господа! Мне была поставлена задача по доработке конфигурации 1С РОЗНИЦА (Магазин) Поступила конфигурация с Российскими...

16
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
05.02.2008, 09:19
так чем же тебе помагать, интербейз - это не сахар, лучше не юзать, возьми примитивное бде, создай бд foxpro или paradox, ну и уже потом лепи прогу, которая будет добавлять, удалять да и все, что тебе пожелается, делать... сложного тут нет ничего... или тебе саму прогу писать надо?
0
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7
05.02.2008, 11:34  [ТС]
мне все надо самому писать...ну кроме ib...гг...если на нем делать...
0
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7
05.02.2008, 11:49  [ТС]
что-то прям с первого поста пошло непонимание вопроса...я же написал что решил отойти от внешних бд...слишком много с ними гемороя.я хочу попробовать сделать все силами делфи...хотя это и бредовая идея на всю голову...
0
0 / 0 / 0
Регистрация: 08.09.2016
Сообщений: 1
05.02.2008, 11:56
IB хорош:
1) если предполагается работа нескольких пользователей одновременно
2) когда размер базы большой и глупо выбирать ее всю (так работает парадокс)
3) с видом на будущее он хорош. Если сейчас можно использовать IB или Парадокс, то я бы отдал предпочтение IB. Дабы его выучить и в будущем уже делать на нем. Так как БД с SQL правило хорошего тона. А выучив SQL язык ты его можешь применять ко всем базам SQL, так как он един (ну почти един).

IB плох:
1) нужно ставить по крайней мере сервер IB.
Вообще-то нужен еще и клиент, но его можно заменить dll файлами, которые надо просто кинуть в директорию с прогой.
2) IB платная штука, потому либо использовать публичную версию IB (это например 6.5)
или использовать аналог, а это FREEBSD
0
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
05.02.2008, 12:06
силами дельфи писать? а зачем? тебе надо будет свою структуру данных и алгоритмы работы с ней разрабатывать... да и вообще зачем придумывать колесо...
0
Администратор
 Аватар для mik-a-el
87827 / 53148 / 249
Регистрация: 10.04.2006
Сообщений: 13,761
05.02.2008, 12:14
Цитата Сообщение от MINDKILLER
я же написал что решил отойти от внешних бд...слишком много с ними гемороя.я хочу попробовать сделать все силами делфи...
Этот геморрой покажется вам сказкой по сравнению с геморроем при реализации собственной СУБД.
0
0 / 0 / 0
Регистрация: 08.09.2016
Сообщений: 1
05.02.2008, 12:23
Цитата Сообщение от mik-a-el Посмотреть сообщение
Этот геморрой покажется вам сказкой по сравнению с геморроем при реализации собственной СУБД.
согласен
0
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
05.02.2008, 13:24
Цитата Сообщение от mik-a-el Посмотреть сообщение
Этот геморрой покажется вам сказкой по сравнению с геморроем при реализации собственной СУБД.

может, далеко пойдет человек, а вы его все под корень режет... пусть пишет... обстоятельно к делу подходит, только надо еще и компилер свой сваять, раз уж такая пьянка начинается...
0
Администратор
 Аватар для mik-a-el
87827 / 53148 / 249
Регистрация: 10.04.2006
Сообщений: 13,761
05.02.2008, 13:34
Судя по всему, человек не понимает даже как работать с базами. Так о какой реализации СУБД ты говоришь?
Не палите из пушек по воробьям. Изучите лучше работу с базами и не парьте себе мозги.
0
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
05.02.2008, 14:44
а по мне, пусть пишет, раз энтузиазм такой появился, только думается мне - это далеко не последняя его тема... если возьмется за это дело
0
 Аватар для Vovan-VE
13210 / 6599 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
05.02.2008, 17:57
Дак ведь чел не собирался писать СУБД. Просто маленькую самопальную штуковину для конкретного случая, гораздо более простую и понятную, чем любая из БД. Да и фиг с ней, что медленнее получится, зато никаких упомянутых серверов и т.п.
Вопрос, как я понял, в том и заключался: как грамотнее изобрести оптимальный велосипед?
0
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7
06.02.2008, 02:20  [ТС]
пониаете...мне в принципе и не нужна субд...мне нужно просто то в чем можно сохранять данные для обработки...
что-то типа этой портянки:
C++
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
246
247
248
249
250
251
252
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 #include "fstream.h"
 #include "about.h"
 #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct pogoda
{
char gorod[30];
int den,temp,vet;
};
int poisk;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
if(!FileExists("pogoda.dat"))
{
Memo1->Text="Файла содежащего данные о погоде не существует";
Button1->Enabled=false;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
pogoda Notes1;
if((Edit1->Text!="")&&(Edit2->Text!="")&&(Edit3->Text!="")&&(Edit4->Text!="")&&((Edit2->Text>0)&&(Edit2->Text<=31)))
{
strcpy(Notes1.gorod,Edit1->Text.c_str());
Notes1.den=Edit2->Text.ToInt();
Notes1.temp=Edit3->Text.ToInt();
Notes1.vet=Edit4->Text.ToInt();
if(!FileExists("pogoda.dat"))
{
ofstream ofile("pogoda.dat",ios::binary);
ofile.write((char*)&Notes1, sizeof(pogoda));
ofile.close();
}
else
{
ofstream ofile("pogoda.dat",ios::app | ios::binary);
ofile.write((char*)&Notes1, sizeof(pogoda));
ofile.close();
}
}
else
{
Memo1->Text="не введены данные или не верное число";
Button1->Enabled=false;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit4Change(TObject *Sender)
{
  Button1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Clear();
pogoda Notes1;
fstream file("pogoda.dat", ios::binary | ios::in | ios::out);
char str[80];
file.seekg(0);
while (!file.read((char*)&Notes1, sizeof(pogoda)).eof())
{
sprintf(str,"%s\tЧИСЛО: %d\tТЕМПЕРАТУРА °С: %d\tСКОРОСТЬ ВЕТРА: %d", Notes1.gorod, Notes1.den, Notes1.temp, Notes1.vet);
Memo1->Lines->Add(str);
}
file.close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Button1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
Button1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3Change(TObject *Sender)
{
Button1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Clear();
pogoda Notes1;
fstream file("pogoda.dat", ios::binary | ios::in | ios::out);
char str[80];
file.seekg(0);
if (poisk==2)
{
while (!file.read((char*)&Notes1, sizeof(pogoda)).eof())
{
if (Notes1.den==Edit6->Text.ToInt())
{
sprintf(str,"%s\tЧИСЛО: %d\tТЕМПЕРАТУРА °С: %d\tСКОРОСТЬ ВЕТРА: %d", Notes1.gorod, Notes1.den, Notes1.temp, Notes1.vet);
Memo1->Lines->Add(str);
}
}
}
if (poisk==1)
{
char buk, bukm[2];
strcpy(bukm,Edit5->Text.c_str());
buk=bukm[0];
while (!file.read((char*)&Notes1, sizeof(pogoda)).eof())
{
if (Notes1.gorod[0]==buk)
{
sprintf(str,"%s\tЧИСЛО: %d\tТЕМПЕРАТУРА °С: %d\tСКОРОСТЬ ВЕТРА: %d", Notes1.gorod, Notes1.den, Notes1.temp, Notes1.vet);
Memo1->Lines->Add(str);
}
}
}
if (poisk==3)
{
while (!file.read((char*)&Notes1, sizeof(pogoda)).eof())
{
if (Notes1.temp==Edit7->Text.ToInt())
{
sprintf(str,"%s\tЧИСЛО: %d\tТЕМПЕРАТУРА °С: %d\tСКОРОСТЬ ВЕТРА: %d", Notes1.gorod, Notes1.den, Notes1.temp, Notes1.vet);
Memo1->Lines->Add(str);
}
}
}
if (poisk==4)
{
while (!file.read((char*)&Notes1, sizeof(pogoda)).eof())
{
if (Notes1.vet==Edit8->Text.ToInt())
{
sprintf(str,"%s\tЧИСЛО: %d\tТЕМПЕРАТУРА °С: %d\tСКОРОСТЬ ВЕТРА: %d", Notes1.gorod, Notes1.den, Notes1.temp, Notes1.vet);
Memo1->Lines->Add(str);
}
}
}
file.close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit5Change(TObject *Sender)
{
Button3->Enabled=true;
poisk=1;
Edit6->Text="";
Edit7->Text="";
Edit8->Text="";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit6Change(TObject *Sender)
{
Button3->Enabled=true;
poisk=2;
Edit5->Text="";
Edit7->Text="";
Edit8->Text="";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit7Change(TObject *Sender)
{
Button3->Enabled=true;
poisk=3;
Edit5->Text="";
Edit6->Text="";
Edit8->Text="";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit8Change(TObject *Sender)
{
Button3->Enabled=true;
poisk=4;
Edit5->Text="";
Edit7->Text="";
Edit6->Text="";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
int v[5], pr[5];
v[1]=v[2]=v[3]=v[4]=0;
pogoda Note1;
fstream file("pogoda.dat",ios::binary | ios::in |ios::out);
char str[80];
file.seekg(0);
while (!file.read((char*)&Note1,sizeof(pogoda)).eof())
{
sprintf(str,"%s\tЧИСЛО: %d\tТЕМПЕРАТУРА °С: %d\tСКОРОСТЬ ВЕТРА: %d", Note1.gorod, Note1.den, Note1.temp, Note1.vet);
if (Note1.temp==0) v[1]++;
if ((Note1.temp>=-10)&&(Note1.temp<0)) v[2]++;
if ((Note1.temp>=-20)&&(Note1.temp<-10)) v[3]++;
if (Note1.temp>0) v[4]++;
}
Label7->Left=136;
Label8->Left=136;
Label9->Left=136;
Label10->Left=136;
file.close();
v[0]=v[1]+v[2]+v[3]+v[4];
pr[1]=(float)v[1]/v[0]*100;
Shape6->Width=(int)(pr[1]*3);
 Label7->Left=Label7->Left+pr[1]*3;
 Label7->Caption=IntToStr(pr[1])+"%";
if (Shape6->Width==0) Shape6->Width=1;
pr[2]=(float)v[2]/v[0]*100;
Shape5->Width=(int)(pr[2]*3);
 Label8->Left=Label8->Left+pr[2]*3;
 Label8->Caption=IntToStr(pr[2])+"%";
if (Shape5->Width==0) Shape5->Width=1;
pr[3]=(float)v[3]/v[0]*100;
Shape4->Width=(int)(pr[3]*3);
 Label9->Left=Label9->Left+pr[3]*3;
 Label9->Caption=IntToStr(pr[3])+"%";
if (Shape4->Width==0) Shape4->Width=1;
pr[4]=(float)v[4]/v[0]*100;
Shape3->Width=(int)(pr[4]*3);
 Label10->Left=Label10->Left+pr[4]*3;
 Label10->Caption=IntToStr(pr[4])+"%";
if (Shape3->Width==0) Shape3->Width=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
AboutBox->Visible=true;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::C1Click(TObject *Sender)
{
Application->HelpFile="s.HLP";
Application->HelpContext(1);
}
//---------------------------------------------------------------------------
только на делфи...
особых то изворотов мне не надо...
хотя в принципе что-нибудь такое...какую-нибудь изюминку надо...
0
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7
06.02.2008, 02:33  [ТС]
мне нужно всего лишь сделать велосипед заточенный под один вид местности,с маленькой рамой,3 скоростями,малым радиусом колеса...но при этом колесо широкое и с большим протектором...
0
 Аватар для Vovan-VE
13210 / 6599 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
06.02.2008, 07:51
Делаешь класс - обертку для массива, снабжаешь его нужной функциональностью и юзаешь.
0
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7
09.02.2008, 22:05  [ТС]
2Vovan-VE спасибо за пояснение...я бы не догадался...ппц...

я попросил помочь а не просто выдать дежурную фразу....:mad:
0
 Аватар для MINDKILLER
0 / 0 / 0
Регистрация: 05.02.2008
Сообщений: 7
12.02.2008, 00:30  [ТС]
я тут порылся малость...и нашел пару страничек интересных на эту тему...
http://www.interface.ru/home.asp?artId=1272
вот мне надо что-то похожее на это...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
12.02.2008, 00:30
Помогаю со студенческими работами здесь

Форма входа с использованием макросов! Или как студент писал курсовую по БД
Необходимо создать форму входа , используя при этом только макросы!

Какой тип микроконтролеров лучше использовать для работы начинающему програмисту - PIC или AVR?
Какой тип микроконтролеров лутше использовать для роботы начинающему програмисту - PIC или AVR? В смисле легше освоить.

Может кто писал курсовую по java?
Есть у кого курсовая по Java, может кто уже ранше сдавал? Буду благодарен за любие предложения

как обычно: помогите начинающему разобраться как достать только часть записи из базы
Люди хелп, плз, подскажите как быть: есть база Access есть поле tehdoc и от туда надо брать только первые 5 строчек или 1, 3, 7, 35 и т.д....

Помогите пожалуйста начинающему linux'оиду(как собрать пакет?)
Здравствуйте! Помогите пожалуйста! Хочется самому собрать gnome-commander. Я распокавал архив, почитал инструкцию. Там написано ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru