السلام عليكم
احاول انشاء برنامج بدون قاعدة بيانات لكن واجهتني مشكلة انه
لدي 2 listbox واحدة للصنف والثانية للسعر
كيف احذف بند السعر من الثانية في حال تم حذف الصنف من الاولى
علما ان ترتيب البنود قد يختلف بين اللائحتين
وشكرا
السلام عليكم
برنامج بدون قاعدة بيانات مجرد هدر للوقت هدا ان كنت تريد ان تعمل برنامج يعتمد على قاعدة بيانات , بخصوص الليست بوكس عند القيام بحدف سعر ما او صنف معين انت تقوم بحدفه مؤقتا فقا اي فقط وقت التشغيل عند اعادة تشغيل البرنامج يتم اعادة البيانات كما كانت في الفترة الاولى (باستثناء انك تعتمد على ملفات خارجية للحفظ)
شكرا لك
لكنه برنامج صغير الحجم لا يحتاج الى قاعدة بيانات فهو يحتوي فقط على على سجلات مؤقتة
فعلا يمكن ان استعيض عن الييست بوكس بvaluelisteditor لكن كيف يتم جمع ناتج عمود
السلام عليكم ورحمة الله
كما قال لك الاخ استعمل قاعدة بيانات خفيفة مثل sqlite هي سهلة خفيفة لن تتعبك ولن تحملها على ظهرك
وان كان لابد ان تستعمل 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;
كود :
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);
يمكنك استخدام ملف XML او INI او حتى TXT اذا رغبت بدل من قاعدة بيانات