Розробка програмного забезпечення “Бюро знайомств”

    procedure FormCreate(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation 

{$R *.dfm} 

procedure TForm3.FormCreate(Sender: TObject); //прцедура обработки события при создании формы Form3

begin

table1.Open;//Открытие  таблицы table1

end; 

procedure TForm3.BitBtn1Click(Sender: TObject);//Процедура обработки клика  кнопки "Удалить"

begin

table1.Delete;//Удаление текущей строки в таблице Table1

end; 

procedure TForm3.Button2Click(Sender: TObject);//Процедура обработки клика  кнопки "Выход"

begin

Close;//Закрытие Form3

end; 
 

procedure TForm3.Edit1Change(Sender: TObject);

begin

Try                                       //Задействование обработчика ошибок

Table1.FindKey([strtoint(edit1.Text)]);   //Поиск по индексу (ставит курсор в таблице ближе всего находящейся к искомому значению)

except

Showmessage('Не верный параметр для поиска'); //в солучае возникновения ошибки будет дано сообщение

end;

end; 

end. 
 
 
 

 
 
 
 
 
 
 

unit Unit4; 

interface 

uses

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

  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables; 

type

  TForm4 = class(TForm)

    Table1: TTable;

    Table2: TTable;

    Table3: TTable;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

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

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form4: TForm4; 

implementation 

uses Unit6; 

{$R *.dfm} 

procedure TForm4.Button2Click(Sender: TObject);

begin

close;

end; 

procedure TForm4.Button1Click(Sender: TObject);//Процедура обработки клика  кнопки "Занести в архив"

begin

//table1.Open;

//table2.Open;

table1.DisableControls;//Отмена слежения за изменениями в таблице Table1

table2.DisableControls;//Отмена слежения за изменениями в таблице Table2

table3.Open;//Открываем таблицу Table3

table3.Append;//Добавляем в конец таблицы новую строку

table3.FieldByName('reg').AsInteger:=table1.FieldByName('reg').AsInteger;//копируем в поле "REG" таблицы Table3 значение поля "REG" таблицы Table1

table3.FieldByName('date').Asdatetime:=table1.FieldByName('date').Asdatetime;//копируем в поле "DATE" таблицы Table3 значение поля "DATE" таблицы Table1

table3.FieldByName('pol').Asstring:=table1.FieldByName('pol').Asstring;//копируем в поле "POL" таблицы Table3 значение поля "POL" таблицы Table1

table3.FieldByName('osebe').AsVariant:=table1.FieldByName('osebe').AsVariant;//копируем в поле "OSEBE" таблицы Table3 значение поля "OSEBE" таблицы Table1

table3.FieldByName('treb').AsVariant:=table1.FieldByName('treb').AsVariant;//копируем в поле "TREB" таблицы Table3 значение поля "TREB" таблицы Table1

table3.FieldByName('name').Asstring:=table1.FieldByName('name').Asstring;//копируем в поле "NAME" таблицы Table3 значение поля "NAME" таблицы Table1

table3.FieldByName('family').Asstring:=table1.FieldByName('family').Asstring;//копируем в поле "FAMILY" таблицы Table3 значение поля "FAMILY" таблицы Table1

table3.FieldByName('father').Asstring:=table1.FieldByName('Father').Asstring;//копируем в поле "FATHER" таблицы Table3 значение поля "FATHER" таблицы Table1

table3.Post;//Сохраняем изменения в таблице Table3

table3.Append;//Добавляем в конец таблицы новую строку

table3.FieldByName('reg').AsInteger:=table2.FieldByName('reg').AsInteger;//копируем в поле "REG" таблицы Table3 значение поля "REG" таблицы Table2

table3.FieldByName('date').Asdatetime:=table2.FieldByName('date').Asdatetime;//копируем в поле "DATE" таблицы Table3 значение поля "DATE" таблицы Table2

table3.FieldByName('pol').Asstring:=table2.FieldByName('pol').Asstring;//копируем в поле "POL" таблицы Table3 значение поля "POL" таблицы Table2

table3.FieldByName('osebe').AsVariant:=table2.FieldByName('osebe').AsVariant;//копируем в поле "OSEBE" таблицы Table3 значение поля "OSEBE" таблицы Table2

table3.FieldByName('treb').AsVariant:=table2.FieldByName('treb').AsVariant;//копируем в поле "TREB" таблицы Table3 значение поля "TREB" таблицы Table2

table3.FieldByName('name').Asstring:=table2.FieldByName('name').Asstring;//копируем в поле "NAME" таблицы Table3 значение поля "NAME" таблицы Table2

table3.FieldByName('family').Asstring:=table2.FieldByName('family').Asstring;//копируем в поле "FAMILY" таблицы Table3 значение поля "FAMILY" таблицы Table2

table3.FieldByName('father').Asstring:=table2.FieldByName('Father').Asstring;//копируем в поле "FATHER" таблицы Table3 значение поля "FATHER" таблицы Table2

table3.Post;//Сохраняем изменения в таблице Table3

Button3Click(Sender);//Вызов  процедуры Button3Click(см ниже)

table1.Delete;//Удаляем текущую строку из таблицы TABLE1

table2.Delete;//Удаляем текущую строку из таблицы TABLE2

table1.EnableControls;//Возобновляем контроль над таблицей TABLE1

table2.EnableControls;//Возобновляем контроль над таблицей TABLE2

table1.Refresh;//Обновляем данные в таблице Table1

table2.Refresh;//Обновляем данные в таблице Table1 

end; 

procedure TForm4.FormShow(Sender: TObject); //При показе формы Form4 выполняются действия:

begin

table1.Open;//открытие  таблицы Table1

table2.Open;//открытие  таблицы Table2

end; 

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);//При закрытии  формы Form4 выполняются действия:

begin

table1.Close;//Закрытие  таблицы Table1

table2.Close;//Закрытие  таблицы Table2

end; 

procedure TForm4.Button3Click(Sender: TObject);//Процедура обработки клика  кнопки "Подготовить приглашение"

var ff:textfile;//Объявление типа файловой переменной

begin

assignfile(ff,'c:\Prigl.txt');  //процедура ассоциации имени файла с файловой переменной FF

rewrite(ff);//Перезапись файла

Writeln(ff,'Приглашение в кафе "Ночной Тарзан"');//Добавляем строку в файл

Writeln(ff,'На вечер знакомства с '+table1.fieldbyname('Family').asstring+' '+table1.fieldbyname('Name').asstring);//Добавляем строку в файл со значениями некоторых полей из таблиц Table1 и Table2

Writeln(ff,' и '+table2.fieldbyname('Family').asstring+' '+table2.fieldbyname('Name').asstring);

closefile(ff);//Закрытие  файла

form6.Memo1.Lines.LoadFromFile('c:\Prigl.txt');//Заполняем  текстовое поле Memo1 в окне формы  6 содержимым только что сохранненого файла

form6.ShowModal;//показ  формы Form6. Форма открывается в режиме при котором другие формы не доступны

end;

end. 
 

 
 

unit Unit5; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, DB, DBTables, Grids,

  DBGrids; 

type

  TForm5 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Table1: TTable;

    Panel1: TPanel;

    DBMemo1: TDBMemo;

    DBMemo2: TDBMemo;

    BitBtn1: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

{$R *.dfm} 

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

close;//закрытие  формы Form5

end; 

end. 

 
 
 
 
 
 
 
 

unit Unit6; 

interface 

uses

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

  Dialogs, StdCtrls, ExtCtrls; 

type

  TForm6 = class(TForm)

    Memo1: TMemo;

    Panel1: TPanel;

    Button1: TButton;

    Button2: TButton;

    SaveDialog1: TSaveDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form6: TForm6; 

implementation 

{$R *.dfm} 

procedure TForm6.Button1Click(Sender: TObject);

begin

if SaveDialog1.Execute then memo1.Lines.SaveToFile(SaveDialog1.FileName);//Открываем окно диалога сохранения файла и сохраняем текстовую область Memo1 в указанный файл

end; 

procedure TForm6.Button2Click(Sender: TObject);

begin

Close;//Закрытие  формы

end; 

end. 
 

 
 
 
 

unit Unit7; 

interface 

uses

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

  Dialogs, StdCtrls, ExtCtrls; 

type

  TForm7 = class(TForm)

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    Panel1: TPanel;

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);