Текст программы

unit About_Pilot;

interface

uses

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

All_Table, DBCtrls, StdCtrls, Buttons, Mask, ExtCtrls;

type

TAboutPilot = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit1: TDBEdit;

BitBtn1: TBitBtn;

BApplyUpdates: TBitBtn;

BCancelUpdates: TBitBtn;

CheckBox1: TCheckBox;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBImage1: TDBImage;

DBMemo1: TDBMemo;

DBCheckBox1: TDBCheckBox;

DBNavigator1: TDBNavigator;

procedure BitBtn1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutPilot: TAboutPilot;

const

modif:boolean = false;

implementation

{$R *.DFM}

procedure TAboutPilot.BitBtn1Click(Sender: TObject);

begin

AboutPilot.Visible:=false;

end;

procedure TAboutPilot.CheckBox1Click(Sender: TObject);

begin

AllTable.Table1.CachedUpdates:=not AllTable.Table1.CachedUpdates;

BApplyUpdates.Enabled:=AllTable.Table1.CachedUpdates;

BCancelUpdates.Enabled:=AllTable.Table1.CachedUpdates;

if AllTable.Table1.CachedUpdates then modif:=false;

end;

end.

unit About_Plane;

interface

uses

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

StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls, All_Table, MainUnit;

type

TAboutPlane = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Panel1: TPanel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBDate: TDBComboBox;

BitBtn2: TBitBtn;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label5: TLabel;

DBImage1: TDBImage;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

BitBtn3: TBitBtn;

DBNavigator1: TDBNavigator;

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutPlane: TAboutPlane;

implementation

uses About_Pilot;

{$R *.DFM}

procedure TAboutPlane.BitBtn3Click(Sender: TObject);

begin

AboutPilot.Visible:=true;

AboutPilot.BApplyUpdates.Enabled:=False;

AboutPilot.BCancelUpdates.Enabled:=False;

end;

procedure TAboutPlane.BitBtn2Click(Sender: TObject);

begin

AboutPlane.Visible:=False;

DBdate.Clear;

end;

end.

unit About_Program;

interface

uses

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

StdCtrls, Buttons, ExtCtrls;

type

TAboutProgram = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutProgram: TAboutProgram;

implementation

{$R *.DFM}

procedure TAboutProgram.BitBtn1Click(Sender: TObject);

begin

Close

end;

end.

unit All_Table;

interface

uses

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

StdCtrls, Buttons, MainUnit, ComCtrls, Tabnotbk, Db, DBTables, DBCtrls,

Grids, DBGrids, ExtCtrls;

type

TAllTable = class(TForm)

TabbedNotebook1: TTabbedNotebook;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

DBImage1: TDBImage;

DataSource1: TDataSource;

Label1: TLabel;

Table1: TTable;

DataSource3: TDataSource;

Table3: TTable;

DBGrid3: TDBGrid;

DBText1: TDBText;

Label2: TLabel;

BApplyUpdates3: TBitBtn;

BCancelUpdates3: TBitBtn;

CheckBox1: TCheckBox;

DBGrid4: TDBGrid;

DataSource4: TDataSource;

Table4: TTable;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Table2: TTable;

DBNavigator1: TDBNavigator;

procedure BitBtn1Click(Sender: TObject);

procedure BApplyUpdates3Click(Sender: TObject);

procedure BCancelUpdates3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AllTable: TAllTable;

const

modif3:boolean = false;

implementation

{$R *.DFM}

procedure TAllTable.BitBtn1Click(Sender: TObject);

begin

AllTable.Visible:=false

end;

procedure TAllTable.BApplyUpdates3Click(Sender: TObject);

begin

Table3.ApplyUpdates;

Table3.CommitUpdates;

modif3:=false;

end;

procedure TAllTable.BCancelUpdates3Click(Sender: TObject);

begin

Table3.CancelUpdates;

modif3:=false

end;

procedure TAllTable.FormCreate(Sender: TObject);

begin

BApplyUpdates3.Enabled:=false;

BCancelUpdates3.Enabled:=false;

Table1.Active:=true;

Table2.Active:=true;

Table3.Active:=true;

Table4.Active:=true;

end;

procedure TAllTable.CheckBox1Click(Sender: TObject);

begin

Table3.CachedUpdates:=not Table3.CachedUpdates;

BApplyUpdates3.Enabled:=AllTable.Table3.CachedUpdates;

BCancelUpdates3.Enabled:=Table3.CachedUpdates;

if Table3.CachedUpdates then modif3:=false;

end;

end.

unit Zapros;

interface

uses

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

Db, DBTables, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons, ComCtrls,

Tabnotbk, All_Table, MainUnit, Spin;