Разработка базы данных
Реферат - Компьютеры, программирование
Другие рефераты по предмету Компьютеры, программирование
? уходить в прошлое. Причина широкое распространение локальных сетей и сети Internet. Проще подключиться к сети, сформировать запрос и тут же получить нужные данные, чем хранить все на своем компьютере. Как видно из моей работы, с помощью объектно-ориентированного программирования строить сложное приложение становится все проще и проще, растут мощности компьютеров, объемы ОЗУ и ПЗУ и приложения работают с базами данных все быстрее и быстрее.
Список используемой литературы:
- Microsoft Access 2000, И.А. Харитонова, В.Д. Михеева, издательство БХВ - Петербург, 1999
- Базы данных: Учебный курс, С.В. Глушаков, Д.В. Ломотько, ООО Издательство АСТ, 2000
- Delphi 5 Руководство разработчика баз данных, В.В. Фаронов, П.В. Шумаков, издательство Нолидж, 2001
- Работа с базами данных в Delphi, В.Э. Гофман, А.Д. Хомоненко, БХВ - Петербург, 2000
- Microsoft SQL Server 7 для профессионалов, Е. Мамаев, А. Вишневский, 2000
- Файлы справки по Delphi7.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TFormMain = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
procedure N10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TFormMain;
implementation
uses Unit4, Unit2, Unit6, Unit5, Unit7, Unit13, Unit14;
{$R *.dfm}
procedure TFormMain.N10Click(Sender: TObject);
begin
with svazka do begin
Caption:='Редактирование связанных таблиц: Раздел->Наименование->Модель';
C1.Visible:=false; dbgrid1.ReadOnly:=false;
C2.Visible:=false; dbgrid2.ReadOnly:=false;
C3.Visible:=false; dbgrid3.ReadOnly:=false;
SpeedButton2.Visible:=false;
end;
ShowWindow(Svazka.Handle, SW_SHOW);
svazka.Show;
end;
procedure TFormMain.N7Click(Sender: TObject);
begin
ShowWindow(formvvod.Handle, SW_SHOW);
formvvod.Show;
end;
procedure TFormMain.N8Click(Sender: TObject);
begin
ShowWindow(formvvod2.Handle, SW_SHOW);
formvvod2.Show;
end;
procedure TFormMain.N9Click(Sender: TObject);
begin
ShowWindow(vch.Handle, SW_SHOW);
vch.Show;
end;
procedure TFormMain.N6Click(Sender: TObject);
begin
close;
end;
procedure TFormMain.N3Click(Sender: TObject);
begin
ShowWindow(zaprvibr.Handle, SW_SHOW);
zaprvibr.Show;
end;
procedure TFormMain.N13Click(Sender: TObject);
begin
ShowWindow(avtor.Handle, SW_SHOW);
avtor.Show;
end;
procedure TFormMain.N12Click(Sender: TObject);
begin
ShowWindow(Opr.Handle, SW_SHOW);
Opr.Show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;
type
TFormVvod = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormVvod: TFormVvod;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure TFormVvod.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(Formvvod.Handle, SW_HIDE);
action:=canone;
end;
end.
unit Unit3;
interface
uses
SysUtils, Classes, DB, IBCustomDataSet, IBTable, IBDatabase, Qdialogs,
IBQuery, Dialogs,inifiles;
type
TDM = class(TDataModule)
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
IBTable1: TIBTable;
IBTable2: TIBTable;
IBTable3: TIBTable;
IBTable4: TIBTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
IBTable5: TIBTable;
DataSource5: TDataSource;
IBTable1KOD5: TIntegerField;
IBTable1SERNO: TIBStringField;
IBTable1K4: TIntegerField;
IBTable1SER: TFloatField;
IBTable1ZOL: TFloatField;
IBTable1PT: TFloatField;
IBTable1PG: TFloatField;
IBTable1DVIP: TIBStringField;
IBTable1DVVOD: TIBStringField;
IBTable1DSPIS: TIBStringField;
IBTable1SROK: TSmallintField;
IBTable1KATEGOR: TSmallintField;
IBTable1CENA: TFloatField;
IBTable1PRIMECH: TIBStringField;
IBTable1K3: TIntegerField;
IBTable44: TIBTable;
DataSource44: TDataSource;
IBTable1Look4: TStringField;
IBTable1Look3: TStringField;
Zapr1: TIBQuery;
DZapr: TDataSource;
Zapr1VCH: TIBStringField;
Zapr1MODEL: TIBStringField;
Zapr1SERNO: TIBStringField;
Zapr1DVIP: TIBStringField;
Zapr1CENA: TFloatField;
Zapr1KOD5: TIntegerField;
Zapr2: TIBQuery;
IBStringField1: TIBStringField;
IBStringField2: TIBStringField;
IBStringField3: TIBStringField;
IBStringField4: TIBStringField;
FloatField1: TFloatField;
IntegerField1: TIntegerField;
Zapr2DSPIS: TIBStringField;
Zapr2PRIMECH: TIBStringField;
DZapr2: TDataSource;
Zapr3: TIBQuery;
DZapr3: TDataSource;
Zapr3NAIM: TIBStringField;
Zapr3MODEL: TIBStringField;
Zapr3VCH: TIBStringField;
Zapr3SERNO: TIBStringField;
Zapr3DSPIS: TIBStringField;
Zapr3CENA: TFloatField;
Zapr3KOD5: TIntegerField;
Zapr4: TIBQuery;
DZapr4: TDataSource;
Zapr4VCH: TIBStringField;
Zapr4RAZDEL: TIBStringField;
Zapr4NAIM: TIBStringField;
Zapr4MODEL: TIBStringField;
Zapr4SERNO: TIBStringField;
Zapr4DSPIS: TIBStringField;
Zapr4DVVOD: TIBStringField;
Zapr4CENA: TFloatField;
Zapr4SER: TFloatField;
Zapr4ZOL: TFloatField;
Zapr4PT: TFloatField;
Zapr4PG: TFloatField;
Zapr5: TIBQuery;
DZapr5: TDataSource;
OpDial: TOpenDialog;
Zapr4KOD5: TIntegerField;
procedure IBTable2BeforePost(DataSet: TDataSet);
procedure IBTable3BeforePost(DataSet: TDataSet);
procedure IBTable4BeforePost(DataSet: TDataSet);
procedure IBTable2AfterPost(DataSet: TDataSet);
procedure IBTable3AfterPost(DataSet: TDataSet);
procedure IBTable4AfterPost(DataSet: TDataSet);
procedure IBTable5BeforePost(DataSet: TDataSet);
procedure IBTable5AfterPost(DataSet: TDataSet);
procedure IBTable1BeforePost(DataSet: TDataSet);
procedure IBTable1AfterPost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }