“Киімдер дүкені” бағдарламасының баяндалуы

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Label4: TLabel;

    Button2: TButton;

    Edit3: TEdit;

    OpenDialog1: TOpenDialog;

    Button3: TButton;

    Image1: TImage;

    Button4: TButton;

    Edit2: TEdit;

    Button1: TButton;

    Button5: TButton;

    Table1: TTable;

    Table1Kodprodukcii: TAutoIncField;

    Table1Naimenovanie: TStringField;

    Table1Foto: TBlobField;

    Table1Razmer: TStringField;

    Table1Cena: TFloatField;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

implementation

uses Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form2.Hide;

form5.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit3.Text:='';

end;

  procedure TForm2.Button3Click(Sender: TObject);

begin

if opendialog1.execute then image1.picture.loadfromfile(opendialog1.FileName);

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

if (edit1.Text='')or(edit2.Text='')or

   (edit3.Text='') or (edit3.Text='')

   then ShowMessage('Введите данные!') else

begin

Table1.Append;

Table1.FieldByName('naimenovanie').AsString:=Edit1.Text;

Table1.FieldByName('foto').Assign(Image1.Picture);

Table1.FieldByName('razmer').AsString:=Edit2.Text;

Table1.FieldByName('cena').AsInteger:=strtoint(Edit3.Text);

Table1.Post;

end;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

form2.Hide;

form1.Show;

end;

end.

Жеткізілім формасының енгізу коды:

unit Unit3;

interface

uses

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

  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls;

 

type

  TForm3 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Table1: TTable;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit3: TEdit;

    Edit4: TEdit;

    Button1: TButton;

    Button2: TButton;

    Table1Kodpostavki: TAutoIncField;

    Table1Kodprodukcii: TFloatField;

    Table1Datapostavki: TDateField;

    Table1Kodpostavshika: TStringField;

    Table1Kolihestvo: TFloatField;

    Edit1: TEdit;

    Button3: TButton;

    DateTimePicker1: TDateTimePicker;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

implementation

uses Unit2, Unit1, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

  if (edit1.Text='')or

   (edit3.Text='')or (edit4.Text='')

   then ShowMessage('Введите данные!') else

 

begin

Form3.Table1.Append;

Form3.Table1.FieldByName('kod produkcii').AsInteger:=strtoint(Edit1.Text);

Form3.Table1.FieldByName('data postavki').AsDateTime:=DateTimePicker1.Date;

Form3.Table1.FieldByName('kod postavshika').AsString:=Edit3.Text;

form3.table1.fieldbyName('kolihestvo').AsInteger:=strtoint(Edit4.Text);

Form3.Table1.Post;

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit3.Text:='';

edit4.Text:='';

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form3.Hide;

form6.Show;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

form3.Hide;

form1.Show;

end;

end.

Сатылым формасының енгізу коды:

unit Unit4;

interface

uses

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

  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ComCtrls;

type

  TForm4 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Table1: TTable;

    Table1Kodprodaji: TAutoIncField;

    Table1Nomerheka: TFloatField;

    Table1Kodklienta: TFloatField;

    Table1Data: TDateField;

    Table1Kodtovara: TFloatField;

    Button3: TButton;

    DateTimePicker1: TDateTimePicker;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit2, Unit1, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

  if (edit1.Text='')or(edit2.Text='')or

   (edit3.Text='')

   then ShowMessage('Введите данные!') else

begin Form4.Table1.Append;

Form4.Table1.FieldByName('nomer heka').AsInteger:=strtoint(Edit1.Text);

Form4.Table1.FieldByName('kod klienta').AsInteger:=strtoint(Edit2.Text);

Form4.Table1.FieldByName('data').AsDateTime:=DateTimePicker1.Date;

form4.table1.fieldbyName('kod tovara').AsInteger:=strtoint(Edit3.Text);

Form4.Table1.Post;

end;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

form4.Hide;

form7.Show;

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

form4.Hide;

form1.Show;

end;

end.

Жеткізушілер формасының енгізу коды:

unit Unit8;

interface

uses

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

  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type

  TForm8 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Edit3: TEdit;

    Label2: TLabel;

    Label3: TLabel;

    Table1: TTable;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form8: TForm8;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

if (edit1.Text='')or

   (edit2.Text='') or(edit3.Text='')

   then ShowMessage('Введите данные!') else

   begin

Table1.Append;

Table1.FieldByName('family').AsString:=Edit1.Text;

Table1.FieldByName('adres').Asstring:=edit2.text;

Table1.FieldByName('telefon').AsString:=Edit3.Text;

Table1.Post;

end;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

form8.Hide;

form9.Show;

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

form8.Hide;

form1.Show;

end;

end.

Іздеу формасының енгізу коды:

unit Unit11;

interface

uses

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

  Dialogs, StdCtrls, Grids, DBGrids;

type

  TForm11 = class(TForm)

    RadioButton1: TRadioButton;

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form11: TForm11;

implementation

uses Unit2, Unit4, Unit1, Unit10, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked=true then

begin

Form2.Table1.Filter:='Naimenovanie='+''''+Edit1.Text+'''';

Form2.Table1.Filtered:=true;

end;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

end;

procedure TForm11.Button3Click(Sender: TObject);

begin

form11.Hide;

form1.Show;

end;

procedure TForm11.Edit1Change(Sender: TObject);

begin

  Form2.Table1.Filter:='Naimenovanie='+''''+Edit1.Text+'*''';

  Form2.Table1.Filtered:=true;

end;

end.

Бағдарлама жайлы форманың коды:

unit Unit13;

interface

uses

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

  Dialogs, OleCtrls, SHDocVw;

type

  TForm13 = class(TForm)

    WebBrowser1: TWebBrowser;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate('D:\Aigerim\aaaaa\справка.htm');

end;

end.