+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف التعامل مع PageControls في دلفي في برنامج مبيعات (/showthread.php?tid=9294)
كيف التعامل مع PageControls في دلفي في برنامج مبيعات - anter2016 - 03-04-2018
السلام عليكم
عندي فورم رئسي به زر اضافة عملية بيع الفورم يحتوي على PageControls
كيف عند الضغط على الزر يظهر Onglesاسمه مثلا vente no:1
في نفس الوقت عند الضغط على نفس الزر يظهرonglesجديد Vente no2:
هذا عملته لكن المشكلة في اذا كان الوصل الاول به منتجات وتركته للعودة اليه بعد ان انشأة onglesجديد يظهربرقم جديد الوصل الاول والثاني هل من فكرة لجعل كل وصل به منتوجاته الخاصة
كود :
هذه محاواتي
http://www.mediafire.com/file/zuuct83874yim9m/SALE.rarRE: كيف التعامل مع PageControls في دلفي في برنامج مبيعات - anter2016 - 12-04-2018
(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;RE: كيف التعامل مع PageControls في دلفي في برنامج مبيعات - أبو معاذ - 14-04-2018
وعليكم السلام ورحمة الله وبركاته
ماذا تقصد بوضع sql في جملة؟
RE: كيف التعامل مع PageControls في دلفي في برنامج مبيعات - anter2016 - 14-04-2018
السلام عليكم ورحمة الله وبركاته
اريد كتابته على شكل
كود :
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;
RE: كيف التعامل مع PageControls في دلفي في برنامج مبيعات - Delphi4Us - 14-04-2018
كود :
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;