نحوه درج و حذف رکورد ( برنامه انبار )

[elena]

سلام،من دوتا باتن دارم یکی خرید و یکی دیگه فروش،با خرید میخوام به موجودی انبار اضافه بشه و با فروش کم بشه میشه کدشو بذارین ،ممنون

[black_binary]

سلام
سوال شما یعنی چی؟
کد چی و بذاریم؟
خوب این ربط به ساختار دیتابیست داره
.......!؟

[کامروا]

کدی که قراره بنویسید بستگی داره به ساختار DB شما.
فرض کنید جداول زیر رو دارید:

جدول کالا :
1- کد کالا
2-نام کالا
3-قیمت

جدول انبار :
1-کد ثبت
2-کد کالا
3-تعداد
4-نوع (خرید/فروش)
___________________

فرم رو بصورت زیر در نظر گرفتم :
http://up.vbiran.ir/images/k1kqtn34ox096poawkj.jpg

که برای دکمه "خرید" کد :


procedure TForm1.btnKharidClick(Sender: TObject);
begin
With ADOQuery1 DO
Begin
Close;
SQL.Text := 'Insert Into Anbar(IdKala,Tedad,Type) Values(:IdKala,:Tedad,:Type)';
Parameters.ParamByName('IdKala').Value := Edit1.Text;
Parameters.ParamByName('Tedad').Value := Edit2.Text;
Parameters.ParamByName('Type').Value := 'خريد';
ExecSQL;
End;
end;


و برای دکمه "فروش" کد :


procedure TForm1.btnForooshClick(Sender: TObject);
begin
With ADOQuery1 DO
Begin
Close;
SQL.Text := 'Insert Into Anbar(IdKala,Tedad,Type) Values(:IdKala,:Tedad,:Type)';
Parameters.ParamByName('IdKala').Value := Edit1.Text;
Parameters.ParamByName('Tedad').Value := Edit2.Text;
Parameters.ParamByName('Type').Value := 'فروش';
ExecSQL;
End;
end;


برای اینکه بفهمید موجودی کالای شما چقدر هست باید، تمام کالای نوع "خرید" رو - "فروش" میکنیم و موجودی بدست میاد.
البته روش های بهینه تری هم هست...

موفق باشید

[Felony]

عنوان تاپیک رو درست انتخاب کنید ، خودتون برای کاری که میخواین انجام بدید تلاش کنید و بعد مشکلاتتون رو اینجا مطرح کنید نه اینکه 2 تا دکمه دارم میخوام یکیش این کار رو بکنه و اون یکی فلان کار ، کدشو برام بنویسید ...

با کمال احترام بار بعد شدیدا برخورد میشه .


البته روش های بهینه تری هم هست...
بهتره به جای ماهی گرفتن برای دیگران ماهی گیری رو بهشون یاد بدیم ، این جوابی که شما دادی یک راه برای از سر باز کنی هست ، در آخر هم با توجه به نقل قول بالا خودت بهش اشاره کردی ، اینطوری هم وقتت رو هدر دادی ، هم به کاربر سوال کننده و یک عده کاربر تازه وارد که آینده این تاپیک رو میخونن یک موضوع اشتباه رو آموزش دادی ( با توجه به اینکه 99% کاربران اولین جواب تاپیک رو بر میدارن و برای همیشه استفاده میکنن بدون اینکه اصلا بدونن اون کد چی هست ، چی کار میکنه ، چقدر سربار داره و ... ) ، به جای این نوع پاسخ دادن بهتره یک توضیح کوتاه ولی فنی برای راهنمایی بنویسید و یا چند تا رفرنس به کاربر معرفی کنید تا جای اینکه خوشحال بشه که جواب آماده رو دریافت کرده و بدون هیج زحمتی بهش رسیده مجبور بشه برای یافتن پاسخ سوالش 4 تا مقاله مطالعه کنه و چند تا چیز یاد بگیره و واقعا بفهمه داره چی کار میکنه .