كيف التعامل مع PageControls في دلفي في برنامج مبيعات

[anter2016]

السلام عليكم
عندي فورم رئسي به زر اضافة عملية بيع الفورم يحتوي على PageControls
كيف عند الضغط على الزر يظهر Onglesاسمه مثلا vente no:1
في نفس الوقت عند الضغط على نفس الزر يظهرonglesجديد Vente no2: 
هذا عملته لكن المشكلة في اذا كان الوصل الاول به منتجات وتركته للعودة اليه بعد ان انشأة  onglesجديد يظهربرقم جديد الوصل الاول والثاني هل من فكرة لجعل كل وصل به منتوجاته الخاصة

كود :

هذه محاواتي http://www.mediafire.com/file/zuuct83874yim9m/SALE.rar

[anter2016]

السلام عليكم
عندي فورم رئسي به زر اضافة عملية بيع الفورم يحتوي على PageControls
كيف عند الضغط على الزر يظهر Onglesاسمه مثلا vente no:1
في نفس الوقت عند الضغط على نفس الزر يظهرonglesجديد Vente no2: 
هذا عملته لكن المشكلة في اذا كان الوصل الاول به منتجات وتركته للعودة اليه بعد ان انشأة  onglesجديد يظهربرقم جديد الوصل الاول والثاني هل من فكرة لجعل كل وصل به منتوجاته الخاصة

كود :

هذه محاواتي http://www.mediafire.com/file/zuuct83874yim9m/SALE.rar

السلام عليكم

كيفية عمل sql query في جملة من فضلكم

كود :

dm.OPERATIONS.Insert; dm.OPERATIONSID.AsInteger := dm.OPERATIONS.RecordCount +1 ; dm.OPERATIONSTYPE.AsString := 'SALE'; dm.OPERATIONSOP_DATE.AsDateTime := TDateTime(Now); dm.OPERATIONS.Post;

[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته
ماذا تقصد بوضع sql في جملة؟

[anter2016]

السلام عليكم ورحمة الله وبركاته
اريد كتابته على شكل

كود :

procedure TForm1.Button1Click(Sender: TObject); begin  with Query1 do  begin    Active:=False;    SQL.Clear;    SQL.Add('Insert into OPERATIONS(TYPE,DATE) values(''SALE'', ''DATE'')');    ExecSQL;  end;  Table1.Refresh; end; في الحقيقة انا لم استعمل جمل SQL ابدا واريد طريقة عمل AUTOINC و الادخال ب EDIT.TEXT 

كود :

procedure TForm1.Button4Click(Sender: TObject); begin   with Query1 do begin SQL.Clear; SQL.Add('INSERT INTO OPERATIONS (TYPE,OP_DATE)'); SQL.Add('VALUES(:TYPE, :DATE)'); params.ParamByName('TYPE').Value := edtType.Text; params.ParamByName('OP_DATE').Value := edtDate.Text; ExecSQL; SQL.Clear; SQL.Text := 'SELECT * FROM OPERATIONS '; Open; end; end;

---

هنا ينقص الادخال AUTOINC

PHP كود :

procedure TForm1.Button4Click(Sender: TObject);
begin
with ABSQuery1 do
begin
 SQL.Clear;
 SQL.Add('INSERT INTO OPERATIONS  (CustomersID,SupplierID,TYPE, OP_DATE)');
 SQL.Add(' VALUES (:CustomersID,:SupplierID,:TYPE, :OP_DATE)');
 Params.ParamByName('CustomersID').Value := edtCUST.Text;
 Params.ParamByName('SupplierID').Value := edtSUPPL.Text;
 Params.ParamByName('TYPE').Value := edtTYPE.Text;
 Params.ParamByName('OP_DATE').Value := edtOP_DATE.Text;
 ExecSQL;
 SQL.Clear;
 SQL.Text := 'SELECT * FROM OPERATIONS ';
 Open;
end;
end; 


[Delphi4Us]

كود :

SQL.Clear; SQL.Add('INSERT INTO OPERATIONS (id,TYPE,OP_DATE)'); SQL.Add('VALUES(:id,:TYPE, :OP_DATE)'); params.ParamByName('id').Value := dm.OPERATIONS.RecordCount +1; params.ParamByName('TYPE').Value := edtType.Text; params.ParamByName('OP_DATE').Value := edtDate.Text; ExecSQL;