Информационная система «Видеопрокат»

  var Accept: Boolean);

begin

accept := DataSet['VIN']=Edit3.Text;

end;

procedure TFormKonsultant.RadioGroup2Click(Sender: TObject);

begin

FormKonsultant.ADOTable1.Filtered:=false;

case radiogroup2.ItemIndex of

0:begin

FormKonsultant.ADOTable1.First;

  end;

1:begin

FormKonsultant.ADOTable1.Next;

  end;

2:begin

FormKonsultant.ADOTable1.Prior;

  end;

3:begin

FormKonsultant.ADOTable1.Last;

  end;

end;

end;

end.

Программный код формы “Регистрация нового клиента ”

unit NewPokupat;

interface

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls, DB, Grids, DBGrids, ADODB, ComCtrls;

type

  TFormNewPokupat = class(TForm)

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    OK: TButton;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    ADOTable1DSDesigner: TWideStringField;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner4: TWideStringField;

    ADOTable1DSDesigner9: TWideStringField;

    ADOTable1DSDesigner5: TWideStringField;

    Box: TComboBox;

    Label13: TLabel;

    Button1: TButton;

    MonthCalendar1: TMonthCalendar;

    procedure OKClick(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

    procedure BoxChange(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormNewPokupat: TFormNewPokupat;

implementation

uses Pokupat,ras,report;

{$R *.dfm}

procedure TFormNewPokupat.OKClick(Sender: TObject);

begin

   formPokupat.ADOTable1.Post;

   formNewPokupat.Close;

end;

procedure TFormNewPokupat.DBGrid1DblClick(Sender: TObject);

begin

Dbedit5.Text:=ADOTable1DSDesigner.Text;

Dbedit6.Text:=ADOTable1DSDesigner2.Text;

Dbedit11.Text:=ADOTable1DSDesigner3.Text;

Dbedit12.Text:=ADOTable1DSDesigner7.Text;

Dbedit7.Text:=ADOTable1DSDesigner5.Text;

end;

procedure TFormNewPokupat.BoxChange(Sender: TObject);

begin

Dbedit8.Text:=box.Text;

end;

procedure TFormNewPokupat.FormShow(Sender: TObject);

begin

box.Text:='Выбрать...';

end;

procedure TFormNewPokupat.Button1Click(Sender: TObject);

begin

  FormNewPokupat.Close;

end;

procedure TFormNewPokupat.FormCreate(Sender: TObject);

begin

AdoTable1.Open;

end;

end.

Программный код формы “Клиенты”

Unit money;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, Menus, StdCtrls, jpeg, ExtCtrls,

ComCtrls, Buttons;

Type

TFormmoney = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Button1: TButton;

Button2: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

Table2: TTable;

Table3: TTable;

Image1: TImage;

Button3: TButton;

Button4: TButton;

Label1: TLabel;

Table1BDEDesigner: TAutoIncField;

Table1BDEDesigner2: TFloatField;

Table1BDEDesigner3: TStringField;

Table1BDEDesigner4: TIntegerField;

Table1BDEDesigner5: TFloatField;

Table1BDEDesigner6: TFloatField;

Table1BDEDesigner7: TDateField;

Edit1: TEdit;

Edit2: TEdit;

Label2: TLabel;

Label3: TLabel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

MonthCalendar1: TMonthCalendar;

procedure Button1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

procedure Edit1Click(Sender: TObject);

procedure MonthCalendar1DblClick(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations }

end;

var

Formmoney: TFormmoney; 

implementation

{$R *.dfm}

procedure TFormmoney.Button1Click(Sender: TObject);

begin

Formregavto.show;

formmoney.Close;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

table1.FlushBuffers;

table2.FlushBuffers;

table3.FlushBuffers;

end;

procedure TFormmoney.Button2Click(Sender: TObject);

begin

table1.Edit;

table1.Delete;

table1.FlushBuffers;

end;

procedure TFormmoney.Button3Click(Sender: TObject);

begin

table1.Edit;

end;

procedure TFormmoney.Button4Click(Sender: TObject);

begin

form4.showmodal;

end;

end.