دخول

jeanjamil · 16-03-2018, 05:51 AM

السلام عليكم
احاول انشاء برنامج بدون قاعدة بيانات لكن واجهتني مشكلة انه
لدي 2 listbox واحدة للصنف والثانية للسعر
كيف احذف بند السعر من الثانية في حال تم حذف الصنف من الاولى
علما ان ترتيب البنود قد يختلف بين اللائحتين
وشكرا

AX302 · 16-03-2018, 04:43 PM

السلام عليكم
برنامج بدون قاعدة بيانات مجرد هدر للوقت هدا ان كنت تريد ان تعمل برنامج يعتمد على قاعدة بيانات , بخصوص الليست بوكس عند القيام بحدف سعر ما او صنف معين انت تقوم بحدفه مؤقتا فقا اي فقط وقت التشغيل عند اعادة تشغيل البرنامج يتم اعادة البيانات كما كانت في الفترة الاولى (باستثناء انك تعتمد على ملفات خارجية للحفظ)

jeanjamil · 17-03-2018, 10:34 AM

شكرا لك
لكنه برنامج صغير الحجم لا يحتاج الى قاعدة بيانات فهو يحتوي فقط على على سجلات مؤقتة
فعلا يمكن ان استعيض عن الييست بوكس بvaluelisteditor لكن كيف يتم جمع ناتج عمود

mobile · 17-03-2018, 10:01 PM

السلام عليكم ورحمة الله
كما قال لك الاخ استعمل قاعدة بيانات خفيفة مثل sqlite هي سهلة خفيفة لن تتعبك ولن تحملها على ظهرك Smile

وان كان لابد ان تستعمل Valuelistditor
هاك مثال عن حساب عمود ال key & value

كود :
//0 for key;
//1 for value;
procedure TForm2.Button1Click(Sender: TObject);
var i,x,y :Integer;
begin
x:=0;y:=0;
 for i :=1 to ValueListEditor1.RowCount-1 do
  begin
    x:=x+StrToInt(ValueListEditor1.Cells[1,i]);
    y:=y+StrToInt(ValueListEditor1.Cells[0,i]);
  end;
  Edit1.Text:=IntToStr(y);
  Edit2.Text:=IntToStr(x);
end;

ferrero

كود :
var

 i,Sum: Integer;
 begin
 Sum := 0;
 for i := 0 to ListBox1.Items.Count - 1 do
 Sum := Sum + StrToInt(ListBox1.Items[i]);
 
Edit1.Text := IntToStr(Sum);

Delphi4Us · 20-03-2018, 12:23 PM

يمكنك استخدام ملف XML او INI او حتى TXT اذا رغبت بدل من قاعدة بيانات

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة