перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

Для выхода из программы можно нажать кнопку Close или меню файл -> выход или закрыть как стандартное окно Windows

2), предназначенное для вывода отчётов.



Рис 3.2 Окно программы «Отчёты»

В окне программы «Отчёты» нужно выбрать нужный отчёт, нажать кнопку вывод, и в появившимся окне нажать кнопку OK.

Для выхода из программы можно нажать кнопку Close или меню файл -> выход или закрыть как стандартное окно Windows.

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

Для вывода справки в программе нажмите F1.

В программе вместо логических «Да» и «Нет» используются “True” и “False” соответственно.

Инсталляция

Для установки программы на компьютер, необходимо скопировать всё содержимое каталога с программой.

ЗАКЛЮЧЕНИЕ

В ходе выполнения работы были закреплены знания по созданию и проектированию баз данных в среде Borland Delphi 7, а также приобретены практические навыки в создании программных приложений на данном языке программирования.

Результатом проделанной работы является база данных «Приёмная комиссия», выполняющая все необходимые задачи данного курсового проекта.

ПРИЛОЖЕНИЕ 1

Листинг программы

Файл fmAbiturU:

unit fmAbiturU;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, Menus;

type

TfmAbitur = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Splitter1: TSplitter;

Panel3: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmAbitur: TfmAbitur;

implementation

uses dmAbiturU, Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TfmAbitur.Button1Click(Sender: TObject);

begin

Otch.Visible:=true;

Otch.Enabled:=true;

end;

procedure TfmAbitur.N2Click(Sender: TObject);

begin

fmAbitur.Close;

end;

procedure TfmAbitur.N4Click(Sender: TObject);

begin

Form2.Visible:=true;

Form2.Enabled:=true;

end;

procedure TfmAbitur.N5Click(Sender: TObject);

begin

Form3.Visible:=true;

Form3.Enabled:=true;

end;

end.

Файл dmAbiturU:

unit dmAbiturU;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDM = class(TDataModule)

Database1: TDatabase;

Spec: TTable;

DataSource1: TDataSource;

Abitur: TTable;

DataSource2: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses fmAbiturU;

{$R *.dfm}

end.

Файл Unit1:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, DB,

DBTables, Buttons;

type

TOtch = class(TForm)

Query1: TQuery;

RvProject1: TRvProject;

RvQueryConnection1: TRvQueryConnection;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Query2: TQuery;

RvProject2: TRvProject;

RvQueryConnection2: TRvQueryConnection;

Button3: TButton;

Label3: TLabel;

Button4: TButton;

Query3: TQuery;

RvProject3: TRvProject;

RvQueryConnection3: TRvQueryConnection;

Label4: TLabel;

Button5: TButton;

Query4: TQuery;

RvProject4: TRvProject;

RvQueryConnection4: TRvQueryConnection;

Label5: TLabel;

Button6: TButton;

Query5: TQuery;

RvProject5: TRvProject;

RvQueryConnection5: TRvQueryConnection;

Label6: TLabel;

Label7: TLabel;

Button7: TButton;

Query6: TQuery;

RvProject6: TRvProject;

RvQueryConnection6: TRvQueryConnection;

Label8: TLabel;

Button8: TButton;

Query7: TQuery;

RvProject7: TRvProject;

RvQueryConnection7: TRvQueryConnection;

Label9: TLabel;

Button9: TButton;

Query8: TQuery;

RvProject8: TRvProject;

RvQueryConnection8: TRvQueryConnection;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormClose(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Otch: TOtch;

implementation

uses fmAbiturU;

{$R *.dfm}

procedure TOtch.Button1Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TOtch.Button2Click(Sender: TObject);

begin

Otch.close;

end;

procedure TOtch.FormClose(Sender: TObject);

begin

fmAbitur.

скачать бесплатно Разработка базы данных Приёмная комиссия

Содержание дипломной работы

2 Модель данных (реляционная) Реляционная база данных – это совокупность отношений, содержащих всю информацию, которая должна храниться в БД
4 - Abitur (Данные о абитуриентах); - Spec (Данные о специальностях); - Ekzam (Данные о экзаменах); - Kurs (Данные о абитуриентах, посещающих курсы); Таблица 1
справка, справка о семейном положении, фото)
Для выхода из программы можно нажать кнопку Close или меню файл -> выход или закрыть как стандартное окно Windows
Button4Click(Sender: TObject); begin RvProject3