Автоматизированное рабочее место заведующего складом торгового предприятия

begin

if MessageDlg ('Удалить запись?', mtConfirmation, [mbYes, mbNo], 0)

= mrNO then Abort;

Form1.MebelName.Delete;

end;

procedure TForm1.N4Click(Sender: TObject); {сохранение изменений}

begin

if MessageDlg ('Сохранить изменения?', mtConfirmation, [mbYes, mbNo], 0)

= mrNO then Abort;

if Form1.MebelName.Modified then

Form1.MebelName.Post;

end;

procedure TForm1.N6Click(Sender: TObject); {сортировка по цене}

begin

Form1.MebelName.IndexFieldNames:= 'MebelNameCena';

end;

procedure TForm1.N7Click(Sender: TObject); {сортировка по материалу}

begin

Form1.MebelName.IndexFieldNames:= 'MebelNameMaterial';

end;

procedure TForm1.N8Click(Sender: TObject); {сортировка по количеству}

begin

Form1.MebelName.IndexFieldNames:= 'MebelNameKolichestvo';

end;

procedure TForm1.N11Click(Sender: TObject); {закрытие программы}

begin

Close;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form2.Show; {открытие окна поиска}

Form2.pnl1.Show; {вызов панели поиска}

Form1.Hide; {cкрытие главного окна}

end;

procedure TForm1.N10Click(Sender: TObject);

{закрывает главное окно, открывает окно с диаграммами}

begin

form1.Hide; {скрытие главного окна}

form4.Show; {открытие окна диаграмм}

end;

procedure TForm1.N2Click(Sender: TObject);

{сортировка по цене, материалу и количеству}

begin

Form1.MebelName.Insert;

Form1.MebelName.FieldByName(DBGrid1.Columns.Items[1].DisplayName).AsString := Self.Edit1.Text;

Form1.MebelName.FieldByName(DBGrid1.Columns.Items[2].DisplayName).AsString := Self.Edit2.Text;

Form1.MebelName.FieldByName(DBGrid1.Columns.Items[3].DisplayName).AsString := Self.Edit3.Text;

Form1.MebelName.FieldByName(DBGrid1.Columns.Items[4].DisplayName).AsString := Self.Edit4.Text;

Form1.MebelName.FieldByName(DBGrid1.Columns.Items[5].DisplayName).AsString := Self.Edit5.Text;

Form1.MebelName.Post;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, DB, Grids, DBGrids, ADODB, ExtCtrls, StdCtrls, jpeg;

type

TForm2 = class(TForm)

con1: TADOConnection;

tblMebelName: TADOTable;

dbgrd1: TDBGrid;

ds1: TDataSource;

Label2: TLabel;

edt1: TEdit;

rb1: TRadioButton;

rb2: TRadioButton;

rb3: TRadioButton;

Button1: TButton;

btn1: TButton;

btn2: TButton;

Image1: TImage;

Label1: TLabel;

pnl1: TPanel;

atncfldMebelNameDSDesigner: TAutoIncField;

tblMebelNameDSDesigner2: TWideStringField;

tblMebelNametblMebelNameDSDesigner3: TWideStringField;

tblMebelNameDSDesigner4: TIntegerField;

tblMebelNameDSDesigner5: TIntegerField;

tblMebelName_: TWideStringField;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);

begin

if rb1.Checked then {поиск по товару}

begin

if Edt1.Text='' then exit;

Form2.tblMebelName.Filtered := false;

Form2.tblMebelName.Filter := 'tblMebelNameDSDesigner2 LIKE ''*' + Edt1.Text + '*''';

Form2.tblMebelName.Filtered := true;

end;

if rb2.Checked then {поиск по материалу}

begin

if Edt1.Text='' then exit;

Form2.tblMebelName.Filtered := false;

Form2.tblMebelName.Filter := 'tblMebelNameDSDesigner3 LIKE ''*' + Edt1.Text + '*''';

Form2.tblMebelName.Filtered := true;

end;

if rb3.Checked then {поиск по стране производителя}

begin

if Edt1.Text='' then exit;

Form2.tblMebelName.Filtered := false;

Form2.tblMebelName.Filter := 'tblMebelName_ LIKE ''*' + Edt1.Text + '*''';

Form2.tblMebelName.Filtered := true;

end;

end;

end.

Размещено на Allbest.ru