لطفا کمک کنید - سوال ضروری

به نام خدا
با عرض سلام به دوستان خوب دو سوال داشتم .
اول - من با دلفی 7 و اکسس یک برنامه پایگاه داده ایجاد کردم که در این برنامه باید یک سری محاسبات هم انجام بشه . یعنی مثلا مقدار یکی از فیلدها حاصل ضرب دو فیلد دیگست که این عمل با فشار دادن یک دکمه انجام میشه . حالا من می خوام با زدن این دکمه این عمل ضرب روی همه رکوردهای اون فیلد تا آخر اجرا بشه نه فقط روی رکورد فعال . مثل خاصیت اتو فیل در اکسل .

دوم – وقتی که برنامه رو اجرا می کنم فیلدهای پایگاه اطلاعات من که با دی بی گرید نمایش داده میشن اندازشون خیلی بزرگ میشه جوری که توی دی بی گرید جا نمیشن و باید با نوار اسکرول فیلدهارو دید . برای درستیش چکار باید کنم ؟
بسیار ممنونم که کمک می کنید ان شاالله جبران کنم .

سلام. به انجم خوش اومدين.
جواب اول:
فرض بر اينه كه شما براي ذخيره سازي نتايج ضرب Field1 و Field2 ، يه فيلد به نام Mult ساختين.

کد:

---

  With AdoQuery1 do
  begin
    First;
    while not ADOQuery1.Eof do
    begin
      Edit;
      FieldValues['Mult'] := FieldValues['Field1'] * FieldValues['Field2'];
      Next;
    end;
    Post;
  end;

---

جواب دوم:
قبل از اينكه جواب سؤال دومتون رو بدم بايد بگم كه دوست عزيز اين انجمن قوانيني داره كه بايد رعايت بشه. جواب اين سؤال اينقدر ساده هست كه من ديگه نمي گم برين توي اينترنت براش جستجو كنيد. اگه فقط 2 دقيقه با امكانات خود دلفي ور برين مي تونيد مشكل رو برطرف كنيد.
به هر حال از اونجايي كه تازه وارد انجمن شدين نمي خوام كه دلخور بشين. جواب رو ميدم. روي DBGrid دابل كليك كنيد. از پنجره نمايان داده شده، يكي يا تمامي فيلدها رو انتخاب كنيد، و خاصيت Width اون رو تنظيم كنيد. در حالت استاندارد، دلفي، طول ستونها رو متناسب با طول فيلد تعريف شده در پايگاه داده در نظر گرفته مي گيره.
موفق باشين

سلام . بله قبول دارم سوال دوم خیلی ابتدایی بود و واقعا معذرت می خوام . آخه من تازه کار با دلفی رو شروع کردم و اولین بار هم هست که عضو اینجور سایتی شدم .

آقای رومیکسری از جوابتون خیلی متشکرم . کد شما در مورد سوال اول اجرا شد اما متاسفانه این خطا رو هم اعلام می کنه :
Dataset not in edir or insert mode

فیلد محاسباتی و اینکه تو خود اکسس از خاصیت formula یا value (همچین چیزی ) روشهای دیگه ی راه حل اول است

نقل قول:

---

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

آقای رومیکسری از جوابتون خیلی متشکرم . کد شما در مورد سوال اول اجرا شد اما متاسفانه این خطا رو هم اعلام می کنه :
Dataset not in edir or insert mode

---

کدی رو که romixery عزیر گذاشتند رو به صورت زیر اصلاح کنید:

کد:

---

  With AdoQuery1 do
  begin
    First;
    while not ADOQuery1.Eof do
    begin
      Edit;
      FieldValues['Mult'] := FieldValues['Field1'] * FieldValues['Field2'];
      Post;
      Next;
    end;
  end;

---

دوست عزیز. فرمان Edit برای اینکه این خطا داده نشه توی کد برنامه اومده. لطفا دقیقتر بررسی کن و حتما از Edit استفاده کن.

از دوستان گلم بسیار متشکرم . دستتون درد نکنه

عذر مي خوام. كدي رو كه نوشتم رو تست نكردم. با تشكر دوباره از فرهاد جان.
موفق باشين