Реализация информационной подсистемы "Computers"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
во ДиаСофт, 2001. - 576 с.
13.Епанешников, А. М., Епанешников, В. А. DELPHI. Программирование СУБД [Текст] / А. М. Епанешников, В. А. Епанешников. - М.: ДИАЛОГ-МИФИ, 2001 - 528 с.
.Методические указания к дипломному проектированию для студентов специальности 230201. - Ставрополь: Изд-во СевКавГТУ, 2006. - 168 с..
15.Хомоненко, А. Д. Базы данных [Текст]: учебник для высших учебных заведений / А. Д. Хомоненко, В. М. Цыганков, М. Г. Мальцев; под ред. проф. А. Д.. Хомоненко. - Издание второе, дополненное и переработанное. - СПб.: Корона принт, 2002.- 672 с.
16.Мишенин, А. И. Теория экономических информационных систем [Текст] / А. И. Мишенин. - М.: Финансы и статистика, 1999. - 168 с.
17.Дж.Ульман. Основы систем баз данных [Текст] - М.: Финансы и статистика,1983. - 345с.
18.Дейт К. Введение в системы баз данных [Текст] - М.: Hаука, 1980. -420с.
.Шумаков П. В. Delphi 5.0 и создание баз данных [Текст] - М.: Наука, 2002. -400с.
.Диго С.М. Проектирование и использования баз данных [Текст] - М.: Финансы и статистика, 1995. -200с.
.Сучков А.Н., Зотов И.В. Автоматизированные информационные технологии в экономике [Текст] - М.: Финансы и статистика, 1999 . - 415с.
ПРИЛОЖЕНИЕ А
SQL-скрипт создания базы данных информационной подсистемы Computers
CREATE TABLE CHARACTERISTICDRIVER (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON CHARACTERISTICDRIVER
(
);
TABLE COMPUTER (Long Integer,Memo(20),Memo(20),Memo(20),Date,Binary(18),Date,Memo(20),Long Integer
);
UNIQUE INDEX Primary ON COMPUTER
(
);
TABLE COMPUTERTYPE (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON COMPUTERTYPE
(
);
TABLE DEPARTMENT (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON DEPARTMENT
(
);
TABLE HARDWARE (Long Integer,Long Integer,Memo(20),Binary(18),Binary(18),Date,Binary(18),Date,Date,Date,Memo(20),Date,Memo(20),Date,Long Integer,Memo(20),Date,Memo(20),Date,Memo(20),Memo(20),Memo(20),Memo(20),Long Integer,Long Integer,Long Integer,Long Integer,Long Integer,Long Integer,Long Integer,Long Integer
);
UNIQUE INDEX Primary ON HARDWARE
(
);
TABLE HARDWARETYPE (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON HARDWARETYPE
(
);
TABLE HEAD (Binary(18),Memo(20),Long Integer
);
UNIQUE INDEX Primary ON HEAD
(
);
TABLE LICENZETYPE (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON LICENZETYPE
(
);
TABLE LOCATION (Long Integer,Long Integer,Memo(20),Long Integer
);
UNIQUE INDEX Primary ON LOCATION
(
);
TABLE MOTIVEINSTALLATIONS (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON MOTIVEINSTALLATIONS
(
);
TABLE MOTIVEINSTALLSOFT (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON MOTIVEINSTALLSOFT
(
);
TABLE MOTIVELIQUIDATION (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON MOTIVELIQUIDATION
(
);
TABLE MOTIVELIQUIDATIONSOFT (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON MOTIVELIQUIDATIONSOFT
(
);
TABLE PERIODICITYPM (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON PERIODICITYPM
(
);
TABLE PERIPHERALDEVICE (Long Integer,Long Integer,Memo(20),Memo(20),Memo(20),Long Integer
);
UNIQUE INDEX Primary ON PERIPHERALDEVICE
(
);
TABLE PERIPHERALDEVICETYPE (Long Integer,Memo(20)
);
UNIQUE INDEX Primary ON PERIPHERALDEVICETYPE
(
);
TABLE SOFTWARE (Long Integer,Long Integer,Memo(20),Binary(18),Date,Binary(18),Date,Memo(20),Date,Memo(20),Date,Long Integer,Date,Memo(20),Memo(20),Date,Date,Memo(20),Memo(20),Memo(20),Memo(20),Long Integer,Long Integer,Long Integer,Long Integer,Long Integer,Long Integer
);
UNIQUE INDEX Primary ON SOFTWARE
(
);
TABLE SOFTWARETYPE (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON SOFTWARETYPE
(
);
TABLE STATUSDATA (Memo(20),Long Integer
);
UNIQUE INDEX Primary ON STATUSDATA
(
);
TABLE STATUSSOFTWAREDATA (Memo(20),Long Integer
);
CREATE UNIQUE INDEX Primary ON STATUSSOFTWAREDATA
(
);
TABLE SUPPLIER (Memo(20),Memo(20),Memo(20),Memo(20),Memo(20),Long Integer
);
UNIQUE INDEX Primary ON SUPPLIER
(
);
TABLE SUPPLIERSOFTWARE (Memo(20),Memo(20),Memo(20),Memo(20),Memo(20),Long Integer
);
UNIQUE INDEX Primary ON SUPPLIERSOFTWARE
(
);
TABLE USER (Memo(20),Long Integer,Memo(20),Memo(20)
);
UNIQUE INDEX Primary ON USER
(
);
TABLE WHOPRODUCEINSTALLED (Memo(20),Memo(20),Long Integer
);
UNIQUE INDEX Primary ON WHOPRODUCEINSTALLED
(
);
ПРИЛОЖЕНИЕ Б
Текст модуля fmMainU.pasfmMainU;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, ExtCtrls, ComCtrls, jpeg;
= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TStatusBar;: TTimer;: TImage;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;ComputerTypeClick(Sender: TObject);HardwareTypeClick(Sender: TObject);MotiveInstallationsClick(Sender: TObject);StatusDataClick(Sender: TObject);CharacteristicDriverClick(Sender: TObject);WhoProduceInstalledClick(Sender: TObject);MotiveLiquidationClick(Sender: TObject);PeriodicityPMClick(Sender: TObject);SupplierClick(Sender: TObject);PeripheralDeviceTypeClick(Sender: TObject);DepartmentClick(Sender: TObject);StocktakingComputersClick(Sender: TObject);SoftwareTypeClick(Sender: TObject);SupplierSoftwareClick(Sender: TObject);StatusSoftwareClick(Sender: TObject);LicenzeTypeClick(Sender: TObject);MotiveInstallSoftClick(Sender: TObject);MotiveLiquidSoftClick(Sender: TObject);HeadClick(Sender: TObject);ExitClick(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);DepartmentRoomClick(Sender: TObject);Timer1Timer(Sender: TObject);FormCreate(Sender: TObject);FormActivate(Sender: TObject);UserListClick(Sender: TObject);ReplacementPasswordClick(Sender: TObject);AboutBoxClick(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TfmMain;_Login : Boolean;_UserName,Go_FIO:String;
fmCharacteristicDriverU, fmComputerTypeU, fmHardwareTypeU,, fmMotiveInstallationsU, fmMotiveLiquidationU,, fmStatusDataU, fmStocktakingComputersU, fmSupplierU,, fmPeripheralDeviceTypeU, fmDepartmentU,, fmSupplierSoftwareU, fmStatusSoftwareU, fmLicenzeTypeU,, fmMotiveLiquidSoftSoftU, fmHeadU,, fmPasswordDlgU, fmUserListU,, fmAboutBoxU;
{$R *.dfm}
TfmMain.ComputerTypeClick(Sender: TObject);.ShowModal;;
TfmMain.HardwareTypeClick(Sender: TObject);.ShowModal;;
TfmMain.MotiveInstallationsClick(Sender: TObject);.ShowModal;;
TfmMain.StatusDataClick(Sender: TObject);.ShowModal;;
TfmMain.CharacteristicDriverClick(Sender: TObject);.ShowModal;;
TfmMain.WhoProduceInstalledClick(Sender: TObject);.ShowModal;;
TfmMain.MotiveLiquidationClick(Sender: TObject);.ShowModal;;
TfmMain.PeriodicityPMClick(Sender: TObject);.ShowModal;;
TfmMain.SupplierClick(Sender: TObject);.ShowModal;;
TfmMain.PeripheralDeviceTypeClick(Sender: TObject);.ShowModal;;
TfmMain.DepartmentClick(Sender: TObject);.ShowModal;;
TfmMain.StocktakingComputersClick(Sender: TObject);.Show;;
TfmMain.SoftwareTypeClick(Sender: TObject);.ShowModal;;
TfmMain.SupplierSoftwareClick(Sender: TObject);.ShowModal;;
TfmMain.StatusSoftwareClick(Sender: TObject);.ShowModal;;
TfmMain.LicenzeTypeClick(Sender: TObject);.ShowModal;;
TfmMain.MotiveInstallSoftClick(Sender: TObject);.ShowModal;;
TfmMain.MotiveLiquidSoftClick(Sender: TObject);.ShowModal;;
TfmMain.HeadClick(Sender: TObject);.ShowModal;;
TfmMain.ExitClick(Sender: TObject);;;
TfmMain.FormClose(Sender: TObject; var