نحوه بدست آوردن تعداد سطر (رکورد) های یک جدول از دیتابیس

[mrezam]

با سلام
میخام یه شرط بگذارم روی جدول که اگر رکورد خاصی
از جدول وجود دارد آنرا ادیت در غیر اینصورت یک رکورد جدید ایجاد شود ضمنا
اگر رکورد وجود داشته باشد حداکثر یک رکورد است
در واقع خط دهم میخام شرطی باشد که چک کند اگررکورد مشابه وجود دارد آنرا ادیت و گرنه جدید بسازد
چه شرطی باید بزارم ؟

ADOQuery1.Filtered := False;
***** with ADOQuery1* do
***** begin
************* SQL.Clear;
************* sql.Text :="select * from moshahedat where (.....
************ parameters.ParamByName("na..............
************* open ;
***** end;
*** datasource3.DataSet.Edit ;
** if datasource3.dataset.RecordCount =1 then
** begin* //if 2

**** if radiobutton6.Checked =true* then//
**** begin** //if 3
******* if* combobox12.Text ="ÑÓÊÇÑ" then
******* begin
*********** ADOTable2.FieldByName("oppn1").AsInteger:=ADOTable2.FieldByName("oppn1").AsInteger+1;
*********** ADOTable2.FieldByName("hrn1").AsInteger :=ADOTable2.FieldByName("hrn1").AsInteger+1;
******* end..............
.
.
.

[meyti]

سلام
برای جستجو یک رکورد خاص که آنرا جاری کند از دستور locate استفاده کن :

کد:

if adotable1.Locate("keyfield",value,[]) then 
begin
adotable1.edit;
adotable1["field1"]:="value";
adotable1.post;
end
 else
begin
adotable1.append;
.
.
adotable1.post;
end;

[b_e_shamlu]

دوست عزیز
شما اگر دستور فیلتر را در ado استفاده کنی یعنی اطلاعات وارده رو بصورت دستور فیلتر وارد کنی و بعد تعداد رکوردهار شمارش کنی بعد اگر تعداد رکورد یک بود دستور edit* در غیر این صورت یعنی اگر صفر بود دستور append را استفاده کن

Adoname.filtered :=* "filedname = "* +* outstr(edit.text);
Adoname.filter := TRUE ;

[mrezam]

با تشکر از راهنمایی عزیزان
مشکل من شمردن تعداد رکورهای یک جدوله؟

[admin]

نقل قول از mrezam
با تشکر از راهنمایی عزیزان
مشکل من شمردن تعداد رکورهای یک جدوله؟


سلام و درود.
وقتی میگید جدول یعنی پشت اون جدول یک DataSource هستش که اطلاعات جدول از اون دریافت میشه که اون هم اطلاعات خودش رو از یک DataSet میگیره که میتونه ADOQUERY یا ADOTABLE باشه .
حالا شما کافیه که یکی از دو دستور زیر رو بعد از اجرای عملیات فیلترینگ قرار بدید که خروجی اون هم از نوع Integer هستش.

کد:

ADOTable1.RecordCount;

ADOQuery1.RecordCount

موفق و موید باشید

[mrezam]

سلام
چطوری میشه فونت های برنامه هم همراه برنامه کپی شوند روی سیستم ؟

[mrezam]

با سلام
چی تنظیماتی باید در فرم انجام داد که در سیتم های دیگر سایز فرم و فونت آن تغییر نکند؟

[admin]

سایز فرم تغییر نکند !!!
هیچ وقت به صورت خودکار سایز تغییر نمیکند. مگر شما خودتون اون رو تغییر بدید یا رزولیشن اون دستاپ متفاوت باشد.
روشهای متفاوتی پیشنهاد میشه ، مثلا یکی از روشها اینه که شما ابتدا که برنامه اتون اجرا میشه رزولیشن رو به دلخواه خودتون تغییر بدید ( این واسه سایز فرم ) و یا سایز فرمتون و کلیه ی اجزا رو بر اساس رزولیشن صفحه تنظیم کنید ...
برای فونت هم که یا در حین ساخت ستاپ تعریف کنید که فونت های مربوطه در حین نصب در سیستم مقصد نصب گردند ، ویا از فونت های public مثل فونت Arial و ... استفاده کنید.

[rez1_mahtab]

سلام
اگر خصوصیت windowState یک فرم روی maximized باشه رو هر سیستمی که اجرا بشه maximize میشه
برای تغییر نکردن باید روی normal تنظیم بشه

[admin]

در تکمیل صحبتهای دوست عزیز [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید] یه کار دیگه هم میتونی بکنی که کاربر نتونه بعد از طراحی سایز فرم رو Max یا Min کنه و حتی اگه windowstate رو هم max بکنه بازم فرم تغییری نکنه .



کد:

BorderStyle := bsDialog;

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



کد:

WindowState :=  wsMaximized;
BorderStyle := bsDialog;
Position := poDesigned; {هر جایی که طراح گفت}
{or }
Position :=  poDesktopCenter; {دقیقا وسط صفحه نمایش}
FormStyle := fsNormal;