Printable View
سلام به دوستان
من می خوام یک سری کار رو در حالت لود شدن فرم و همچنین کلیک روی چند دکمه از فرم انجام بدم برای همین
می خوام این کدها رو تو یک تابع بنویسم و در روال fromsow و button_clickفراخوانی کنم . می تونید کمکم کنید و
بگین آیاآرگومان این تابع باید مثل click دکمه ها و ... sender:tobject باشه؟
اگه یه مثال بزنید ممنوم می شم
ج : بله.........
ببخشید اما از این ابتدایی تر رو هم میخواهید توی انجمن بپرسید؟
تاپیک آموزش و سوالات برای مبتدی ها رو برای این گذاشتم که انجمن پر از
سوالات ابتدایی نشه و برای بحث های دیگه ای جا باشه...
میتونستید نگاهی کنید..
اگر از حرفام ناراحت شدید ببخشید . قصد ناراحت کردن کسی رو ندارم. اما باید رعایت کنید!کد:procedure TForm1.FormShow(Sender: TObject);
begin
end;
پست شما حالت اسپم رو داره!
شما باید تابع یا پروسیجر دستوراتی که میخواهید اجرا بشه بنویسید(از همون اکشن هم می تونید استفاده کنید) و در رخداد مورد نظر فقط اون رو فراخوانی کنید.
توضیح بیشتری می دم فکر کنم درست نگفتم منظورم چیه
من یه جدول دارم که لیست حسابهای بانکی و موجودی هر کدوم رو نگه می داره . و توفرم وقتی Show می شه لیسن حسابها رو تو یه dbgridنشمون می دم و جمع موجودی کل حسابها و تعداد حسابه رو هم تو label می گذارم
توی همین فرم یه دکمه حذف وجود داره که با انتخاب رکوردی از dbgridو کلیک روی اون حساب مورد نظر حذف می شه . می خوام با حذف حساب مقدار دو labelکه موجودی و تعداد حسابها رو نشون می دن هم update بشن
برای محاسبه موجودی کل حسابها و تعداد کل حساب ها یه functionدارم که تو روالform.showو buttonclickاونو فراخوانی کردم
ولی با کلیک دکمه بعد حذف شدن رکورد از لیست، labelها update نمی شن
کد:procedure Tlist_account.accunt_number(Sender: TObject);
var i,count:integer;
sum:longint;
begin
sum:=0;
dm1.IBTable10.First;
if not dm1.IBTable10.Eof then
begin
while not dm1.IBTable10.Eof do
begin
sum:=sum + dm1.IBTable10.fieldbyname('a_value').Value;
dm1.IBTable10.Next;
end;
end;
count:=dm1.IBTable10.RecordCount;
label9.Caption:=inttostr(count);
label11.Caption:=inttostr(sum);
end
;procedure Tlist_account.Button2Click(Sender: TObject);
var k,account,a_number:integer;
b_name:string;
begin
k :=MessageBox(0,' آيا مي خواهيد حساب انتخاب شده را حذف كنيد؟','پيام',MB_YESNO);
if (k=IDYES) then
begin
a_number:=dm1.IBQuery1.FieldByName('a_number').Value;
b_name:=dm1.IBQuery1.FieldByName('b_name').value;
dm1.IBQuery1.Close;
dm1.IBQuery2.close;
dm1.IBQuery2.SQL.Clear;
dm1.IBQuery2.SQL.Text:='delete from bank_account where b_name=:b_name and a_number=:a_number';
dm1.IBQuery2.Params[0].Value:=b_name;
dm1.IBQuery2.Params[1].Value:=a_number;
dm1.IBQuery2.ExecSQL;
dm1.IBQuery1.Open;
dm1.DataSource2.DataSet:=dm1.IBQuery1;
DBGrid1.DataSource:=dm1.DataSource2;
accunt_number (sender);
messagebox(0,'حساب مورد نظر از ليست حساب هاي ثبت شده حذف شد',nil,MB_ok);
end;
end;
برای form.showچون کدی به غیر از همین تابع رو ندارم از تو قسمت eventفرم این تابع رو برای رویداد onshowگذاشتم. ولی برای click چو قبل از فراخوانی تابع یک سری کد دارم نمی تونم در قسمت design مثل form.showعمل کنم
سلام
مشکلم حل شد
چون تو functionبا ibtabelکار کرده بودم و datagrid با ibqueryمقدار می گرفت