موفق باشیکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشیکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
ممنونم چندتا سوال دیگه هم دارم که بعدا" می پرسم.
دوست عزیز این برنامه شما یه مشکل داره که عبارت است از این
اگر کاربر بیش از یک بار این برنامه را اجرا کنه طول این لیست باکس شما زیاد خواهد بود در کل تکراری و غیره
برای جلوگیری از این کار باید ابتدای اجرا این برنامه از دستور زیر استفاده کنی تا هر بار که می خواد برنامه این کار را انجام بده ابتدا لیست باکس را پاک کنه بعد دوباره اضافه کنه دستور:
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
اتصال به بانك را براي كنترلهاي ويژوال وابسته قطع و فعال ميكند
Last edited by YBB; 28-07-2007 at 12:27.
البته كار فوق را با كنترل
DBLookupList
كه در سر تب
Win3.1
وجود دارد مي توان انجام داد كه در آن مي بايست خصوصيات
LookUpSource و LookUpFild
.مقدار دهي شوند
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)