<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Fox4um]]></title>
	<link rel="self" href="http://www.fox4um.com/feed/atom/"/>
	<updated>2012-02-07T18:47:03Z</updated>
	<generator>PunBB</generator>
	<id>http://www.fox4um.com/</id>
		<entry>
			<title type="html"><![CDATA[alter table]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2114/alter-table/new/posts/"/>
			<summary type="html"><![CDATA[<p>ALTER TABLE hasta ADD COLUMN not c(20) 
</p><p>&quot; not&quot; değişkenini bulamadım diye hata mesajı veryor
</p><p>çetin hocam not konusunda uyarmıştı ama şimdi bana bir çözüm gerek
</p>
<br /><p>cevaplar için şimdiden teşekkürler</p>]]></summary>
			<author>
				<name><![CDATA[avrasya34]]></name>
				<uri>http://www.fox4um.com/user/117/</uri>
			</author>
			<updated>2012-02-07T18:47:03Z</updated>
			<id>http://www.fox4um.com/topic/2114/alter-table/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[C# Tabs,TabStyle]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2112/c-tabstabstyle/new/posts/"/>
			<summary type="html"><![CDATA[<p>C#&nbsp; tabControl&#039;de,
<br />Foxtaki Pageframedeki&nbsp; gibi tabs ve tabstyle özellikleri bildiğim kadarıyla yok.
<br />Bu özellikleri sağlayan başka özellikler var mıdır, yoksa alternatifler nedir?
</p><p>Cevap verenlere şimdiden teşekkür ederim.</p>]]></summary>
			<author>
				<name><![CDATA[cetinbasoz]]></name>
				<uri>http://www.fox4um.com/user/7/</uri>
			</author>
			<updated>2012-02-07T16:10:27Z</updated>
			<id>http://www.fox4um.com/topic/2112/c-tabstabstyle/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Dağılım]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2111/dagilim/new/posts/"/>
			<summary type="html"><![CDATA[<div class="codebox"><div class="head">Visual Fox Pro</div><table class="visualfoxpro fxcode"><tbody><tr class="li1"><td class="ln"><pre class="de1">1
<br />2
<br />3
<br />4
<br />5
<br />6
<br />7
<br />8
<br />9
<br />10
<br />11
<br />12
<br />13
<br />14
<br />15
<br />16
<br /></pre></td><td class="de1"><pre class="de1"><span class="kw1">CREATE</span> <span class="kw4">CURSOR</span> CrTest <span class="br0">&#40;</span>Deger <span class="kw2">n</span> <span class="br0">&#40;</span><span class="nu0">4</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h1 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h2 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h3 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h4 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h5 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h6 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">44.4</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">44.4</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">24.0</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">22.2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">22.2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">20.0</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">19.2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">17.8</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">16.7</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">15.6</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">6.0</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">5.6</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">4.4</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">3.3</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTest <span class="br0">&#40;</span>deger<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">3.3</span><span class="br0">&#41;</span></pre></td></tr></tbody></table></div><p>
<br />Elimizde böyle bir veri var.
<br />Burada deger veya degerler toplamı 45 e en yakın olan satırların toplayıp o satır veya satırların karşısına sırasıyla numara vermesini istiyorum. 
<br />İstediğim şey elle yaptığımda yaklaşık aşağıdaki gibi veya değişik kombinasyonları olabilir.
</p><div class="codebox"><div class="head">Visual Fox Pro</div><table class="visualfoxpro fxcode"><tbody><tr class="li1"><td class="ln"><pre class="de1">1
<br />2
<br />3
<br />4
<br />5
<br />6
<br />7
<br />8
<br />9
<br />10
<br />11
<br />12
<br />13
<br />14
<br />15
<br />16
<br /></pre></td><td class="de1"><pre class="de1"><span class="kw1">CREATE</span> <span class="kw4">CURSOR</span> CrTestSonuc <span class="br0">&#40;</span>Deger <span class="kw2">n</span> <span class="br0">&#40;</span><span class="nu0">4</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h1 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h2 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h3 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h4 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h5 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h6 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h7 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h8 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="sy0">,</span>h9 <span class="kw2">n</span><span class="br0">&#40;</span><span class="nu0">2</span><span class="br0">&#41;</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h1<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">44.4</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h2<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">44.4</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h3<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">24.0</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h4<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">22.2</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h4<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">22.2</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h3<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">20.0</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h5<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">19.2</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h5<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">17.8</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h6<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">16.7</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h6<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">15.6</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h5<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">6.0</span><span class="sy0">,</span><span class="nu0">3</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h6<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">5.6</span><span class="sy0">,</span><span class="nu0">3</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h6<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">4.4</span><span class="sy0">,</span><span class="nu0">4</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h7<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">3.3</span><span class="sy0">,</span><span class="nu0">1</span><span class="br0">&#41;</span>
<br /><span class="kw1">INSERT</span> <span class="kw2">INTO</span> CrTestSonuc <span class="br0">&#40;</span>deger<span class="sy0">,</span>h7<span class="br0">&#41;</span> <span class="kw3">values</span><span class="br0">&#40;</span><span class="nu0">3.3</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span></pre></td></tr></tbody></table></div>]]></summary>
			<author>
				<name><![CDATA[mrduyar]]></name>
				<uri>http://www.fox4um.com/user/23/</uri>
			</author>
			<updated>2012-02-07T09:31:48Z</updated>
			<id>http://www.fox4um.com/topic/2111/dagilim/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Custom Paper Size hk.]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2110/custom-paper-size-hk/new/posts/"/>
			<summary type="html"><![CDATA[<p>Herkese merhabalar;
</p><p>Özetle yapmak istediğim şöyle bir şey : sistemde tanımlı olan yazıcıma kullanıcı tanımlı&nbsp; bir kağıt eklemek istiyorum (&quot;Custom Paper&quot;). 
</p><p>Sergey Berezniker &#039;e ait aşağıdaki kodu buldum ama bir türlü sonuç alamadım. Bu konuda yardım alabileceğim kimse var mı?
</p><p>Her durumda &quot;Unable to Add Form MyCustopmForm1&quot; hatası alıyorum.
</p><p><a href="http://www.berezniker.com/content/pages/visual-foxpro/add-and-delete-custom-printer-forms">http://www.berezniker.com/content/pages &#133; nter-forms</a>
</p><div class="codebox"><div class="head">Visual Fox Pro</div><table class="visualfoxpro fxcode"><tbody><tr class="li1"><td class="ln"><pre class="de1">1
<br />2
<br />3
<br />4
<br />5
<br />6
<br />7
<br />8
<br />9
<br />10
<br />11
<br />12
<br />13
<br />14
<br />15
<br />16
<br />17
<br />18
<br />19
<br />20
<br />21
<br />22
<br />23
<br />24
<br />25
<br />26
<br />27
<br />28
<br />29
<br />30
<br />31
<br />32
<br />33
<br />34
<br />35
<br />36
<br />37
<br />38
<br />39
<br />40
<br />41
<br />42
<br />43
<br />44
<br />45
<br />46
<br />47
<br />48
<br />49
<br />50
<br />51
<br />52
<br />53
<br />54
<br />55
<br />56
<br />57
<br />58
<br />59
<br />60
<br />61
<br />62
<br />63
<br />64
<br />65
<br />66
<br />67
<br />68
<br />69
<br />70
<br />71
<br />72
<br />73
<br />74
<br />75
<br />76
<br />77
<br />78
<br />79
<br />80
<br />81
<br />82
<br />83
<br />84
<br />85
<br />86
<br />87
<br />88
<br />89
<br />90
<br />91
<br />92
<br />93
<br />94
<br />95
<br />96
<br />97
<br />98
<br />99
<br />100
<br />101
<br />102
<br />103
<br />104
<br />105
<br />106
<br />107
<br />108
<br />109
<br />110
<br />111
<br />112
<br />113
<br />114
<br />115
<br />116
<br />117
<br />118
<br />119
<br />120
<br />121
<br />122
<br />123
<br />124
<br />125
<br />126
<br />127
<br />128
<br />129
<br />130
<br />131
<br />132
<br />133
<br />134
<br />135
<br />136
<br />137
<br />138
<br />139
<br />140
<br />141
<br />142
<br />143
<br />144
<br />145
<br />146
<br />147
<br />148
<br />149
<br />150
<br />151
<br />152
<br />153
<br />154
<br />155
<br />156
<br />157
<br />158
<br />159
<br />160
<br />161
<br />162
<br />163
<br />164
<br />165
<br />166
<br />167
<br />168
<br />169
<br />170
<br />171
<br />172
<br />173
<br />174
<br />175
<br />176
<br />177
<br />178
<br />179
<br />180
<br />181
<br />182
<br />183
<br />184
<br />185
<br />186
<br />187
<br />188
<br />189
<br />190
<br />191
<br />192
<br />193
<br />194
<br />195
<br /></pre></td><td class="de1"><pre class="de1"><span class="sy0">*</span> <span class="kw2">All</span> sizes <span class="kw2">in</span> inches
<br />ooo <span class="sy0">=</span> <span class="kw3">NEWOBJECT</span><span class="br0">&#40;</span><span class="st0">&quot;AddPrinterForm&quot;</span><span class="sy0">,</span> <span class="st0">&quot;AddPrinterForm.fxp&quot;</span><span class="br0">&#41;</span>
<br /><span class="kw1">IF</span> <span class="kw3">NOT</span> ooo<span class="sy0">.</span><span class="me1">AddForm</span><span class="br0">&#40;</span><span class="st0">&quot;MyCustomForm1&quot;</span><span class="sy0">,</span> <span class="nu0">5</span><span class="sy0">,</span><span class="nu0">7</span><span class="sy0">,</span> lcPrinterName<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="sy0">?</span> ooo<span class="sy0">.</span><span class="me1">cErrorMessage</span>
<br />&nbsp; &nbsp; <span class="sy0">?</span> ooo<span class="sy0">.</span><span class="me1">cApiErrorMessage</span> 
<br />&nbsp; <span class="sy0">*</span> <span class="kw3">Error</span>
<br /><span class="kw1">ENDIF</span>
<br />&nbsp;
<br /><span class="co2">*!* &nbsp; &nbsp;* Delete just created form</span>
<br /><span class="co2">*!* &nbsp; &nbsp;ooo = NEWOBJECT(&quot;AddPrinterForm&quot;, &quot;AddPrinterForm.fxp&quot;)</span>
<br /><span class="co2">*!* &nbsp; &nbsp;IF NOT ooo.DeleteForm(&quot;MyCustomForm1&quot;, lcPrinterName)</span>
<br /><span class="co2">*!* &nbsp; &nbsp; &nbsp; &nbsp;? ooo.cErrorMessage</span>
<br /><span class="co2">*!* &nbsp; &nbsp; &nbsp; &nbsp;? ooo.cApiErrorMessage </span>
<br /><span class="co2">*!* &nbsp; &nbsp; &nbsp;* Error</span>
<br /><span class="co2">*!* &nbsp; &nbsp;ENDIF</span>
<br />&nbsp;
<br />&nbsp;
<br /><span class="sy0">*</span> <span class="kw2">All</span> sizes <span class="kw2">in</span> cm
<br />ooo <span class="sy0">=</span> <span class="kw3">NEWOBJECT</span><span class="br0">&#40;</span><span class="st0">&quot;AddPrinterForm&quot;</span><span class="sy0">,</span> <span class="st0">&quot;AddPrinterForm.fxp&quot;</span><span class="sy0">,</span> <span class="st0">&quot;&quot;</span><span class="sy0">,</span> <span class="st0">&quot;Metric&quot;</span><span class="br0">&#41;</span>
<br /><span class="kw1">IF</span> <span class="kw3">NOT</span> ooo<span class="sy0">.</span><span class="me1">AddForm</span><span class="br0">&#40;</span><span class="st0">&quot;MyCustomForm2&quot;</span><span class="sy0">,</span> <span class="nu0">15</span><span class="sy0">,</span><span class="nu0">17</span><span class="sy0">,</span> lcPrinterName<span class="br0">&#41;</span>
<br />&nbsp; <span class="sy0">*</span> <span class="kw3">Error</span>
<br /><span class="kw1">ENDIF</span>
<br />&nbsp;
<br /><span class="co2">*!* &nbsp; &nbsp;* Delete just created form</span>
<br /><span class="co2">*!* &nbsp; &nbsp;ooo = NEWOBJECT(&quot;AddPrinterForm&quot;, &quot;AddPrinterForm.fxp&quot;)</span>
<br /><span class="co2">*!* &nbsp; &nbsp;IF NOT ooo.DeleteForm(&quot;MyCustomForm2&quot;, lcPrinterName)</span>
<br /><span class="co2">*!* &nbsp; &nbsp; &nbsp; &nbsp;? ooo.cErrorMessage</span>
<br /><span class="co2">*!* &nbsp; &nbsp; &nbsp; &nbsp;? ooo.cApiErrorMessage </span>
<br /><span class="co2">*!* &nbsp; &nbsp; &nbsp;* Error</span>
<br /><span class="co2">*!* &nbsp; &nbsp;ENDIF</span>
<br />&nbsp;
<br /><span class="sy0">*</span> AddPrinterForm<span class="sy0">.</span><span class="me1">prg</span>
<br /><span class="kw1">DEFINE</span> <span class="kw3">CLASS</span> AddPrinterForm <span class="kw2">AS</span> <span class="kw4">Custom</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">HIDDEN</span> cUnit<span class="sy0">,</span> cPrinterName<span class="sy0">,</span> nFormHeight<span class="sy0">,</span> nFormWidth<span class="sy0">,</span> nLeftMargin<span class="sy0">,</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nTopMargin<span class="sy0">,</span> nRightMargin<span class="sy0">,</span> nBottomMargin<span class="sy0">,</span> nInch2mm<span class="sy0">,</span> nCm2mm<span class="sy0">,</span> nCoefficient<span class="sy0">,</span> hHeap
<br />&nbsp;
<br />&nbsp; &nbsp; cUnit <span class="sy0">=</span> <span class="st0">&quot;English&quot;</span> &nbsp; &nbsp; &nbsp; &nbsp;<span class="sy0">&amp;&amp;</span> inches <span class="kw3">or</span> Metric <span class="sy0">-</span> cm's
<br />&nbsp; &nbsp; cPrinterName <span class="sy0">=</span> <span class="st0">&quot;&quot;</span>
<br />&nbsp; &nbsp; nFormHeight <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; nFormWidth <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; nLeftMargin <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; nTopMargin <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; nRightMargin <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; nBottomMargin <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp;
<br />&nbsp; &nbsp; cApiErrorMessage <span class="sy0">=</span> <span class="st0">&quot;&quot;</span>
<br />&nbsp; &nbsp; cErrorMessage <span class="sy0">=</span> <span class="st0">&quot;&quot;</span>
<br />&nbsp;
<br />&nbsp; &nbsp; nInch2mm <span class="sy0">=</span> <span class="nu0">25.4</span>
<br />&nbsp; &nbsp; nCm2mm <span class="sy0">=</span> <span class="nu0">10</span>
<br />&nbsp; &nbsp; nCoefficient <span class="sy0">=</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nInch2mm</span> <span class="sy0">*</span> <span class="nu0">1000</span>
<br />&nbsp;
<br />&nbsp; &nbsp; hHeap <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="sy0">*</span> Win API support <span class="kw3">class</span>
<br />&nbsp; &nbsp; oWas <span class="sy0">=</span> <span class="kw3">NULL</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> <span class="kw3">Init</span><span class="br0">&#40;</span>tcUnit<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">oWas</span> <span class="sy0">=</span> <span class="kw3">NEWOBJECT</span><span class="br0">&#40;</span><span class="st0">&quot;WinApiSupport&quot;</span><span class="sy0">,</span> <span class="st0">&quot;WinApiSupport.fxp&quot;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> <span class="kw2">PCOUNT</span><span class="br0">&#40;</span><span class="br0">&#41;</span> <span class="sy0">=</span> <span class="nu0">1</span> 
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cUnit</span> <span class="sy0">=</span> <span class="kw2">PROPER</span><span class="br0">&#40;</span>tcUnit<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">LoadApiDlls</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">hHeap</span> <span class="sy0">=</span> HeapCreate<span class="br0">&#40;</span><span class="nu0">0</span><span class="sy0">,</span> <span class="nu0">4096</span><span class="sy0">,</span> <span class="nu0">0</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="sy0">*</span> <span class="kw2">Use</span> <span class="kw3">Windows</span> <span class="kw3">default</span> <span class="kw3">printer</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span> <span class="sy0">=</span> <span class="kw2">SET</span><span class="br0">&#40;</span><span class="st0">&quot;Printer&quot;</span><span class="sy0">,</span><span class="nu0">2</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDPROC</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> cUnit_Assign<span class="br0">&#40;</span>tcUnit<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> <span class="kw1">INLIST</span><span class="br0">&#40;</span>tcUnit<span class="sy0">,</span> <span class="st0">&quot;English&quot;</span><span class="sy0">,</span> <span class="st0">&quot;Metric&quot;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cUnit</span> <span class="sy0">=</span> <span class="kw2">PROPER</span><span class="br0">&#40;</span>tcUnit<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">ELSE</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">RETURN</span> &nbsp; &nbsp;
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp; &nbsp; <span class="sy0">*</span> <span class="kw1">Calculate</span> conversion coefficient
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nCoefficient</span> <span class="sy0">=</span> <span class="kw1">IIF</span><span class="br0">&#40;</span><span class="kw2">PROPER</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">cUnit</span><span class="br0">&#41;</span> <span class="sy0">=</span> <span class="st0">&quot;English&quot;</span><span class="sy0">,</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nInch2mm</span><span class="sy0">,</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nCm2mm</span><span class="br0">&#41;</span> <span class="sy0">*</span> <span class="nu0">1000</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDPROC</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> <span class="kw3">Destroy</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">hHeap</span> <span class="sy0">&lt;&gt;</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; HeapDestroy<span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">hHeap</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">ENDPROC</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> SetFormMargins<span class="br0">&#40;</span>tnLeft<span class="sy0">,</span> tnTop<span class="sy0">,</span> tnRight<span class="sy0">,</span> tnBottom<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">WITH</span> <span class="kw2">This</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">nLeftMargin</span> &nbsp; &nbsp; <span class="sy0">=</span> tnLeft &nbsp; <span class="sy0">*</span> <span class="sy0">.</span><span class="me1">nCoefficient</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">nTopMargin</span> &nbsp; &nbsp; <span class="sy0">=</span> tnTop &nbsp; &nbsp;<span class="sy0">*</span> <span class="sy0">.</span><span class="me1">nCoefficient</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">nRightMargin</span> &nbsp; &nbsp; <span class="sy0">=</span> tnRight &nbsp;<span class="sy0">*</span> <span class="sy0">.</span><span class="me1">nCoefficient</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">nBottomMargin</span> &nbsp; &nbsp; <span class="sy0">=</span> tnBottom <span class="sy0">*</span> <span class="sy0">.</span><span class="me1">nCoefficient</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDWITH</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDPROC</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> AddForm<span class="br0">&#40;</span>tcFormName<span class="sy0">,</span> tnWidth<span class="sy0">,</span> tnHeight<span class="sy0">,</span> tcPrinterName<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">LOCAL</span> lhPrinter<span class="sy0">,</span> llOK<span class="sy0">,</span> lcForm
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nFormWidth</span> &nbsp;<span class="sy0">=</span> tnWidth &nbsp;<span class="sy0">*</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nCoefficient</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nFormHeight</span> <span class="sy0">=</span> tnHeight <span class="sy0">*</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nCoefficient</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> <span class="kw2">PCOUNT</span><span class="br0">&#40;</span><span class="br0">&#41;</span> <span class="sy0">&gt;</span> <span class="nu0">3</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span> <span class="sy0">=</span> tcPrinterName
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">ClearErrors</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; lhPrinter <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> OpenPrinter<span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span><span class="sy0">,</span> <span class="sy0">@</span>lhPrinter<span class="sy0">,</span> <span class="nu0">0</span><span class="br0">&#41;</span> <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cErrorMessage</span> <span class="sy0">=</span> <span class="st0">&quot;Unable to get printer handle for &quot;</span> <span class="sy0">+</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span> 
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cApiErrorMessage</span> <span class="sy0">=</span> WinApiErrMsg<span class="br0">&#40;</span>GetLastError<span class="br0">&#40;</span><span class="br0">&#41;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">RETURN</span> <span class="sy0">.</span><span class="kw2">F</span><span class="sy0">.</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp;
<br />&nbsp; &nbsp; lnFormName <span class="sy0">=</span> HeapAlloc<span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">hHeap</span><span class="sy0">,</span> <span class="nu0">0</span><span class="sy0">,</span> <span class="kw2">LEN</span><span class="br0">&#40;</span>tcFormName<span class="br0">&#41;</span> <span class="sy0">+</span> <span class="nu0">1</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="sy0">=</span> <span class="kw2">SYS</span><span class="br0">&#40;</span><span class="nu0">2600</span><span class="sy0">,</span> lnFormName<span class="sy0">,</span> <span class="kw2">LEN</span><span class="br0">&#40;</span>tcFormName<span class="br0">&#41;</span> <span class="sy0">+</span> <span class="nu0">1</span><span class="sy0">,</span> tcFormName <span class="sy0">+</span> <span class="kw1">CHR</span><span class="br0">&#40;</span><span class="nu0">0</span><span class="br0">&#41;</span><span class="br0">&#41;</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="sy0">*</span> <span class="kw3">Build</span> FORM_INFO_1 <span class="kw3">structure</span>
<br />&nbsp; &nbsp; <span class="kw1">WITH</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">oWas</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; lcForm <span class="sy0">=</span> <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="nu0">0</span><span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span>lnFormName<span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">nFormWidth</span><span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">nFormHeight</span><span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">nLeftMargin</span><span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">nTopMargin</span><span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">nFormWidth</span> <span class="sy0">-</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nRightMargin</span><span class="br0">&#41;</span> <span class="sy0">+</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="me1">Num2Long</span><span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">nFormHeight</span> <span class="sy0">-</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">nBottomMargin</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDWITH</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="sy0">*</span> Finally<span class="sy0">,</span> <span class="kw1">call</span> the API
<br />&nbsp; &nbsp; <span class="kw1">IF</span> AddForm<span class="br0">&#40;</span>lhPrinter<span class="sy0">,</span> <span class="nu0">1</span><span class="sy0">,</span> <span class="sy0">@</span>lcForm<span class="br0">&#41;</span> <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cErrorMessage</span> <span class="sy0">=</span> <span class="st0">&quot;Unable to Add Form &quot;</span> <span class="sy0">+</span> tcFormName 
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cApiErrorMessage</span> <span class="sy0">=</span> <span class="kw2">STRTRAN</span><span class="br0">&#40;</span>WinApiErrMsg<span class="br0">&#40;</span>GetLastError<span class="br0">&#40;</span><span class="br0">&#41;</span><span class="br0">&#41;</span><span class="sy0">,</span> <span class="st0">&quot;file&quot;</span><span class="sy0">,</span> <span class="st0">&quot;form&quot;</span><span class="sy0">,</span> <span class="sy0">-</span><span class="nu0">1</span><span class="sy0">,</span> <span class="sy0">-</span><span class="nu0">1</span><span class="sy0">,</span> <span class="nu0">3</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; llOK <span class="sy0">=</span> <span class="sy0">.</span><span class="kw2">F</span><span class="sy0">.</span>
<br />&nbsp; &nbsp; <span class="kw1">ELSE</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; llOK <span class="sy0">=</span> <span class="sy0">.</span><span class="kw3">T</span><span class="sy0">.</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp; &nbsp; <span class="sy0">=</span> HeapFree<span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">hHeap</span><span class="sy0">,</span> <span class="nu0">0</span><span class="sy0">,</span> lnFormName<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="sy0">=</span> ClosePrinter<span class="br0">&#40;</span>lhPrinter<span class="br0">&#41;</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw2">RETURN</span> llOK
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> ClearErrors
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cErrorMessage</span> <span class="sy0">=</span> <span class="st0">&quot;&quot;</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cApiErrorMessage</span> <span class="sy0">=</span> <span class="st0">&quot;&quot;</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDPROC</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">PROCEDURE</span> DeleteForm<span class="br0">&#40;</span>tcFormName<span class="sy0">,</span> tcPrinterName<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">LOCAL</span> lhPrinter<span class="sy0">,</span> llOK
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">IF</span> <span class="kw2">PCOUNT</span><span class="br0">&#40;</span><span class="br0">&#41;</span> <span class="sy0">&gt;</span> <span class="nu0">1</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span> <span class="sy0">=</span> tcPrinterName
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">ClearErrors</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; lhPrinter <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> OpenPrinter<span class="br0">&#40;</span><span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span><span class="sy0">,</span> <span class="sy0">@</span>lhPrinter<span class="sy0">,</span> <span class="nu0">0</span><span class="br0">&#41;</span> <span class="sy0">=</span> <span class="nu0">0</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cErrorMessage</span> <span class="sy0">=</span> <span class="st0">&quot;Unable to get printer handle for &quot;</span> <span class="sy0">+</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cPrinterName</span> <span class="sy0">+</span> <span class="st0">&quot;.&quot;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cApiErrorMessage</span> <span class="sy0">=</span> WinApiErrMsg<span class="br0">&#40;</span>GetLastError<span class="br0">&#40;</span><span class="br0">&#41;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">RETURN</span> <span class="sy0">.</span><span class="kw2">F</span><span class="sy0">.</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="sy0">*</span> Finally<span class="sy0">,</span> <span class="kw1">call</span> the API
<br />&nbsp; &nbsp; llOK <span class="sy0">=</span> <span class="br0">&#40;</span> DeleteForm<span class="br0">&#40;</span>lhPrinter<span class="sy0">,</span> tcFormName<span class="br0">&#41;</span> <span class="sy0">&lt;&gt;</span> <span class="nu0">0</span> <span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">IF</span> <span class="kw3">NOT</span> llOK 
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cErrorMessage</span> <span class="sy0">=</span> <span class="st0">&quot;Unable to delete Form &quot;</span> <span class="sy0">+</span> tcFormName 
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">cApiErrorMessage</span> <span class="sy0">=</span> <span class="kw2">STRTRAN</span><span class="br0">&#40;</span>WinApiErrMsg<span class="br0">&#40;</span>GetLastError<span class="br0">&#40;</span><span class="br0">&#41;</span><span class="br0">&#41;</span><span class="sy0">,</span> <span class="st0">&quot;file&quot;</span><span class="sy0">,</span> <span class="st0">&quot;form&quot;</span><span class="sy0">,</span> <span class="sy0">-</span><span class="nu0">1</span><span class="sy0">,</span> <span class="sy0">-</span><span class="nu0">1</span><span class="sy0">,</span> <span class="nu0">3</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">ENDIF</span>
<br />&nbsp; &nbsp; <span class="sy0">=</span> ClosePrinter<span class="br0">&#40;</span>lhPrinter<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">RETURN</span> llOK
<br />&nbsp;
<br />&nbsp; &nbsp; <span class="kw1">HIDDEN</span> <span class="kw1">PROCEDURE</span> LoadApiDlls
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">DECLARE</span> <span class="kw2">Long</span> HeapCreate <span class="kw2">IN</span> WIN32API <span class="kw2">Long</span> dwOptions<span class="sy0">,</span> <span class="kw2">Long</span> dwInitialSize<span class="sy0">,</span> <span class="kw2">Long</span> dwMaxSize
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">DECLARE</span> <span class="kw2">Long</span> HeapAlloc <span class="kw2">IN</span> WIN32API <span class="kw2">Long</span> hHeap<span class="sy0">,</span> <span class="kw2">Long</span> dwFlags<span class="sy0">,</span> <span class="kw2">Long</span> dwBytes
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">DECLARE</span> <span class="kw2">Long</span> HeapFree <span class="kw2">IN</span> WIN32API <span class="kw2">Long</span> hHeap<span class="sy0">,</span> <span class="kw2">Long</span> dwFlags<span class="sy0">,</span> <span class="kw2">Long</span> lpMem
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">DECLARE</span> HeapDestroy <span class="kw2">IN</span> WIN32API <span class="kw2">Long</span> hHeap
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">DECLARE</span> <span class="kw2">Long</span> GetLastError <span class="kw2">IN</span> kernel32
<br />&nbsp; &nbsp; <span class="kw1">ENDPROC</span>
<br />&nbsp;
<br /><span class="kw1">ENDDEFINE</span>
<br /><span class="sy0">*----------------------------------------------------------------------------------------------</span>
<br />&nbsp;
<br /><span class="kw1">FUNCTION</span> OpenPrinter<span class="br0">&#40;</span>tcPrinterName<span class="sy0">,</span> thPrinter<span class="sy0">,</span> tcDefault<span class="br0">&#41;</span>
<br /><span class="kw1">DECLARE</span> <span class="kw2">Long</span> OpenPrinter <span class="kw2">IN</span> WinSpool<span class="sy0">.</span><span class="me1">Drv</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw3">String</span> pPrinterName<span class="sy0">,</span> <span class="kw2">Long</span> <span class="sy0">@</span> phPrinter<span class="sy0">,</span> <span class="kw3">String</span> pDefault
<br /><span class="kw2">RETURN</span> &nbsp; &nbsp; OpenPrinter<span class="br0">&#40;</span>tcPrinterName<span class="sy0">,</span> <span class="sy0">@</span>thPrinter<span class="sy0">,</span> tcDefault<span class="br0">&#41;</span>
<br />&nbsp;
<br /><span class="kw1">FUNCTION</span> ClosePrinter <span class="br0">&#40;</span>thPrinter<span class="br0">&#41;</span>
<br /><span class="kw1">DECLARE</span> <span class="kw2">Long</span> ClosePrinter <span class="kw2">IN</span> WinSpool<span class="sy0">.</span><span class="me1">Drv</span> <span class="kw2">Long</span> hPrinter
<br /><span class="kw2">RETURN</span> ClosePrinter<span class="br0">&#40;</span>thPrinter<span class="br0">&#41;</span>
<br />&nbsp;
<br />&nbsp;
<br /><span class="kw1">FUNCTION</span> AddForm<span class="br0">&#40;</span>thPrinter<span class="sy0">,</span> tnLevel<span class="sy0">,</span> tcForm<span class="br0">&#41;</span>
<br /><span class="kw1">DECLARE</span> <span class="kw2">Long</span> AddForm <span class="kw2">IN</span> winspool<span class="sy0">.</span><span class="me1">drv</span> <span class="kw2">Long</span> hPrinter<span class="sy0">,</span> <span class="kw2">Long</span> <span class="kw2">Level</span><span class="sy0">,</span> <span class="kw3">String</span> <span class="sy0">@</span>pForm
<br /><span class="kw2">RETURN</span> AddForm<span class="br0">&#40;</span>thPrinter<span class="sy0">,</span> tnLevel<span class="sy0">,</span> tcForm<span class="br0">&#41;</span>
<br />&nbsp;
<br /><span class="kw1">FUNCTION</span> DeleteForm<span class="br0">&#40;</span>thPrinter<span class="sy0">,</span> tcForm<span class="br0">&#41;</span>
<br /><span class="kw1">DECLARE</span> <span class="kw2">Long</span> DeleteForm <span class="kw2">IN</span> winspool<span class="sy0">.</span><span class="me1">drv</span> <span class="kw2">Long</span> hPrinter<span class="sy0">,</span> <span class="kw3">String</span> &nbsp;pFormName 
<br /><span class="kw2">RETURN</span> DeleteForm<span class="br0">&#40;</span>thPrinter<span class="sy0">,</span> tcForm<span class="br0">&#41;</span></pre></td></tr></tbody></table></div>]]></summary>
			<author>
				<name><![CDATA[ugurlu2001]]></name>
				<uri>http://www.fox4um.com/user/30/</uri>
			</author>
			<updated>2012-02-05T16:20:40Z</updated>
			<id>http://www.fox4um.com/topic/2110/custom-paper-size-hk/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[foxyclasses moverlist]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2109/foxyclasses-moverlist/new/posts/"/>
			<summary type="html"><![CDATA[<p>Çetin bey 
<br />moverlist te sorceSQL i formun initinde nasıl oluştururuz ?
<br />şu şekilde denedim olmadı
</p><div class="codebox"><div class="head">Visual Fox Pro</div><table class="visualfoxpro fxcode"><tbody><tr class="li1"><td class="ln"><pre class="de1">1
<br />2
<br />3
<br /></pre></td><td class="de1"><pre class="de1"><span class="kw1">WITH</span> <span class="kw2">thisform</span><span class="sy0">.</span><span class="me1">moverlistx1</span>
<br /><span class="sy0">.</span><span class="me1">sourceSQL</span> <span class="sy0">=</span> <span class="st0">&quot;crsckod.ckod,firma.firma FROM crsckod,firma WHERE crsckod.ckod==firma.ckod &nbsp;INTO CURSOR crsSF&quot;</span>
<br /><span class="kw1">ENDWITH</span></pre></td></tr></tbody></table></div>]]></summary>
			<author>
				<name><![CDATA[tarik]]></name>
				<uri>http://www.fox4um.com/user/8/</uri>
			</author>
			<updated>2012-02-02T10:42:43Z</updated>
			<id>http://www.fox4um.com/topic/2109/foxyclasses-moverlist/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Formdaki grid]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2108/formdaki-grid/new/posts/"/>
			<summary type="html"><![CDATA[<p>Bir formdaki gride focus olamıyorum.
<br />Formun dışında desktopla başka bir programa tıkladığımda yani formdan uzaklaştığımda tekrar formun içindeki gride tıklarsam gride focus olamıyorum.
<br />Önce Formun header&#039;ına tıklayıp formu focuslamam gerekiyor, sonra da içindeki gride tıklayabiliyorum.
<br />Direkt gride tıklayarak focus olmanın bir yolu var mı acaba ?
<br />Yanlış bir property mi ayarladım bilemiyorum.
<br />Şimdiden teşekkürler</p>]]></summary>
			<author>
				<name><![CDATA[mgunes]]></name>
				<uri>http://www.fox4um.com/user/3087/</uri>
			</author>
			<updated>2012-01-31T09:47:58Z</updated>
			<id>http://www.fox4um.com/topic/2108/formdaki-grid/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[MessageBox]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2061/messagebox/new/posts/"/>
			<summary type="html"><![CDATA[<p>MessageBox(&#039; Seçim Yapınız&#039;, &#039;Uyarı !!!!!&#039;)
</p><p>bu uyarı yazısını ekranın istediğimiz bir yerine yazdırabilirmiyiz ?</p>]]></summary>
			<author>
				<name><![CDATA[metin]]></name>
				<uri>http://www.fox4um.com/user/31/</uri>
			</author>
			<updated>2012-01-31T09:05:37Z</updated>
			<id>http://www.fox4um.com/topic/2061/messagebox/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[INT() ile sorun]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2106/int-ile-sorun/new/posts/"/>
			<summary type="html"><![CDATA[<p>Herkese merhaba
</p><p>Command pencerede komutlari girince, sonuçlar doğru. Ama programın içinde hatalı sonuç geliyor.
<br /></p><div class="codebox"><div class="head">Visual Fox Pro</div><table class="visualfoxpro fxcode"><tbody><tr class="li1"><td class="ln"><pre class="de1">1
<br />2
<br />3
<br />4
<br />5
<br />6
<br />7
<br />8
<br />9
<br />10
<br /></pre></td><td class="de1"><pre class="de1"><span class="kw2">SET</span> DECIMAL <span class="kw3">TO</span> <span class="nu0">2</span>
<br /><span class="kw2">SET</span> <span class="kw2">FIXED</span> <span class="kw2">ON</span> &nbsp; <span class="sy0">&amp;&amp;</span> veya <span class="kw3">OFF</span><span class="sy0">,</span> farketmiyor
<br /><span class="sy0">...</span>
<br /><span class="sy0">...</span>
<br /><span class="me1">nKurus</span> <span class="sy0">=</span> <span class="sy0">.</span><span class="me1">nToplamYTL</span><span class="sy0">.</span><span class="kw4">VALUE</span> <span class="sy0">-</span> <span class="kw2">INT</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="me1">nToplamYTL</span><span class="sy0">.</span><span class="kw4">VALUE</span><span class="br0">&#41;</span> &nbsp; &nbsp;<span class="sy0">&amp;&amp;</span> burda <span class="kw2">INT</span> dogru sonucu veriyor
<br /><span class="kw1">IF</span> nKurus <span class="sy0">&gt;</span> <span class="nu0">0</span> &nbsp; &nbsp;<span class="sy0">&amp;&amp;</span> burda nKurus <span class="nu0">0</span><span class="sy0">,</span><span class="nu0">47</span>
<br />&nbsp; nKurus <span class="sy0">=</span> <span class="kw2">INT</span><span class="br0">&#40;</span>nKurus &nbsp;<span class="sy0">*</span> <span class="nu0">100</span><span class="br0">&#41;</span> &nbsp; &nbsp;<span class="sy0">&amp;&amp;</span> <span class="nu0">47</span> yerine <span class="nu0">46</span> veriyor
<br />&nbsp; <span class="sy0">...</span> 
<br />&nbsp; <span class="sy0">...</span>
<br /><span class="kw1">ENDIF</span></pre></td></tr></tbody></table></div><p>
</p><p>Şu an ROUND(nKurus * 100,0) ile idare ediyorum.
<br />Sorunun kaynağını bir türlü bulamadım. Yardımlarınız için şimdiden teşekkür
</p><p><span class="postimg"><img src="http://i.imgur.com/lerN7.gif" alt="http://i.imgur.com/lerN7.gif" /></span></p>]]></summary>
			<author>
				<name><![CDATA[Mehmet K]]></name>
				<uri>http://www.fox4um.com/user/844/</uri>
			</author>
			<updated>2012-01-31T07:06:32Z</updated>
			<id>http://www.fox4um.com/topic/2106/int-ile-sorun/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Lianja Pricing]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2102/lianja-pricing/new/posts/"/>
			<summary type="html"><![CDATA[<p>Platforms bagımsız (Linux,Mac,Windows) IDE ye sahip , kod degisikligi yapmaya gerek kalmadan desktop+web+mobile calisan ve fox scriptleri calistiran bir app ve fiyatlandirmasi kesinlesmis ilgilenenlere...
</p><p><a href="https://www.lianja.com/resources/pricing">https://www.lianja.com/resources/pricing</a></p>]]></summary>
			<author>
				<name><![CDATA[Mehmet K]]></name>
				<uri>http://www.fox4um.com/user/4/</uri>
			</author>
			<updated>2012-01-30T16:33:32Z</updated>
			<id>http://www.fox4um.com/topic/2102/lianja-pricing/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[MDB Browser]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2107/mdb-browser/new/posts/"/>
			<summary type="html"><![CDATA[<p>Cihan sormustu baska ihtiyaci olanlar olabilir diye paylastim
</p><div class="codebox"><div class="head">Visual Fox Pro</div><table class="visualfoxpro fxcode"><tbody><tr class="li1"><td class="ln"><pre class="de1">1
<br />2
<br />3
<br />4
<br />5
<br />6
<br />7
<br />8
<br />9
<br />10
<br />11
<br />12
<br />13
<br />14
<br />15
<br />16
<br />17
<br />18
<br />19
<br />20
<br />21
<br />22
<br />23
<br />24
<br />25
<br />26
<br />27
<br />28
<br />29
<br />30
<br />31
<br />32
<br />33
<br />34
<br />35
<br />36
<br />37
<br />38
<br />39
<br />40
<br />41
<br />42
<br />43
<br />44
<br />45
<br />46
<br />47
<br />48
<br />49
<br />50
<br />51
<br />52
<br />53
<br />54
<br />55
<br />56
<br />57
<br />58
<br />59
<br />60
<br />61
<br />62
<br />63
<br />64
<br />65
<br />66
<br />67
<br />68
<br />69
<br />70
<br />71
<br />72
<br />73
<br />74
<br />75
<br />76
<br />77
<br />78
<br />79
<br />80
<br />81
<br />82
<br />83
<br />84
<br /></pre></td><td class="de1"><pre class="de1"><span class="co2">*!* Author Cetin BASOZ</span>
<br /><span class="kw1">Public</span> oForm
<br />oForm <span class="sy0">=</span> <span class="kw1">Createobject</span><span class="br0">&#40;</span>'myForm'<span class="br0">&#41;</span>
<br />oForm<span class="sy0">.</span><span class="me1">Show</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp;
<br /><span class="kw1">Define</span> <span class="kw3">Class</span> myForm <span class="kw2">As</span> <span class="kw4">Form</span>
<br />&nbsp; <span class="kw4">Height</span> <span class="sy0">=</span> <span class="nu0">450</span>
<br />&nbsp; <span class="kw4">Width</span> <span class="sy0">=</span> <span class="nu0">850</span>
<br />&nbsp; <span class="kw3">DataSession</span><span class="sy0">=</span><span class="nu0">2</span>
<br />&nbsp; <span class="kw3">Caption</span><span class="sy0">=</span>'Show <span class="kw1">Access</span> Data'
<br />&nbsp;
<br />&nbsp; <span class="kw3">Add</span> Object lblAccess <span class="kw2">As</span> <span class="kw4">Label</span> <span class="kw1">With</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw3">Caption</span> <span class="sy0">=</span> <span class="st0">&quot;Access Database&quot;</span><span class="sy0">,</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw4">Left</span> <span class="sy0">=</span> <span class="nu0">10</span><span class="sy0">,</span> <span class="kw4">Top</span> <span class="sy0">=</span> <span class="nu0">15</span><span class="sy0">,</span> <span class="kw4">Width</span> <span class="sy0">=</span> <span class="nu0">100</span>
<br />&nbsp;
<br />&nbsp; <span class="kw3">Add</span> Object txtMDBlocation <span class="kw2">As</span> <span class="kw4">TextBox</span> <span class="kw1">With</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw4">Left</span> <span class="sy0">=</span> <span class="nu0">112</span><span class="sy0">,</span> <span class="kw4">Top</span> <span class="sy0">=</span> <span class="nu0">12</span><span class="sy0">,</span> <span class="kw4">Width</span> <span class="sy0">=</span> <span class="nu0">520</span>
<br />&nbsp;
<br />&nbsp; <span class="kw3">Add</span> Object cmdBrowse <span class="kw2">As</span> <span class="kw4">CommandButton</span> <span class="kw1">With</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw4">Top</span> <span class="sy0">=</span> <span class="nu0">10</span><span class="sy0">,</span> <span class="kw4">Left</span> <span class="sy0">=</span> <span class="nu0">640</span><span class="sy0">,</span> <span class="kw3">Caption</span> <span class="sy0">=</span> <span class="st0">&quot;Browse&quot;</span><span class="sy0">,</span> <span class="kw3">Autosize</span><span class="sy0">=.</span><span class="kw3">t</span><span class="sy0">.</span>
<br />&nbsp;
<br />&nbsp; <span class="kw3">Add</span> Object lblTables <span class="kw2">As</span> <span class="kw4">Label</span> <span class="kw1">With</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw3">Caption</span> <span class="sy0">=</span> <span class="st0">&quot;Tables&quot;</span><span class="sy0">,</span> <span class="kw4">Left</span> <span class="sy0">=</span> <span class="nu0">20</span><span class="sy0">,</span> <span class="kw4">Top</span> <span class="sy0">=</span> <span class="nu0">40</span><span class="sy0">,</span> <span class="kw4">Width</span> <span class="sy0">=</span> <span class="nu0">40</span>
<br />&nbsp;
<br />&nbsp; <span class="kw3">Add</span> Object lstTables <span class="kw2">As</span> <span class="kw4">ListBox</span> <span class="kw1">With</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw4">Height</span> <span class="sy0">=</span> <span class="nu0">400</span><span class="sy0">,</span> <span class="kw4">Left</span> <span class="sy0">=</span> <span class="nu0">65</span><span class="sy0">,</span> <span class="kw4">Top</span> <span class="sy0">=</span> <span class="nu0">40</span><span class="sy0">,</span> <span class="kw4">Width</span> <span class="sy0">=</span> <span class="nu0">265</span>
<br />&nbsp;
<br />&nbsp; <span class="kw3">Add</span> Object grdShow <span class="kw2">As</span> <span class="kw4">Grid</span> <span class="kw1">With</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; <span class="kw4">Height</span> <span class="sy0">=</span> <span class="nu0">400</span><span class="sy0">,</span> <span class="kw4">Left</span> <span class="sy0">=</span> <span class="nu0">340</span><span class="sy0">,</span> <span class="kw4">Top</span> <span class="sy0">=</span> <span class="nu0">40</span><span class="sy0">,</span> <span class="kw4">Width</span> <span class="sy0">=</span> <span class="nu0">500</span>
<br />&nbsp;
<br />&nbsp; <span class="kw1">Procedure</span> listtables
<br />&nbsp; &nbsp; <span class="kw1">Local</span> lnConnHandle<span class="sy0">,</span>lcMDB
<br />&nbsp; &nbsp; <span class="kw1">With</span> <span class="kw2">This</span><span class="sy0">.</span><span class="me1">txtMDBlocation</span>
<br />&nbsp; &nbsp; &nbsp; <span class="kw1">If</span> <span class="kw4">Empty</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="kw4">Value</span><span class="br0">&#41;</span> <span class="kw3">Or</span> <span class="sy0">!</span><span class="kw2">File</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="kw4">Value</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">Return</span>
<br />&nbsp; &nbsp; &nbsp; <span class="kw1">Endif</span>
<br />&nbsp; &nbsp; &nbsp; lcMDB <span class="sy0">=</span> <span class="kw2">Trim</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="kw4">Value</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">Endwith</span>
<br />&nbsp;
<br />&nbsp; &nbsp; lnConnHandle <span class="sy0">=</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp;<span class="kw2">Sqlstringconnect</span><span class="br0">&#40;</span><span class="st0">&quot;Driver={Microsoft Access Driver (*.mdb)};&quot;</span><span class="sy0">+;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="st0">&quot;Uid=Admin;DBQ=&quot;</span><span class="sy0">+</span>m<span class="sy0">.</span><span class="me1">lcMDB</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">SQLTABLES</span><span class="br0">&#40;</span>m<span class="sy0">.</span><span class="me1">lnConnHandle</span><span class="sy0">,</span> <span class="br0">&#91;</span>'<span class="kw2">TABLE</span>'<span class="br0">&#93;</span><span class="sy0">,</span> 'crsTables'<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">SQLDISCONNECT</span><span class="br0">&#40;</span>m<span class="sy0">.</span><span class="me1">lnConnHandle</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">Select</span> crsTables
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">lstTables</span><span class="sy0">.</span><span class="kw3">Clear</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">Scan</span>
<br />&nbsp; &nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="me1">lstTables</span><span class="sy0">.</span><span class="kw3">AddItem</span><span class="br0">&#40;</span>crsTables<span class="sy0">.</span><span class="me1">table_name</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">Endscan</span>
<br />&nbsp; <span class="kw1">Endproc</span>
<br />&nbsp;
<br />&nbsp;
<br />&nbsp; <span class="kw1">Procedure</span> txtMDBlocation<span class="sy0">.</span><span class="kw3">LostFocus</span>
<br />&nbsp; &nbsp; <span class="kw2">Thisform</span><span class="sy0">.</span><span class="me1">listtables</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp; <span class="kw1">Endproc</span>
<br />&nbsp;
<br />&nbsp;
<br />&nbsp; <span class="kw1">Procedure</span> cmdBrowse<span class="sy0">.</span><span class="kw3">Click</span>
<br />&nbsp; &nbsp; <span class="kw2">This</span><span class="sy0">.</span><span class="kw4">Parent</span><span class="sy0">.</span><span class="me1">txtMDBlocation</span><span class="sy0">.</span><span class="kw4">Value</span> <span class="sy0">=</span> <span class="kw1">Getfile</span><span class="br0">&#40;</span>'MDB'<span class="sy0">,</span>''<span class="sy0">,</span>''<span class="sy0">,</span><span class="nu0">0</span><span class="sy0">,</span>'<span class="kw2">Select</span> <span class="kw1">Access</span> <span class="kw3">Database</span>'<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">Thisform</span><span class="sy0">.</span><span class="me1">listtables</span><span class="br0">&#40;</span><span class="br0">&#41;</span>
<br />&nbsp; <span class="kw1">Endproc</span>
<br />&nbsp;
<br />&nbsp;
<br />&nbsp; <span class="kw1">Procedure</span> lstTables<span class="sy0">.</span><span class="kw3">InteractiveChange</span>
<br />&nbsp; &nbsp; <span class="kw1">Local</span> lnConnHandle<span class="sy0">,</span>lcMDB<span class="sy0">,</span>lcSQL
<br />&nbsp; &nbsp; <span class="kw1">With</span> <span class="kw2">This</span><span class="sy0">.</span><span class="kw4">Parent</span><span class="sy0">.</span><span class="me1">txtMDBlocation</span>
<br />&nbsp; &nbsp; &nbsp; <span class="kw1">If</span> <span class="kw4">Empty</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="kw4">Value</span><span class="br0">&#41;</span> <span class="kw3">Or</span> <span class="sy0">!</span><span class="kw2">File</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="kw4">Value</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw2">Return</span>
<br />&nbsp; &nbsp; &nbsp; <span class="kw1">Endif</span>
<br />&nbsp; &nbsp; &nbsp; lcMDB <span class="sy0">=</span> <span class="kw2">Trim</span><span class="br0">&#40;</span><span class="sy0">.</span><span class="kw4">Value</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">Endwith</span>
<br />&nbsp;
<br />&nbsp; &nbsp; lcSQL <span class="sy0">=</span> '<span class="kw2">select</span> <span class="sy0">*</span> <span class="kw2">from</span> <span class="st0">&quot;'+Trim(This.Value)+'&quot;</span>'
<br />&nbsp; &nbsp; lnConnHandle <span class="sy0">=</span> <span class="sy0">;</span>
<br />&nbsp; &nbsp; &nbsp;<span class="kw2">Sqlstringconnect</span><span class="br0">&#40;</span><span class="st0">&quot;Driver={Microsoft Access Driver (*.mdb)};&quot;</span><span class="sy0">+;</span>
<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="st0">&quot;Uid=Admin;DBQ=&quot;</span><span class="sy0">+</span>m<span class="sy0">.</span><span class="me1">lcMDB</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">SQLEXEC</span><span class="br0">&#40;</span>m<span class="sy0">.</span><span class="me1">lnConnHandle</span><span class="sy0">,</span>m<span class="sy0">.</span><span class="me1">lcSQL</span><span class="sy0">,</span>'crsLocal'<span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw2">SQLDISCONNECT</span><span class="br0">&#40;</span>m<span class="sy0">.</span><span class="me1">lnConnHandle</span><span class="br0">&#41;</span>
<br />&nbsp; &nbsp; <span class="kw1">With</span> <span class="kw2">This</span><span class="sy0">.</span><span class="kw4">Parent</span><span class="sy0">.</span><span class="me1">grdShow</span>
<br />&nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="kw3">ColumnCount</span> <span class="sy0">=</span> <span class="sy0">-</span><span class="nu0">1</span>
<br />&nbsp; &nbsp; &nbsp; <span class="sy0">.</span><span class="kw4">RecordSource</span> <span class="sy0">=</span> 'crsLocal'
<br />&nbsp; &nbsp; <span class="kw1">Endwith</span>
<br />&nbsp; <span class="kw1">Endproc</span>
<br /><span class="kw1">Enddefine</span></pre></td></tr></tbody></table></div>]]></summary>
			<author>
				<name><![CDATA[soykanozcelik]]></name>
				<uri>http://www.fox4um.com/user/4/</uri>
			</author>
			<updated>2012-01-30T13:00:00Z</updated>
			<id>http://www.fox4um.com/topic/2107/mdb-browser/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[combobox]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2079/combobox/new/posts/"/>
			<summary type="html"><![CDATA[<p>combobox da aradığımız kaydı ararken 
<br />Ör. &quot;A&quot; yazdığımızda a ile başlayan kayıtlara konumlanmasını (Ekranda göstermesini),
<br />yanına &quot;K&quot; yazdığımızda &quot;AK&quot; ile başlayan kayıtların gelmesini sağlayabilirmiyiz ?
</p><p>Ya da bunu combobox dişinda bir şekilde yapabilirmiyiz ?
</p><p>Teşekkürler.</p>]]></summary>
			<author>
				<name><![CDATA[tarik]]></name>
				<uri>http://www.fox4um.com/user/31/</uri>
			</author>
			<updated>2012-01-30T12:16:49Z</updated>
			<id>http://www.fox4um.com/topic/2079/combobox/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[elterminali programı]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2105/elterminali-programi/new/posts/"/>
			<summary type="html"><![CDATA[<p>Arkadaslar bana kodları ile beraber&nbsp; delph veya vb te yazılmış&nbsp; elterminali programı gerekiyor.&nbsp; kodları ile beraber istiyorum çünki ben daha sonra bu kodlar uzerınde musterı ıstegıne gore kucuk degısıklıkler yapacagım.Bilmediğim bir konuda sıfırdan olusturmak cok zamanımı alır. ama hazır birşey üzerinde değişiklik yapmak benım ıcın cok daha rahat olacaktır. Modüller basit ve gayet sade olabilir İstedigim moduller . 
<br />1.Cari kart
<br />2,Stok kart
<br />3,Fatura&nbsp; 
<br />4.sayım fişi
<br />5,Tahsilat -Ödeme 
</p><p>Not : (cari ve stok Kartlardaki field &#039;ler&nbsp; sadece temel bilgiler olacak .Detayları ben eklerım)
</p><p>Program of-line ve on-line çalışabilmeli (Parametrik olacka kullanıcı bunu baştan seçimini yapacak) 
<br />Of-line sahada kullanılırken kendi içerisine kaydedecek&nbsp; .(içeriye cari ve stok kartı alcak. Fatura ve tahsilatları gönderecek (Text dosya olabilir))
<br />Ofline &#039;ken Cari bakiye tutabilmeli ve&nbsp; kasa fişleri bakiyeden düşebilmeli. Fatura yazdırırken&nbsp; son bakiyeyi yazdırabilmek için
</p><p>Online ise wrles üzeründen baglandıgı serverdeki paket programa ait sql database üzerinde çalışacak.
</p><p>Bununla ilgili yardımcı olabilecek bir arkdaş varsa maliyet ve detayları şu mail adresinden görüşebilirz. (petkomahmet@hotmail.com)
<br />Tesekkurler.</p>]]></summary>
			<author>
				<name><![CDATA[petkomahmet]]></name>
				<uri>http://www.fox4um.com/user/512/</uri>
			</author>
			<updated>2012-01-27T23:33:57Z</updated>
			<id>http://www.fox4um.com/topic/2105/elterminali-programi/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[uniqe id]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2104/uniqe-id/new/posts/"/>
			<summary type="html"><![CDATA[<p>gun&nbsp; &nbsp; &nbsp; &nbsp; ay&nbsp; &nbsp; yil&nbsp; &nbsp; &nbsp; &nbsp; sicaklık&nbsp; &nbsp; enlem&nbsp; &nbsp; boylam&nbsp; &nbsp; lokasyon_id
<br />1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1&nbsp; &nbsp; 1999&nbsp; &nbsp; &nbsp; &nbsp; 23&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 22.50&nbsp; &nbsp; 30.55&nbsp; &nbsp; sayi 1
<br />1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1&nbsp; &nbsp; 1999&nbsp; &nbsp; &nbsp; &nbsp; 23&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 22.50&nbsp; &nbsp; 30.44&nbsp; &nbsp; sayi 2
<br />2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1&nbsp; &nbsp; 1999&nbsp; &nbsp; &nbsp; &nbsp; 18&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 22.50&nbsp; &nbsp; 30.80&nbsp; &nbsp; sayi 3
<br />3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1&nbsp; &nbsp; 1999&nbsp; &nbsp; &nbsp; &nbsp; 12&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 26.10&nbsp; &nbsp; 30.80&nbsp; &nbsp; sayi 4
<br />4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1&nbsp; &nbsp; 1999&nbsp; &nbsp; &nbsp; &nbsp; 22&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 22.50&nbsp; &nbsp; 30.55&nbsp; &nbsp; sayi 1
<br />..&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ..&nbsp; &nbsp; ..&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ..&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ..&nbsp; &nbsp; &nbsp; &nbsp; ..&nbsp; &nbsp; &nbsp; &nbsp; ..
</p><p>Yukarıdaki tabloda, eslesen enlem ve boylam çiftleri için uniqe&nbsp; lokasyon_id&nbsp; değerleri atamak istiyorum. 
<br />Amacım lokasyon_id değerlerini atadiktan sonra, diger field&#039;lerden bagımsız olarak lokasyon_id ile gruplanmıs ortalama sıcaklık degerlerini hesaplamak.
<br />Simdiden tesekkur ederim..</p>]]></summary>
			<author>
				<name><![CDATA[erdal]]></name>
				<uri>http://www.fox4um.com/user/71/</uri>
			</author>
			<updated>2012-01-26T20:10:05Z</updated>
			<id>http://www.fox4um.com/topic/2104/uniqe-id/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Ek-Mesai nasıl hesaplanır?]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2103/ekmesai-nasil-hesaplanir/new/posts/"/>
			<summary type="html"><![CDATA[<p>Herkese merhaba
</p><p>Kaç personel müdürüne danışdığımı artık hatırlamiyorum bile. Hepsi farklı yorumluyor. Sadece 2 kişi net bir cevap verdi.
<br />Birde size danışmak istiyorum.
</p><p>3 sorum olacak:
<br />Varsayılım saat ücretim 1,00 TL, haftalık 45 saatimi doldurdum ve sendika olmayan bir yerde çalışıyorum:
</p><p>Akşam ek mesai yapıyorum: Saat ücretim nekadar?
<br />Hafta tatil çalışmaya geliyorum: Saat ücretim ne kadar?
<br />Resmi tatil hafta tatilime denk geliyor: Saat ücretim nekadar?
</p><p>Lütfen &quot;bence&quot; ile başlayan cevap bana vermeyiniz. Bu kelime ile başlıyan bir çuval dolu cevaplarım var <img src="http://www.fox4um.com/img/smilies/smile.png" width="15" height="15" alt="smile" />
</p><p>Teşekkürler!
<br />Mehmet</p>]]></summary>
			<author>
				<name><![CDATA[msayin]]></name>
				<uri>http://www.fox4um.com/user/844/</uri>
			</author>
			<updated>2012-01-25T11:28:39Z</updated>
			<id>http://www.fox4um.com/topic/2103/ekmesai-nasil-hesaplanir/new/posts/</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[INSERT UPDATE VS.]]></title>
			<link rel="alternate" href="http://www.fox4um.com/topic/2101/insert-update-vs/new/posts/"/>
			<summary type="html"><![CDATA[<p>merhaba arkadaslar
</p><p>vfp da insert ve update komutlarinda multiuser&#039;da record veya file lock yapmak gerekiyor mu? yapmaksak ne olur ?
</p><p>simdiden tesekkurler</p>]]></summary>
			<author>
				<name><![CDATA[soykanozcelik]]></name>
				<uri>http://www.fox4um.com/user/496/</uri>
			</author>
			<updated>2012-01-25T10:34:46Z</updated>
			<id>http://www.fox4um.com/topic/2101/insert-update-vs/new/posts/</id>
		</entry>
</feed>

