Реализации информационной подсистемы "Advancement"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ательство Лори, 2000. - 581 с.
.Калянов, Г. Н. CASE-технологии. Консалтинг при автоматизации бизнес процессов. 2-е изд. перераб. И доп. [Текст] /Г. Н. Калянов. - М.: Горячая линия- Телеком, 2000. ? 320 с.
. Ларман, К. применение UML и шаблонов проектирования: Пер. с англ [Текст] / К. Ларман. - М.: Издательский дом Вильямс, 2001. - 496 с.
. Архангельский, А. Я. Программирование в Delphi 7 [Текст] / А. Я. Архангельский. - М.: ООО Бином-Пресс, 2003. - 1152 с.
7.Тейксера, Стив, Пачеко, Ксавье. Borland Delphi 6 [Текст] / Стив Тейксера, Ксавье Пачеко. Руководство разработчика. : Пер. с англ. - М.: Издательский дом Вильямс, 2000. - 1120 с.
.Баженова, И. Ю. Delphi 7 Самоучитель программиста [Текст] / И. Ю. Баженова. - М.: Кудиц-Образ, 2003. - 436 с.
9.Культин, Н. Б. Основы программирования в Delphi 7 [Текст] / Н. Б. Культин. - СПб.: БХВ-Петербург, 2003. - 608 с.
10.Гофман, В.Э, Хомоненко, А. Д. Delphi 5 [Текст] / В.Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ, 2000. - 800 с.: ил.
11.Тейксера Стив, Пачеко Ксавье. Borland Delphi 5. Руководство разработчика.: Пер. с англ. - М.: Издательский дом Вильямс, 2000. - 817 с.
12.Кандзюба, С. П., Громов, В. Н. Delphi 6. Базы данных и приложения. Лекции и упражнения [Текст] / С. П. Кандзюба, В. Н. Громов. - К.:Издательство ДиаСофт, 2001. - 576 с.
13.Епанешников, А. М., Епанешников, В. А. DELPHI. Программирование СУБД [Текст] / А. М. Епанешников, В. А. Епанешников. - М.: ДИАЛОГ-МИФИ, 2001 - 528 с.
14.Когаловский, М.Р. Технология баз данных на персональных ЭВМ [Текст] / М.Р. Когаловский. - Киев: Радиоэлектроника, 2004. - 270с.
15.Hаумов, А.H. Системы управления базами данных и знаний [Текст] / А.H Hаумов, А.М.Вендров - М.: Финансы и статистика, 2003. - 240с.
.Брябрин, В.М. Программное обеспечение персональных ЭВМ [Текст] / В.М. Брябрин. - М.:Hаука, 1999. - 500с.
.Аппак, М.А. Автоматизированные рабочие места на основе персональных ЭВМ [Текст] / М.А. Аппак - М.: Радио и связь, 1989. -400с.
.Крайзмер, Л.П. Персональный компьютер на вашем рабочем месте [Текст] / Л.П Крайзмер, Б.А Кулик. - СпБ: Лениздат, 1998. -360с.
19.Шумаков, П. В. Delphi 5.0 и создание баз данных [Текст] / П.В. Шумаков - М.: Наука, 2002. -400с.
20.Мартин, Дж. Организация баз данных в вычислительных системах [Текст] / Дж. Мартин. - М.: Мир, 1978. -700с.
.Конноли, Т. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. [Текст] / Т. Конноли, К. Бегг - СПб.; М.: Киев: изд. дом Вильяме, 2001. - 1120 с.
.Диго, С.М. Проектирование и использования баз данных [Текст] / С.М. Диго. - М.: Финансы и статистика, 1995. -200с.
.Сучков, А.Н. Автоматизированные информационные технологии в экономике [Текст] / А.Н.Сучков, И.В. Зотов. - М.: Финансы и статистика, 1999 . - 415с.
Приложение А
SQL-скрипт создания базы данных информационной подсистемы Advancement
CREATE TABLE ABSENCE (
StudentDisciplineID Long Integer,
ABase Memo(20),
AValidReason Logical,
ACountHour Long Integer,
ADate Date,
AbsenceID Long Integer
);
UNIQUE INDEX Primary ON ABSENCE
(
AbsenceID
);
TABLE CALCULATION (
StudentDisciplineID Long Integer,
MarkID Long Integer,
CDate Date,
CalculationID Long Integer
);
UNIQUE INDEX Primary ON CALCULATION
(
CalculationID
);TABLE DISCIPLINE (
DName Memo(20),
DisciplineID Long Integer
);
UNIQUE INDEX Primary ON DISCIPLINE
(
DisciplineID
);
TABLE FORMINSTRUCTION (
FormInstructionID Long Integer,
FName Memo(20)
);
UNIQUE INDEX Primary ON FORMINSTRUCTION
(
FormInstructionID
);TABLE GROUP (
FormInstructionID Long Integer,
SpecialtyID Long Integer,
GroupID Long Integer,
GName Memo(20)
);
UNIQUE INDEX Primary ON GROUP
(
GroupID
);TABLE LISTSTUDENTSGROUP (
GroupID Long Integer,
LStudentFIO Memo(20),
ListStudentsGrou_pID Long Integer
);
UNIQUE INDEX Primary ON LISTSTUDENTSGROUP
(
ListStudentsGrou_pID
);
TABLE MARK (
MarkID Long Integer,
MName Memo(20)
);
UNIQUE INDEX Primary ON MARK
(
MarkID
);
TABLE PASSWORD (
PasswordID Long Integer
);
UNIQUE INDEX Primary ON PASSWORD
(
PasswordID
);
TABLE SPECIALTY (
SName Memo(20),
SpecialtyID Long Integer
);
UNIQUE INDEX Primary ON SPECIALTY
(
SpecialtyID
);
TABLE STUDENTDISCIPLINE (
ListStudentsGrou_pID Long Integer,
StudentDisciplineID Long Integer,
DisciplineID Long Integer
);
UNIQUE INDEX Primary ON STUDENTDISCIPLINE
(
StudentDisciplineID
);
Приложение Б
Текст модуля fmSpecialtyDisciplineU.pas
fmSpecialtyDisciplineU;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;
TfmSpecialtyDiscipline = class(TForm)
Panel2: TPanel;
Panel1: TPanel;
Panel3: TPanel;
Panel4: TPanel;
DBGrid2: TDBGrid;
Panel5: TPanel;
Panel6: TPanel;
DBGrid1: TDBGrid;
BitBtnSpecialtyAdd: TBitBtn;
BitBtnSpecialtyEdit: TBitBtn;
SpecialtyDel: TBitBtn;
BitBtnDisciplineIAdd: TBitBtn;
BitBtnDisciplineIEdit: TBitBtn;
BitBtnDisciplineIDel: TBitBtn;
DBNavigator1: TDBNavigator;
DBNavigator2: TDBNavigator;
BitBtnSelectFromList: TBitBtn;
Label1: TLabel;
Splitter2: TSplitter;
procedure BitBtnSpecialtyAddClick(Sender: TObject);
procedure BitBtnSpecialtyEditClick(Sender: TObject);
procedure SpecialtyDelClick(Sender: TObject);
procedure BitBtnSelectFromListClick(Sender: TObject);
procedure BitBtnDisciplineIDelClick(Sender: TObject);
procedure BitBtnDisciplineIAddClick(Sender: TObject);
procedure BitBtnDisciplineIEditClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
fmSpecialtyDiscipline: TfmSpecialtyDiscipline;
dmAdvancementU, fmSpecialtyWorkU, fmDisciplineCheckListBoxU,
fmDisciplineU, fmDisciplineSelectU;
{$R *.dfm}
TfmSpecialtyDiscipline.BitBtnSpecialtyAddClick(Sender: TObject);
fmSpecialtyWork:= TfmSpecialtyWork.Create(nil);//программное создание формы
DM.SPECIALTY.Append;
if fmSpecialtyWork.ShowModal = mrOK then
DM.SPECIALTY.Post
else
DM.SPECIALTY.Cancel;
fmSpecialtyWork.Free;//освобождаем ресурс;
TfmSpecialtyDiscipline.BitBtnSpecialtyEditClick(Sender: TObject);
if DM.SPECIALTY.RecordCount = 0 then
begin
MessageDlg('Нет записи для редактирования!',mtError,[mbOK],0);
Exit;
end
else begin
fmSpecialtyWork:= TfmSpecialtyWork.Create(nil);//программное создание формы
DM.SPECIALTY.Edit;
if fmSpecialtyWork.ShowModal = mrOK then
DM.SPECIALTY.Post
else
DM.SPECIALTY.Cancel;
fmSpecialtyWork.Free;//освобождаем ресурс
end;;
TfmSpecialtyDiscipline.SpecialtyDelClick(Sender: TObject);
if DM.SPECIALTY.RecordCount = 0 then begin
MessageDlg('Нет записи для удаления!',mtError,[mbOK],0);
Exit;
end
else if MessageDlg('Удали