بانک اطلاعاتی

کد:

---

table.first;
while not table.eof do begin
  listbox.items.add(table.fieldvalue['FieldName']);
  table.next;
end;

---

موفق باشی

ممنونم چندتا سوال دیگه هم دارم که بعدا" می پرسم.

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

table.first;
while not table.eof do begin
  listbox.items.add(table.fieldvalue['FieldName']);
  table.next;
end;

---

موفق باشی

---

دوست عزیز این برنامه شما یه مشکل داره که عبارت است از این
اگر کاربر بیش از یک بار این برنامه را اجرا کنه طول این لیست باکس شما زیاد خواهد بود در کل تکراری و غیره

برای جلوگیری از این کار باید ابتدای اجرا این برنامه از دستور زیر استفاده کنی تا هر بار که می خواد برنامه این کار را انجام بده ابتدا لیست باکس را پاک کنه بعد دوباره اضافه کنه دستور

نقل قول:

---

:
listbox1.items.clear;
table1.first;
while not (table1.eof) do
begin
listbox1.items.add(table1['fieldname']);
table1.next;
end;

---

ممنون که اصلاحش کردی.
ولی این کد رو من در 30 ثانیه نوشتم و اجرا نکردمش که یاد این موضوع بیفتم.

به هر حال ممنون

دوست گرامی من به هیچ کس اهانت نکردم یعنی من چنین شخصی نیستم اما چون من با این چور مسائل بیشتر از بقیه کار ها کار کردم یکی دو تا مشکل داشتم که یکیش این بود که من بعد از یه مدت هلش کردم حالا هم به در این بحث دیدم و اصلاحش کردم

شما هر کی هم باشید و هر چی هم اطلاعات نداشته باشید مطمئن هستم اطلاعاتتون بیشتر از اطلاعات من است

نکات کوچک خیلی مهم هستند

كد فوق نيز دو مشكل دارد اول اينكه پس از اجرا اشاره گر ركورد به آخرين ركورد رفته و بنابراين محل قبلي در جدول گم مي شود و دوم اينكه كنترل هاي ويژوالي كه به بانك اطلاعاتي متصل هستند به تعداد ركوردها مرتب به روز رساني مي شود و بخصوص هنگامي كه تعداد ركوردهاي جدول زيادتر ميشوند بسيار به چشم مي آيد بنابراين

var
SavePlace: TBookMarkStr;
.
.
.
Listbox1.Clear;

with Table1 do
begin
try
SavePlace:=BookMark;
try
DisableControls;
First;
while not Eof do
begin
Listbox1.Items.Add(table1['fieldname']);
Next;
end;
finally
EnableControls;
end;
finally
BookMark:=SavePlace;
end;
end;

كه در كد فوق بوسيله
BookMark‌
محل ركورد فعلي را ذخيره ميكند و
DisableControls و EnableControls
اتصال به بانك را براي كنترلهاي ويژوال وابسته قطع و فعال ميكند

البته كار فوق را با كنترل
DBLookupList
كه در سر تب
Win3.1
وجود دارد مي توان انجام داد كه در آن مي بايست خصوصيات
LookUpSource و LookUpFild
.مقدار دهي شوند