WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → АРМ адміністратора залізничного вокзалу - Курсова робота

АРМ адміністратора залізничного вокзалу - Курсова робота


Курсова робота
АРМ адміністратора залізничного вокзалу
1. Вступ
Сьогодні важко уявити будь - яку галузь без комп'ютера. Дуже часто для опису різних процесів раціонально використовувати різноманітні його функції. Так як на сьогоднішній день комп'ютер займає визначне місце в діяльності людини. Для розробки програмного забезпечення на даний час використовується мова програмування Delphi. Delphi являє собою високоефективний інструмент розробки додатків, але одночасно - складна мова програмування.
Delphi являється середовищем розробки, використованих перш за все для підтримки і розробки додатків, призначених як для окремих робочих станцій, так і для серверів. Delphi може функціонувати під управлінням операційної системи Windows 95, Windows 98, Windows XP або Windows NT.
Для закріплення здобутих теоретичних знань, з метою набуття навиків по створенню програмного забезпечення, виконується курсова робота з дисципліни "Програмування та алгоритмічні мови".
2. Розрахункова пояснювальна частина роботи
1. Спочатку створюємо у середовищі Delphi 7 нову форму за допомогою команди File - New - Application. Чи просто відкриваємо ярлик Delphi 7 на робочому столі і програма автоматично створює нову форму.
Для написання цього додатка нам потрібно спочатку створити базу даних. Для цього у середовищі Delphi 7 за допомогою команди Tools - Database Desktop ми створюємо базу даних (мал. 1).
Мал. 1
Оскільки на залізниці існують пасажирські і приміські потяги, то нам треба створити дві бази даних (мал. 2).
Мал. 2
Після того як ми створили дві бази даних, ми закриваємо Database Desktop і переходимо у середовище Delphi 7.
2. Вже на заздалегідь створеній новій формі розміщуємо такі компоненти: PageControl1, DBGrid1, DBGrid2, ImageList, DataSource1, DataSource2, Table1, Table2, MeinMenu1, SpeedButton1…10, CheckBox1, Label1, Label2, Label3 RadioGrooup1, Bevel1, Bevel2, Edit1, Edit2.
Мал. 3.
3. Після того як ми зручно (по стандартам Microsoft) розмістили на формі компоненти ми переходимо до програмування компонентів.
Спочатку ми підписуємо компоненти такі як: SpeedButton1…10 і компоненти Label1...3. Це ми робимо за допомогою властивості Caption.
Потім ми створюємо головне меню (MainMenu). Оскільки в нас на формі розміщені всі кнопки, головне меню буде складатися лише з двох пунктів і двох підпунктів з допоміжними малюночками з боку (піктограмами). Головне меню ми створюємо клацнувши двічі на компонент MainMenu1 і задавши там назви меню і підменю за допомогою властивості Caption (мал. 4), а малюнки ми додаємо за допомогою компонента ImageList1(мал.5).
Мал. 4. Мал. 5
Переходимо до компонентів DbGrid1 і DbGrid2. Щоб зробити діючими ці компоненти нам потрібно ще декілька допоміжних компонентів, таких як: DataSource1, DataSource2, Table1,Table2.
У властивості DatabaseName компонента Table1 ми вписуємо шлях до вже створеної бази даних. (наприклад c:Мои документыkyrsovadata), а у властивості TableName вибираємо нашу базу даних (Train.db). Після цього ми активуємо нашу базу даних за допомогою властивості Active переставляючи з False на True. Ну а потім у компоненті DataSource1 у властивості DataSet ставимо наш компонент Table1 (мал. 6).
Мал. 6
Аналогічно робимо з компонентами DataSource2, Table2.
Тепер переходимо до програмування кнопок. У програмному середовищі Delphi існує вже заздалегідь створений набір кнопок (навігаторів) для полегшення роботи з базами даних (компонент DBNavigator). Але я виріши замінити цей набір кнопок на свій.
Я програмував їх за допомогою таких процедур:
procedure TForm1.FirstClick(Sender: TObject); {Кнопка Початок}
begin
if PageControl1.ActivePage=TabSheet1 then
begin
Table1.First;
first.Enabled:=false;
Prior.Enabled:=false;
Last.Enabled:=true;
Next.Enabled:=true;
end;
if PageControl1.ActivePage=TabSheet2 then
begin
Table2.First;
first.Enabled:=false;
Prior.Enabled:=false;
Last.Enabled:=true;
Next.Enabled:=true;
end;
end;
procedure TForm1.LastClick(Sender: TObject); {Кнопка Кінець}
begin
if PageControl1.ActivePage=TabSheet1 then
begin
Table1.Last;
Last.Enabled:=false;
Next.Enabled:=false;
First.Enabled:=true;
Prior.Enabled:=true;
end;
if PageControl1.ActivePage=TabSheet2 then
begin
Table2.Last;
Last.Enabled:=false;
Next.Enabled:=false;
First.Enabled:=true;
Prior.Enabled:=true;
end;
end;
procedure TForm1.ExitClick(Sender: TObject); {Кнопка Вихід}
begin
close;
end;
procedure TForm1.InsertClick(Sender: TObject); {Кнопка Додати зап.}
begin
if PageControl1.ActivePage=TabSheet1 then
begin
DBGrid1.ReadOnly:=False;
form2.Edit1.Text:='';
form2.Edit2.Text:='';
form2.Edit3.Text:='';
form2.Edit3.Visible:=true;
form2.Label3.Visible:=true;
form2.Edit4.Text:='';
form2.Edit5.Text:='';
form2.Edit5.Visible:=true;
form2.Label5.Visible:=true;
form2.ShowModal;
end;
if PageControl1.ActivePage=TabSheet2 then
begin
DBGrid2.ReadOnly:=False;
form2.Edit1.Text:='';
form2.Edit2.Text:='';
form2.Edit3.Visible:=false;
form2.Label3.Visible:=false;
form2.Edit4.Text:='';
form2.Edit5.Visible:=false;
form2.Label5.Visible:=false;
form2.ShowModal;
end;
end;
Кнопка додати зап. містить в собі зручне меню з підписами для полегшеного вводу запису (мал. 7).
Мал. 7.
procedure TForm1.DeleteClick(Sender: TObject); {Кнопка Стерти зап.}
begin
if PageControl1.ActivePage=TabSheet1
Loading...

 
 

Цікаве