Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

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.

[pic]

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.

Рекомендуем скачать другие рефераты по теме: стандарты реферата, налогообложение реферат как правильно реферат.





Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата