Рекомендована структура для виконання дипломної роботи 4 страница

Form1.MyQuery1.SQL.Clear;//очистка запроса

Form1.MyQuery1.SQL.Add('SHOW TABLES');//показати таблиці

Form1.MyConnection1.Connected:= true;//зеднання

Form1.MyQuery1.Active:= true;//включення керуючого елементу для запиту

Form1.DBGrid1.Tag:= 1;//присвоеня значеня 1

end;//закривае операторну дужку

if tag_grid = 1 then

if Form1.MyQuery1.RecordCount = 0 then

begin//Відкриває операторну дужку

Form1.Memo2.Lines.Text:= 'Пустая база данных или таблица';

Form1.Memo2.Visible:= true;//умова показуеця

Form1.MyQuery1.Active:= false;//вімкненя керуючого елементу для запиту

Form1.DBGrid1.Visible:= false//умова показуеця

end//закривае операторну дужку

else//інакше

begin//Відкриває операторну дужку

//menus_name:= 'Tables_in_'+db_name;

table_name:= Form1.DBGrid1.DataSource.DataSet.FieldByName('Tables_in_'+Form1.MyConnection1.Database).AsString;//вилучення із списку таблиць по назві бд

Form1.Memo1.Lines.Add('выбрана таблица: '+table_name);

Form1.MyQuery1.Active:= false;//вімкненя керуючого елементу для запиту

Form1.MyQuery1.SQL.Clear;//очистка запроса

Form1.MyQuery1.SQL.Add('SET NAMES cp1251; SELECT * FROM '+table_name+';');

Form1.MyQuery1.Active:= true;//включення керуючого елементу для запиту

Form1.DBGrid1.Tag:= 2;

end;//закривае операторну дужку

if Form1.DBGrid1.Tag = 2 then

begin//Відкриває операторну дужку

Form1.Button3.Visible:= true;//відкриття кнопки 3

Form1.Button5.Visible:= true;//відкриття кнопки 3

Form1.Button6.Visible:= true;//відкриття кнопки 3

end//закривае операторну дужку

else//інакше

begin//Відкриває операторну дужку

Form1.Button3.Visible:= false;//відкриття кнопки 3

Form1.Button5.Visible:= false;//відкриття кнопки 3

Form1.Button6.Visible:= false;//відкриття кнопки 3

end;//закривае операторну дужку

end;//закривае операторну дужку

procedure TForm1.Button3Click(Sender: TObject);//кнопка зберегти

begin//Відкриває операторну дужку

// Form1.DBGrid1.Focused:= false;

Form1.DBGrid1.SelectedRows.Refresh;//оновлення даних в DBGrid1

end;//закривае операторну дужку

procedure TForm1.Button4Click(Sender: TObject);//кнопка лог дій

begin//Відкриває операторну дужку

if Form1.Panel2.Tag = 0 then

begin//Відкриває операторну дужку

Form1.Panel2.Visible:= true;//показ елементу

Form1.Splitter1.Visible:= true;//показ елементу

Form1.Panel2.Tag:= 1;//присвоення змінної

end//закривае операторну дужку

else//інакше

begin//Відкриває операторну дужку

Form1.Panel2.Visible:= false;//скритий елемент

Form1.Splitter1.Visible:= false;//скритий елемент

Form1.Panel2.Tag:= 0;//присвоення змінної

end;//закривае операторну дужку

end;//закривае операторну дужку

procedure TForm1.Button5Click(Sender: TObject);//кнопка додати поле

begin//Відкриває операторну дужку

Form1.MyQuery1.Insert;//додавання пустого запису в таблицю

end;//закривае операторну дужку

procedure TForm1.Button6Click(Sender: TObject);//кнопка видалити поле

begin//Відкриває операторну дужку

Form1.MyQuery1.Delete;//видалити поле в таблиці

end;//закривае операторну дужку

procedure TForm1.Button7Click(Sender: TObject);//кнопка ввести запит

begin//Відкриває операторну дужку

form1.MyQuery1.Active:=false;//вімкненя керуючого елементу для запиту

form1.MyQuery1.SQL.Clear;//очистка запроса

form1.MyQuery1.SQL.Add(form1.Edit1.Text);//додати запит sql

form1.MyQuery1.Active:=true//включення керуючого елементу для запиту

end;//закривае операторну дужку

procedure TForm1.Button8Click(Sender: TObject);//кнопка вивести звіт

begin//Відкриває операторну дужку

Form2.Show;//показати форму 2

Form2.frxReport1.ShowReport;//показати звіт

end;//закривае операторну дужку

procedure TForm1.Button9Click(Sender: TObject);//кнопка відправити на друк

begin//Відкриває операторну дужку

Form2.Show;//показати форму 2

Form2.frxReport1.ShowReport;//показати звіт

Form2.frxReport1.Print;//відправити на друк

end;//закривае операторну дужку

end.//закривае операторну дужку

Додаток Б

unit Unit2;

interface

uses

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

Dialogs, frxClass, frxPreview, frxDBSet, frxExportTXT;

type

TForm2 = class(TForm)

frxReport1: TfrxReport;

frxDBDataset1: TfrxDBDataset;

frxPreview1: TfrxPreview;

frxTXTExport1: TfrxTXTExport;

private

{ Private declarations }

public

{ Public declarations }

end; //закривае операторну дужку

var

Form2: TForm2;

implementation

{$R *.dfm}

end..//закривае операторну дужку

Дата добавления: 2015-07-13