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

[pic]

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, Buttons, ExtCtrls, DB,
DBTables;

type
TForm3 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Panel1: TPanel;

DBGrid1: TDBGrid;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel; 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;

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





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