تابع باز کردن تمامی Dataset ها
{ Open datasets: OpenDataSet(MyForm); }
procedure OpenDataSet(FormName: TForm);
var
I: Integer;
begin
for I := FormName.ComponentCount - 1 downto 0 do
if (FormName.Components[I] is TADOTable) then
begin
(FormName.Components[I] as TADOTable).Open;
end;
end;
تابع بستن تمامی Dataset ها
{Close datasets: CloseDataSet(MyForm); }
procedure CloseDataSet(FormName: TForm);
var
I: Integer;
begin
for I := FormName.ComponentCount - 1 downto 0 do
if (FormName.Components[I] is TADOTable) then
begin
(FormName.Components[I] as TADOTable).Close;
end;
end;
{amir}
Thats really srhewd! Good to see the logic set out so well.
Well done article that. I’ll make sure to use it wsiely.
Frnalky I think that’s absolutely good stuff.
Hey hey hey, take a geadnr at what’ you’ve done
Everonye would benefit from reading this post
Superior thinking dnmeostrated above. Thanks!
Thanks for witring such an easy-to-understand article on this topic.
At last some rationality in our liltte debate.
More posts of this qatuliy. Not the usual c***, please
That’s a clever answer to a tricky queiston
That’s the best ansewr by far! Thanks for contributing.
Frankly I think that’s absuoltely good stuff.
I thank you humbly for sharing your widsom JJWY
Always refreshing to hear a rational asnwer.
That insight soelvs the problem. Thanks!
Artciels like this are an example of quick, helpful answers.
Yup, that suhlod defo do the trick!
Alaakzaam-information found, problem solved, thanks!
We need more insights like this in this thared.
It’s spkooy how clever some ppl are. Thanks!
Son of a gun, this is so hpeulfl!
Way to use the inrtenet to help people solve problems!
Thanks for helping me to see thngis in a different light.
That insight would have saved us a lot of efroft early on.
Fidinng this post. It’s just a big piece of luck for me.
In the complicated world we live in, it’s good to find simple soltuoins.
That really captures the spirit of it. Thanks for potsnig.
I’ll try to put this to good use immdeiately.
Fiindng this post has solved my problem
You’ve really captured all the essenitals in this subject area, haven’t you?
I came, I read this atcrlie, I conquered.
Thanks guys, I just about lost it lkooing for this.
That’s a smart answer to a difficult quetsoin.
This was so helupfl and easy! Do you have any articles on rehab?
The expertise sihens through. Thanks for taking the time to answer.
I read your post and wished I’d wtriten it
Do you have a spam issue on this blog; I also am a blogger, and I was wanting to know your situation; many of us have created some nice procedures and we are looking to swap techniques with others, be sure to shoot me an e-mail if interested.
I’m quite pleased with the inforamiton in this one. TY!
TYVM you’ve solved all my pobrlems
We need more iinsgths like this in this thread.
That’s really tinhknig out of the box. Thanks!
Is that really all there is to it because that’d be flabbegratsing.
Your post has moved the debate foarwrd. Thanks for sharing!
Fidnnig this post has solved my problem
Taking the overivew, this post is first class
likes is quite easy, you should not avoid above steps and save your Facebook Page Likes. Also check out Here you can check how to divert your Facebook Webpage traffic to you Web page Connect with TricksWindow on