[]Criando sessão de pedidos

[paulo_roll 0]

Boa tarde

Estou com uma dúvida em relação a criação de pedidos no delphi.

Na dbLookUpComboBox (imagem abaixo) lista todos os clientes

Gostaria de quando inclui o 1º produto, criar uma sessão da compra com

o maior número do banco de dados(estrutura do banco na imagem abaixo)

, sendo que esse número tem que ser incluido a cada produto inserido, pois um cliente pode pedir mais

de um produto por pedido, ou seja, identificar todos os produtos do pedido por uma ID, o problema é

manter esse número e com a possibilidade de cancelar no meio da compra.

Segue o banco de dados

[Pantoja 5]

mostre-nos seu código ja feito ate o momento...

[paulo_roll 0]

Esse é o Código do form da primeira imagem exibida, o form que gera o pedido, como faço o pedido com sua identificação?

CODE

unit Unit5;

 

interface

 

uses

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

Dialogs, DBCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, Spin;

 

type

TForm5 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

ADOQuery2id: TAutoIncField;

ADOQuery2nome: TWideStringField;

ADOQuery2valor: TIntegerField;

ADOQuery2form_calc: TWideStringField;

DBLookupComboBox2: TDBLookupComboBox;

edQuantidade: TSpinEdit;

edAltura: TEdit;

Label2: TLabel;

edLargura: TEdit;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

DBGrid1: TDBGrid;

Label5: TLabel;

DataSource3: TDataSource;

ADOQuery3: TADOQuery;

AutoIncField1: TAutoIncField;

WideStringField1: TWideStringField;

IntegerField1: TIntegerField;

WideStringField2: TWideStringField;

Label6: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form5: TForm5;

 

implementation

 

{$R *.dfm}

 

procedure TForm5.Button1Click(Sender: TObject);

begin

{with ADOQuery3 do

begin

sql.Clear;

sql.Text := 'Select max (pedidos) from pedidos';

parameters. //falta pegar o id para gerar uma sessão

sql.Clear;

sql.Text := 'Insert into pedidos(id_pedido,id_cliente,id_produto,altura,largura,quantidade) values(:id_pedido,:id_cliente,:id_produto,:altura,:largura,:quantidade)';

parameters.ParamByName('id_pedido') :=;

parameters.ParamByName('id_cliente') := DBLookupcombobox1.keyvalue;

parameters.ParamByName('id_produto') := DBLookupcombobox2.keyvalue;

parameters.ParamByName('altura') := edAltura.Text;

parameters.ParamByName('largura') := edLargura.Text;

parameters.ParamByName('quantidade') := edQuantidade.text;

end; }

end;

 

procedure TForm5.FormCreate(Sender: TObject);

begin

 

end;

 

end.