Разработка БД для АСУ

Лаборатория знаний, 2013. — 325 с.: ил., табл. — (Серия «Основы информационных технологий»). Иванов, Ю.П. BPwinиERwin. CASE-средства проектирования информационных систем: учебное пособие / Ю.П. Иванов, Е.В. Федоренко. – М. : Находка, 2012. – 80 с.Кириллов В.В., Громов Г.Ю. Введение в реляционные базы данных СПб.: БХВ-Петербург, 2012. — 450 c.Пирогов, В.Ю. Информационные системы и базы данных: организация и проектирование: учебное пособие /  В.Ю. Пирогов. – СПб. : БХВ-Петербург, 2014.–528 с.Преснякова, Г.В. Проектирование интегрированных реляционных баз данных: учебник / Г.В.Преснякова. – М.: КДУ, 2016.– 45 с.Федоренко, Е.В.Базы данных: учебное пособие / Е.В. Федоренко, А.С. Самардак. – М. : Находка, 2016. – 116 с.Ульман Д., Уидом Д. "Основы реляционных баз данных", 2006Базы данных - Урок 1. Понятие базы данных. [Электронный ресурс]. URL:Базы данных - Урок 2. Структура базы данных. [Электронный ресурс]. URL: Классификация баз данных. [Электронный ресурс]. URL:Информационно-аналитический портал о ставках на спорт. [Электронный ресурс]. URL:< http://sportbet2005.narod.ru/Soft.htm>Учёт спортивной статистики. [Электронный ресурс]. URL:< http://usu.kz/programma_dlya_vedeniya_statistiki.php>ПРИЛОЖЕНИ 1. Листингunit igroki;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Data.DB, Data.Win.ADODB, Vcl.StdCtrls, Vcl.ExtDlgs, Vcl.Imaging.jpeg, Vcl.ImgList, frxClass, frxDBSet;type Tigrokiform = class(TForm) pnl1: TPanel; dbnvgr1: TDBNavigator; dbgrd1: TDBGrid; ds1: TDataSource; ds2: TADODataSet; atncfldds2id: TAutoIncField; wdstrngfldds2fio: TWideStringField; intgrfldds2vozrast: TIntegerField; wdstrngfldds2telefon: TWideStringField; intgrfldds2id_komandi: TIntegerField; ds2foto: TBlobField; dbimgfoto: TDBImage; btn1: TButton; dlgOpenPic1: TOpenPictureDialog; ds3: TADODataSet; ds4: TDataSource; strngfldds2kom: TStringField; lbl1: TLabel; edt1: TEdit; btn2: TButton; btn3: TButton; lbl2: TLabel; btn4: TButton; btn5: TButton; btn6: TButton; dblkcbb1: TDBLookupComboBox; il1: TImageList; frxReport1: TfrxReport; frxDBDataset1: TfrxDBDataset; frxDBDataset2: TfrxDBDataset; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure btn5Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn6Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var igrokiform: Tigrokiform;implementationuses main;{$R *.dfm}procedure Tigrokiform.btn1Click(Sender: TObject);//begin { if dlgOpenPic1.Execute then dbimgfoto.Picture.LoadFromFile(dlgOpenPic1.FileName); Clipboard.Assign(Image1.Picture); Image1.Picture.Assign(Clipboard); DBImage1.PasteFromClipboard; }// dbimgfoto.Picture.LoadFromFile(dlgOpenPic1.FileName);var Blob : TMemoryStream;begin try if dlgOpenPic1.Execute then begin ds2.Edit; Blob := TADOBlobStream.Create(TBlobField(ds2.FieldByName('foto')),bmWrite); Blob.LoadFromFile(dlgOpenPic1.FileName); Blob.Free; ds2.Post; end; except on e:Exception do end;end;procedure Tigrokiform.btn2Click(Sender: TObject);begin ds2.Filter := 'fio like ''%' + edt1.Text + '%''';end;procedure Tigrokiform.btn3Click(Sender: TObject);begin ds2.Filter := ''; edt1.Text := '';end;procedure Tigrokiform.btn4Click(Sender: TObject);begin ds2.Filter := 'id_komandi = ' + IntToStr(dblkcbb1.KeyValue);end;procedure Tigrokiform.btn5Click(Sender: TObject);begin ds2.Filter := '';end;procedure Tigrokiform.btn6Click(Sender: TObject);begin frxReport1.ShowReport();end;end.unit kom;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Data.DB, Data.Win.ADODB;type Tkomform = class(TForm) dbnvgr1: TDBNavigator; dbgrd1: TDBGrid; ds1: TADODataSet; ds2: TDataSource; atncfldds1id: TAutoIncField; intgrfldds1id_trener: TIntegerField; ds3: TADODataSet; ds4: TDataSource; strngfldds1trener: TStringField; wdstrngfldds1nazvanie: TWideStringField; private { Private declarations } public { Public declarations } end;var komform: Tkomform;implementationuses main;{$R *.dfm}end.unit main;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ImgList, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.Menus, dxGDIPlusClasses, Data.DB, Data.Win.ADODB, System.IniFiles;type Tmainform = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; il1: TImageList; mm1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; con1: TADOConnection; procedure N2Click(Sender: TObject); procedure btn1Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var mainform: Tmainform;implementationuses tren, kom, igroki, match;{$R *.dfm}procedure Tmainform.btn1Click(Sender: TObject);begin if (not Assigned(trenform)) then trenform := Ttrenform.Create(Self); trenform.ShowModal;end;procedure Tmainform.btn2Click(Sender: TObject);begin if (not Assigned(igrokiform)) then igrokiform := Tigrokiform.Create(Self); igrokiform.ShowModal;end;procedure Tmainform.btn3Click(Sender: TObject);begin if (not Assigned(komform)) then komform := Tkomform.Create(Self); komform.ShowModal;end;procedure Tmainform.btn4Click(Sender: TObject);begin if (not Assigned(matchform)) then matchform := Tmatchform.Create(Self); matchform.ShowModal;end;procedure Tmainform.FormCreate(Sender: TObject);var iniFile : TIniFile; connection_string : string;begin iniFile := TIniFile.Create(extractfilepath(Application.ExeName) + 'football.ini'); try connection_string := iniFile.ReadString('mssql', 'connection_string', ''); if trim(connection_string) = '' thenbegin ShowMessage('База данных не найдена');Application.Terminate; end; try con1.ConnectionString := connection_string; con1.Connected := True; except on e : Exception do begin ShowMessage('Ошибка: ' + e.Message); Application.Terminate; end; end; finally iniFile.Free; end;end;procedure Tmainform.N2Click(Sender: TObject);begin Close;end;procedure Tmainform.N4Click(Sender: TObject);begin ShowMessage('АИС "Чемпионат мира по футболу, 2017 год');end;procedure Tmainform.N5Click(Sender: TObject);begin if (not Assigned(trenform)) then trenform := Ttrenform.Create(Self); trenform.ShowModal;end;procedure Tmainform.N6Click(Sender: TObject);begin if (not Assigned(igrokiform)) then igrokiform := Tigrokiform.Create(Self); igrokiform.ShowModal;end;procedure Tmainform.N7Click(Sender: TObject);begin if (not Assigned(komform)) then komform := Tkomform.Create(Self); komform.ShowModal;end;procedure Tmainform.N8Click(Sender: TObject);begin if (not Assigned(matchform)) then matchform := Tmatchform.Create(Self); matchform.ShowModal;end;end.unit match;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.ImgList, Vcl.StdCtrls, frxClass, frxDBSet;type Tmatchform = class(TForm) pnl1: TPanel; dbnvgr1: TDBNavigator; dbgrd1: TDBGrid; ds1: TDataSource; ds2: TADODataSet; ds3: TADODataSet; ds4: TDataSource; atncfldds2id: TAutoIncField; dtmfldds2data: TDateTimeField; intgrfldds2id_kom1: TIntegerField; intgrfldds2id_kom2: TIntegerField; intgrfldds2schet: TIntegerField; intgrfldds2schet2: TIntegerField; wdstrngfldds2gorod: TWideStringField; strngfldds2kom1: TStringField; strngfldds2kom2: TStringField; lbl1: TLabel; dblkcbb1: TDBLookupComboBox; btn4: TButton; btn5: TButton; btn6: TButton; il1: TImageList; frxReport1: TfrxReport; frxDBDataset1: TfrxDBDataset; frxDBDataset2: TfrxDBDataset; procedure dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure btn4Click(Sender: TObject); procedure btn5Click(Sender: TObject); procedure btn6Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var matchform: Tmatchform;implementationuses main;{$R *.dfm}procedure Tmatchform.btn4Click(Sender: TObject);begin ds2.Filter := 'id_kom1 = ' + IntToStr(dblkcbb1.KeyValue) + ' or id_kom2 = ' + IntToStr(dblkcbb1.KeyValue);end;procedure Tmatchform.btn5Click(Sender: TObject);begin ds2.Filter := '';end;procedure Tmatchform.btn6Click(Sender: TObject);begin frxReport1.ShowReport();end;procedure Tmatchform.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);const clPaleGreen = TColor($CCFFCC); clPaleRed = TColor($CCCCFF);var pobed : string; kompobed : string;begin if ds2.FieldByName('schet').Value > ds2.FieldByName('schet2').Value then begin pobed := 'schet'; kompobed := 'kom1'; end else begin pobed := 'schet2'; kompobed := 'kom2'; end; if Column.FieldName = pobed then if (gdFocused in State) then dbgrd1.Canvas.Brush.Color := clBlack else dbgrd1.Canvas.Brush.Color := clPaleGreen; if Column.FieldName = kompobed then if (gdFocused in State) then dbgrd1.Canvas.Brush.Color := clBlack else dbgrd1.Canvas.Brush.Color := clPaleGreen; dbgrd1.DefaultDrawColumnCell(Rect, DataCol, Column, State)end;end.unit tren;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB, Data.Win.ADODB;type Ttrenform = class(TForm) dbgrd1: TDBGrid; dbnvgr1: TDBNavigator; ds1: TADODataSet; ds2: TDataSource; atncfldds1id: TAutoIncField; wdstrngfldds1fio: TWideStringField; wdstrngfldds1telefon: TWideStringField; wdstrngfldds1stag: TWideStringField; private { Private declarations } public { Public declarations } end;var trenform: Ttrenform;implementationuses main;{$R *.dfm}end.