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

procedure TForm3.Edit1Change(Sender: TObject); begin
Try //Задействование обработчика ошибок
Table1.FindKey([strtoint(edit1.Text)]); //Поиск по индексу (ставит курсор в таблице ближе всего находящейся к искомому значению) except
Showmessage('Не верный параметр для поиска'); //в солучае возникновения ошибки будет дано сообщение end; end;

end.

[pic]

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

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





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