delphi4arab منتديات دلفي للعرب

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

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

(03-04-2018, 02:14 PM)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 في جملة؟

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

كود :
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; 

كود :
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;

anter2016

anter2016

أبو معاذ

anter2016

Delphi4Us