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

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBDateTimeEditEh1: TDBDateTimeEditEh;

DBEdit5: TDBEdit;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBEdit6: TDBEdit;

Label8: TLabel; procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private

{ Private declarations } public

{ Public declarations } end;

var
Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);//При показе, активации и создании формы Form2 выполняются действия: begin
Table1.Open;//Открывается таблица Table1 table1.Append;//Добавляется в конец таблицы новая строка в таблицу Table1 table1.FieldByName('date').AsDateTime:=date;//Записываем в текущую строку в поле Date сегодняшнее число table1.Post; //Сохранение изменений table1.edit; //Начинаем изменения в таблице Table1 в текущей сторке

end;

procedure TForm2.BitBtn1Click(Sender: TObject);//Процедура обработки клика кнопки "ОК" begin table1.Post; //Сохранение изменений close;//Закрытие формы Form2 end;

procedure TForm2.BitBtn2Click(Sender: TObject); begin table1.Cancel;//отмена изменений table1.Delete;//Удаление текущей строки в таблице Table1 close;//Закрытие формы Form2

end;

procedure TForm2.FormClose(Sender: TObject; var Action:
TCloseAction);//Процедура обработки событя при закрытии формы Form2 begin form3.Table1.Refresh;//Обновление данных в таблице Table1 находящейся на форме Form3 end;

end.

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



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

Поделитесь этой записью или добавьте в закладки