Курсовая работа: Разработка интерактивной системы обработки базы данных ведомости работы расчетно-кассового узла универсама

procedure cmdCancelClick(Sender: TObject);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure DBEdit1Change(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.cmdOKClick(Sender: TObject);

begin

Form1.tTable1.Post;

Form2.Close;

end;

procedure TForm2.cmdCancelClick(Sender: TObject);

begin

Form1.tTable1.Cancel;

Form2.Close;

end;

procedure TForm2.DBLookupComboBox1Click(Sender: TObject);

begin

if DBLookupComboBox1.Text<>'' then

if DBEdit1.Text<>'' then cmdOK.Enabled:=True;