Приложение №1. Листингпрограммы

unitZastavka;

interface

uses

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

Dialogs, jpeg, ExtCtrls, Gauges, Vcl.StdCtrls, unit1;

type

TZastava = class(TForm)

Clock2: TTimer;

Clock3: TTimer;

Proc: TGauge;

Picture2: TImage;

Label1: TLabel;

procedure Clock2Timer(Sender: TObject);

procedure Clock3Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Zastava: TZastava;

implementation

{$R *.dfm}

procedure TZastava.Clock2Timer(Sender: TObject);

begin

Clock2.Enabled := false;

Zastava.visible := false;

form1.Show;

end;

procedure TZastava.Clock3Timer(Sender: TObject);

begin

Proc.Progress := Proc.Progress + 5;

if Proc.Progress = 10 then

Label1.Caption := 'Инициализация';

if Proc.Progress = 30 then

Label1.Caption := 'Загрузкабиблиотек';

if Proc.Progress = 40 then

Label1.Caption := 'Проверкадоступа';

if Proc.Progress = 50 then

Label1.Caption := 'Первичныйзапуск';

if Proc.Progress = 60 then

Label1.Caption := 'Запуск.';

if Proc.Progress = 65 then

Label1.Caption := 'Запуск..';

if Proc.Progress = 70 then

Label1.Caption := 'Запуск...';

if Proc.Progress = 75 then

Label1.Caption := 'Запуск.';

if Proc.Progress = 80 then

Label1.Caption := 'Запуск..';

if Proc.Progress = 95 then

Label1.Caption := 'Запуск...';

if Proc.Progress = 100 then

Label1.Caption := 'Успешно!';

if Proc.Progress = 100 then

Clock3.Enabled := false;

if Proc.Progress = 100 then

form1.visible := true;

end;end.

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids,

StdCtrls, Menus, DBCtrls, ExtCtrls, comobj, Vcl.Imaging.jpeg;

type

TForm1 = class(TForm)

OpenDialog1: TOpenDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N2: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N10: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

N30: TMenuItem;

N17: TMenuItem;

N31: TMenuItem;

N32: TMenuItem;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Label1: TLabel;

procedure N10Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N30Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N29Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N32Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2, Unit4, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Zastavka;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

application.Terminate;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.Active := false;

ADOConnection1.Connected := true;

form6.DataSource1.Enabled := true;

form6.ADODataSet1.CommandText := 'select Номер, ФИО from Куплено';

form6.ADODataSet1.Active := true;

form6.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form1.Visible := false;

ADOQuery1.SQL.Clear;

ADOQuery1.Active := false;

ADOConnection1.Connected := true;

form3.DataSource1.Enabled := true;

form3.ADODataSet1.CommandText :=

'select Номер, Название_концертаfrom Концерты';

form3.ADODataSet1.Active := true;

form3.Show;

// form1.adoquery1.SQL.Add('select Купил_билетов from Куплено where Тип_Билетов=Vip_Билетов and Название_концерта ');

// form3.ADODataSet1.Active:=true;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm1.N19Click(Sender: TObject);

var

WordApp, Table: Variant;

i, j: Integer;

begin

WordApp := CreateOleObject('Word.Application');

WordApp.Documents.Add;

WordApp.ActiveDocument.Tables.Add(WordApp.ActiveDocument.Range,

Form1.DBGrid1.DataSource.DataSet.RecordCount,

Form1.DBGrid1.DataSource.DataSet.FieldCount);

Table := WordApp.ActiveDocument.Tables.Item(1);

Table.Style := 'Сеткатаблицы';

Form1.DBGrid1.DataSource.DataSet.First;

for i := 0 to Form1.DBGrid1.DataSource.DataSet.RecordCount - 1 do

begin

for j := 0 to Form1.DBGrid1.DataSource.DataSet.FieldCount - 1 do

Table.Cell(i + 1, j + 1).Range.InsertBefore

(Form1.DBGrid1.DataSource.DataSet.Fields[j].AsString);

Form1.DBGrid1.DataSource.DataSet.Next;

end;

WordApp.Visible := true;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from концерты');

ADOQuery1.Active := true;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from билетов');

ADOQuery1.Active := true;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from цены');

ADOQuery1.Active := true;

end;

procedure TForm1.N26Click(Sender: TObject);

begin

form8.Show;

Form1.ADOConnection1.GetTableNames(form8.ComboBox1.Items);

end;

procedure TForm1.N29Click(Sender: TObject);

begin

form7.Show;

Form1.Visible := false;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.Active := false;

ADOQuery1.SQL.Add('select * from Куплено');

ADOQuery1.Active := true;

end;

procedure TForm1.N30Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.Active := false;

ADOConnection1.Connected := true;

form4.DataSource1.Enabled := true;

form4.ADODataSet1.CommandText :=

'selectНомер, Название_концертаfromКонцерты';

form4.ADODataSet1.Active := true;

form4.Show;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

form9.Show;

Form1.Visible := false;

end;

procedure TForm1.N32Click(Sender: TObject);

begin

form10.Show;

Form1.Visible := false;

end;

procedure TForm1.N3Click(Sender: TObject);

var

FName: string;

begin

ADOConnection1.Connected := false;

if OpenDialog1.Execute then

begin

FName := OpenDialog1.FileName;

if (FName<> '') then

begin

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;';

ADOConnection1.ConnectionString := 'User ID=Admin;';

ADOConnection1.ConnectionString := 'Mode=ReadWrite;';

ADOConnection1.ConnectionString := 'Persist Security Info=False;';

ADOConnection1.ConnectionString := 'Jet OLEDB:System database="";';

ADOConnection1.ConnectionString := 'Jet OLEDB:Registry Path="";';

ADOConnection1.ConnectionString := 'Jet OLEDB:Database Password="";';

ADOConnection1.ConnectionString := 'Jet OLEDB:Engine Type=5;';

ADOConnection1.ConnectionString := 'Jet OLEDB:Database Locking Mode=1;';

ADOConnection1.ConnectionString := 'Jet OLEDB:Global Partial Bulk Ops=2;';

ADOConnection1.ConnectionString :=

'Jet OLEDB:Global Bulk Transactions=1;';

ADOConnection1.ConnectionString := 'Jet OLEDB:New Database Password="";';

ADOConnection1.ConnectionString :=

'Jet OLEDB:Create System Database=False;';

ADOConnection1.ConnectionString := 'Jet OLEDB:Encrypt Database=False;';

ADOConnection1.ConnectionString :=

'Jet OLEDB:Do not Copy Locale on Compact=False;';

ADOConnection1.ConnectionString :=

'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';

ADOConnection1.ConnectionString := 'Data Source=' + FName;

ADOConnection1.Connected := true;

ShowMessage('Соединениеустановленоуспешно');

DBGrid1.Visible := true;

end

else

begin

ShowMessage('Ошибка связи с БД. Выбирите другую.');

end;

end;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.N6Click(Sender: TObject);

var

a, b, c: string;

var

a1, a2, a3, a4, b1, b2, b3, b4, c1, c2, c3, c4: string;

begin

ADOQuery1.SQL.Clear;

ADOQuery1.Active := false;

a := 'Концерты';

a1 := 'Номер';

a2 := 'Название_концерта';

a3 := 'Адрес';

a4 := 'Дата';

b := 'Цены';

b1 := 'Номер';

b2 := 'Цена_за_VIP';

b3 := 'Цена_за_Первые_ряды';

b4 := 'Цена_за_Обычные_ряды';

c := 'Билетов';

c1 := 'Номер';

c2 := 'VIP';

c3 := 'Первые_ряды';

c4 := 'Обычные';

ADOQuery1.SQL.Add('select ' + a + '.' + a1 + ',' + a2 + ',' + a3 + ',' + a4 +

',' + b2 + ',' + b3 + ',' + b4 + ',' + c2 + ',' + c3 + ',' + c4 + ' from (('

+ a + ' inner join ' + b + ' on ' + a + '.' + a1 + '=' + b + '.' + b1 +

') inner join ' + c + ' on ' + a + '.' + a1 + '=' + c + '.' + c1 + ')');

ADOQuery1.Active := true;

// Не работает запрос с двумя джойнами:

// select * from A left join B on A.A=B.B left join C on A.A=C.C

// A: В Аксессе надо в таких запросах ставить скобки:

// select * from ((((A left join B on A.A=B.B) left join C on A.A=C.C) left join D on A.A=D.D) left join E on A.A=E.E) left join F on A.A=F.F

// select * from ((Концерты inner join Билетов on Концерты.Номер=Билетов.Номер) inner join Цены on Концерты.Номер=Цены.Номер)

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form1.Visible := false;

ADOConnection1.Connected := true;

form2.ADODataSet1.CommandText := 'select * from Концерты';

form2.DataSource1.Enabled := true;

form2.ADODataSet1.Active := true;

form2.Show;

end;

end.

unit Unit2;

interface

uses

unit1, DB, ADODB,

Controls, DBCtrls, StdCtrls, Graphics, ExtCtrls, Classes,

Windows, Messages, SysUtils, Variants, Forms,

Dialogs, Grids, DBGrids,

Menus;

type

TForm2 = class(TForm)

Label1: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button1: TButton;

ComboBox2: TComboBox;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Image1: TImage;

ListBox1: TListBox;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBLookupComboBox1: TDBLookupComboBox;

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit1Click(Sender: TObject);

procedure Edit2Click(Sender: TObject);

procedure Edit3Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Edit4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

name: string;

implementation

{$R *.dfm}

procedure TForm2.DBLookupComboBox1Click(Sender: TObject);

var

date: string;

begin

form1.adoquery1.SQL.Clear;

form1.adoquery1.Active := false;

name := DBLookupComboBox1.Text;

form1.adoquery1.SQL.Text :=

'select Дата from Концерты where Название_концерта=' +

(QuotedStr(name)) + '';

form1.adoquery1.Active := true;

date := form1.adoquery1.FieldByName('Дата').asstring;

Label4.Caption := date;

end;

procedure TForm2.Button1Click(Sender: TObject);

var

f, i, o, fullname, tipe, kolvo, tel: string;

columfio, columname, columkolvo, columtype, columtel: string;

begin

kolvo := '';

columfio := 'ФИО';

columname := 'Название_Концерта';

columkolvo := 'Купил_билетов';

columtype := 'Тип_билетов';

columtel := 'Телефон';

f := Edit1.Text;

i := Edit2.Text;

o := Edit3.Text;

tel := Edit4.Text;

if RadioButton1.Checked = true then

tipe := 'VIP';

if RadioButton2.Checked = true then

tipe := 'Первые_ряды';

if RadioButton3.Checked = true then

tipe := 'Обычные';

if f <> '' then

begin

if i <> '' then

begin

if o <> '' then

begin

kolvo := (ComboBox2.Text);

if kolvo<> '' then

begin

fullname := f + '_' + i + '_' + o;

if (RadioButton1.Checked = true) or (RadioButton2.Checked = true) or

(RadioButton3.Checked = true) then

begin

if tel<> '' then

begin

form1.adoquery1.SQL.Clear;

form1.adoquery1.Active := false;

form1.adoquery1.SQL.Text := 'insert into Куплено (' + columfio +

',' + columname + ',' + columkolvo + ',' + columtype + ',' +

columtel + ') values (' + QuotedStr(fullname) + ',' +

QuotedStr(name) + ',' + QuotedStr(kolvo) + ',' + QuotedStr(tipe)

+ ',' + QuotedStr(tel) + ')';

form1.adoquery1.ExecSQL;

showmessage('Заказбилетауспешнодобавленвбазуданных');

end

else

showmessage('Вы не ввели контактный телефон');

end

else

showmessage('Выбиритетипбилетов');

end

else

showmessage('Вы не выбрали количество билетов');

end

else

showmessage('ВыневвелиОтчество');

end

else

showmessage('Вы не ввели Имя');

end

else

showmessage('ВыневвелиФамилия');

end;

procedure TForm2.Edit1Click(Sender: TObject);

begin

Edit1.Clear;

end;

procedure TForm2.Edit2Click(Sender: TObject);

begin

Edit2.Clear;

end;

procedure TForm2.Edit3Click(Sender: TObject);

begin

Edit3.Clear;

end;

procedure TForm2.Edit4Click(Sender: TObject);

begin

Edit4.Clear;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Visible := true;

Form2.ADODataSet1.Active := false;

Form2.ADODataSet1.CommandText := '';

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

ADODataSet1.Active := false;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids,

StdCtrls, Menus, DBCtrls, unit1, Mask;

type

TForm3 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Edit1: TEdit;

Label3: TLabel;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

ComboBox1: TComboBox;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var

kupili, vsego, numer: integer;

name, tipe: string;

begin

form1.adoquery1.SQL.Clear;

form1.adoquery1.Active := false;

name := DBLookupComboBox1.Text;

tipe := ComboBox1.Text;

if (tipe = 'Обычных') or (tipe = 'Первого_ряда') or (tipe = 'VIP') then

begin

if tipe = 'Обычных' then

tipe := 'Обычные';

iftipe = 'Первого_ряда' then

tipe := 'Первые_ряды';

form1.adoquery1.SQL.Text :=

'selectsum(Купил_билетов) from Куплено whereТип_билетов=' +

(QuotedStr(tipe)) + ' and Название_Концерта=' + (QuotedStr(name)) + '';

form1.adoquery1.Active := true;

kupili := form1.adoquery1.FieldByName('Expr1000').asinteger;

form1.adoquery1.SQL.Clear;

form1.adoquery1.Active := false;

form1.adoquery1.SQL.Text :=

'selectНомерfromКонцертыwhereНазвание_концерта=' +

(QuotedStr(name)) + '';

form1.adoquery1.Active := true;

numer := form1.adoquery1.FieldByName('Номер').asinteger;

form1.adoquery1.SQL.Clear;

form1.adoquery1.Active := false;

if tipe = 'Обычные' then

tipe := 'Обычные';

iftipe = 'Первые_ряды' then

tipe := 'Первые_ряды';

if tipe = 'VIP' then

tipe := 'VIP';

form1.adoquery1.SQL.Text := 'select ' + tipe + ' from Билетов where Номер='

+ inttostr(numer) + '';

form1.adoquery1.Active := true;

vsego := form1.adoquery1.FieldByName(tipe).asinteger;

form1.adoquery1.SQL.Clear;

form1.adoquery1.Active := false;

Edit1.Text := inttostr(vsego - kupili);

end;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Visible := true;

end;

end.

unit Unit4;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, unit1, Vcl.StdCtrls, Vcl.DBCtrls,

Data.DB, Data.Win.ADODB;

type

TForm4 = class(TForm)

Button1: TButton;

DBLookupComboBox1: TDBLookupComboBox;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var

name: string;

nomer: integer;

begin

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

name := DBLookupComboBox1.Text;

form1.ADOQuery1.SQL.Add('select Номер from концерты where Название_концерта='

+ quotedstr(name) + '');

form1.ADOQuery1.Active := true;

nomer := form1.ADOQuery1.FieldByName('Номер').asinteger;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('delete from Концерты where Название_Концерта=' +

quotedstr(name) + '');

form1.ADOQuery1.ExecSQL;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('delete from Билетов where Номер=' +

inttostr(nomer) + '');

form1.ADOQuery1.ExecSQL;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('delete from Цены where Номер=' +

inttostr(nomer) + '');

form1.ADOQuery1.ExecSQL;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

showmessage('Концерт удален из базы данных');

// DELETE FROM <Имя Таблицы> WHERE <Условие отбора записей>

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Visible := true;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids,

StdCtrls, Menus, DBCtrls, unit1, Mask;

type

TForm5 = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Edit1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

var

sql: string;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

form1.ADOQuery1.sql.Clear;

form1.ADOQuery1.Active := false;

sql := Edit1.Text;

form1.ADOQuery1.sql.Text := '' + sql + '';

if Edit1.Text <> '' then

form1.ADOQuery1.ExecSQL

else

showmessage('Вы не ввели sql запрос.');

end;

procedure TForm5.Edit1Click(Sender: TObject);

begin

Edit1.Clear;

end;

end.

unit Unit6;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.DBCtrls,

Vcl.StdCtrls, unit1;

type

TForm6 = class(TForm)

Button1: TButton;

DBLookupComboBox1: TDBLookupComboBox;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

var

name: string;

begin

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

name := DBLookupComboBox1.Text;

form1.ADOQuery1.SQL.Add('delete from Куплено where ФИО=' +

quotedstr(name) + '');

form1.ADOQuery1.ExecSQL;

showmessage('Заказ удален из базы данных');

end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.visible := true;

end;

end.

unit Unit7;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, unit1, Vcl.ExtCtrls, Vcl.DBCtrls,

Vcl.StdCtrls, Data.DB, Data.Win.ADODB, Vcl.Mask;

type

TForm7 = class(TForm)

Добавить: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ДобавитьClick(Sender: TObject);

procedure Edit1Click(Sender: TObject);

procedure Edit2Click(Sender: TObject);

procedure Edit3Click(Sender: TObject);

procedure Edit4Click(Sender: TObject);

procedure Edit5Click(Sender: TObject);

procedure Edit6Click(Sender: TObject);

procedure Edit7Click(Sender: TObject);

procedure Edit8Click(Sender: TObject);

procedure Edit9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Edit1Click(Sender: TObject);

begin

Edit1.Clear;

end;

procedure TForm7.Edit2Click(Sender: TObject);

begin

Edit2.Clear;

end;

procedure TForm7.Edit3Click(Sender: TObject);

begin

Edit3.Clear;

end;

procedure TForm7.Edit4Click(Sender: TObject);

begin

Edit4.Clear;

end;

procedure TForm7.Edit5Click(Sender: TObject);

begin

Edit5.Clear;

end;

procedure TForm7.Edit6Click(Sender: TObject);

begin

Edit6.Clear;

end;

procedure TForm7.Edit7Click(Sender: TObject);

begin

Edit7.Clear;

end;

procedure TForm7.Edit8Click(Sender: TObject);

begin

Edit8.Clear;

end;

procedure TForm7.Edit9Click(Sender: TObject);

begin

Edit9.Clear;

end;

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Visible := true;

end;

procedure TForm7.ДобавитьClick(Sender: TObject);

var

n: array [1 .. 9] of string;

i: integer;

begin

n[1] := Edit1.Text;

n[2] := Edit2.Text;

n[3] := Edit3.Text;

n[4] := Edit4.Text;

n[5] := Edit5.Text;

n[6] := Edit6.Text;

n[7] := Edit7.Text;

n[8] := Edit8.Text;

n[9] := Edit9.Text;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Text :=

'insert into Концерты (Название_концерта,Адрес,Дата) values (' +

QuotedStr(n[1]) + ',' + QuotedStr(n[2]) + ',' + QuotedStr(n[3]) + ')';

form1.ADOQuery1.ExecSQL;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Text :=

'insertinto Цены (Цена_за_VIP,Цена_за_Первые_ряды,Цена_за_Обычные_ряды) values ('

+ QuotedStr(n[4]) + ',' + QuotedStr(n[5]) + ',' + QuotedStr(n[6]) + ')';

form1.ADOQuery1.ExecSQL;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Text :=

'insert into Билетов (VIP,Первые_ряды,Обычные) values (' + QuotedStr(n[7]) +

',' + QuotedStr(n[8]) + ',' + QuotedStr(n[9]) + ')';

form1.ADOQuery1.ExecSQL;

end;

end.

unit Unit8;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, unit1;

type

TForm8 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Edit1: TEdit;

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

var

tablename, columnname, poisk: string;

begin

tablename := ComboBox1.Text;

columnname := ComboBox2.Text;

poisk := Edit1.Text;

form1.ADOQuery1.Active := false;

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('select * from ' + tablename + ' where ' + columnname

+ ' like ' + quotedstr('%' + poisk + '%') + '');

form1.ADOQuery1.Active := TRUE;

end;

procedure TForm8.ComboBox1Change(Sender: TObject);

var

column: string;

begin

ComboBox2.Items.Clear;

column := Form8.ComboBox1.Text;

form1.ADOConnection1.GetFieldNames(column, Form8.ComboBox2.Items);

end;

end.

unit Unit9;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, unit1, Vcl.StdCtrls;

type

TForm9 = class(TForm)

Memo1: TMemo;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Visible := true;

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Опрограмме: ');

Memo1.Lines.Add('');

Memo1.Lines.Add('Данная программа «Коцертные программы города» ver. 1.0');

Memo1.Lines.Add('предназначена для хранения, добавления, удаления сведений');

Memo1.Lines.Add('о предстоящих концертах и проданных на них билетах.');

Memo1.Lines.Add('Целью ее создания было упрощение работы кассовых аппаратов');

Memo1.Lines.Add('кинотеатров,театров,фестивалей и друих рыночных учреждений');

Memo1.Lines.Add('');

Memo1.Lines.Add('Вы можете приорести эту программу связавшись с автором');

Memo1.Lines.Add('E-Mail: skutorlike@mail.ru - Сергей Алексеевич');

end;

end.

unit Unit10;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, unit1, Vcl.StdCtrls;

type

TForm10 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Visible := true;

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add

('Данная программа является частной собствченностью ее создателя');

Memo1.Lines.Add('----');

Memo1.Lines.Add('Кутырова Сергея Алексеевича.');

Memo1.Lines.Add(' ');

Memo1.Lines.Add('Любое использование программы, просмотр исходного кода,');

Memo1.Lines.Add(' а также копирование данных программы');

Memo1.Lines.Add('без письменного согласия автора');

Memo1.Lines.Add('расценивается как нарушение авторских прав!');

Memo1.Lines.Add('Нарушение авторских прав преследуется по закону РФ!');

end;

end.

2