Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

procedure TForm1.FormShow(Sender: TObject);

begin

Form5.Table1.DatabaseName:=DataBase;

Form5.Table1.TableName:='putanya_OC.db';

Form5.DataSource1.DataSet:=Form5.Table1;

Form5.Table1.Active:=true;

end;

end.

_____________________________________________________________

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

BitBtn1: TBitBtn;

GroupBox1: TGroupBox;

procedure BitBtn1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }