form loadban a set utastst, a dat szmlk. rst parner rszt kiszedjk vglapra a tbbit megszntetjk
rsdatnv eket rscmddatnv re kicserrljk az sszeset

rsdatenv eket az edit men replace menjvel kicserljk: datszamlak

talaktjuk gy hogy ado adatvezrln keresztl csatalkozzunk

designers rszen jobb gomb majd remove data enviroment

kiszedjk a jobb oldalt a designers rszen, a datSzamlak at jobb gomb majd remove val kiszedjk.

componentsben a microsoft data ado contorl t hozzadjuk

ADOdc megjelenik.

erre nyomunk s az rlap aljra elhelyezzk ezt a vezrlt

rtesszk ezt az adodc t s ott van u.a amit a multkor csinltunk, de mghangolni kell a gombokat ki kell trlni
adodcPartner -re tnevezzk

jobb gombal rkatt, majd adodc tualjdonsgot vlasztjuk ki

Tbb lehetsgnk van, hogy sszekssk...
ODBC tartalmazhatn ha ltrehozunk ilyent de nem.

a Use connection stringet hasznljuk
Buildre kattintunk


ki kell vlasztani a szolgltatt(provider):
MS Jet 4 et vlasztjuk majd tovbb

tallzssal szamlak adatb.

kapcs teszt.
rdemes ezt megnzni(vizsga?):
authetntikcit(jogosultsgi tma)
aztn record source. adatforrs.
harmadik fl.
msodik flet kell kivlasztani
msodik lenyl lfasz, partner tblt kivlasztjuk

most mg hozz kell ktni ehez cucot
pl pkod ot
rnyomunk a txtPkod ra
majd oldlat a data format ot lltjuk meg a data membert meg a datasource t
lenlbl kivlasztjuk az adodc parnter nevt
datamembert kitrljk.
datasource -->adodcPartner
a data enviroment tbb kommand objektumot is tartalmazhat ez nem
a tbbi vezrln is u.e. kell csinlni

datszamlak.rscmdparnterre hivatkozik a kdunk
ezt mg basztatni kell.

replacel jracsinljuk

rscmdpartner t adodcparnter.recordset re

fell a dim recordset et kitrlni
meg amit kicserlt???? faszom.
nem tudom ez mirt gy j de j.



j project.
nem standard exe hanem 
VB application wizard ot 
nem akarunk profilt csinlni
MDI s vagy SDI s legyen (MDI s t mr nznk, amikor a szvegszerkesztt csinltuk fablak azaon bell al ablakok)
SDI kell neknk, hogy fggetlenl tudjuk csesztetni ket
ezt clszer ha varzslunk.
megadjuk a project nevt, prjkszamlak nven.
semmi men nem kell.

next

a jobb oldali listbl mindent ttolunk a bal oldalra a << al.

next

erfoprrs fjlt lehet itt hasznlni.(ez akkor j ha tbb nyelvet akarunk hasznlni)

neten sem szeretnnk
next


hozz lehet itt adni mindenfle mkt
(semmi mindenflt nem adunkhozz)
next

itt a lnyeg, hozzadunk rlapokat-> create new form.

  priofilokat lehetne hasznlni de nem.
  acces kell neknk
  browsal accest kikeressk a szamlakat
  itt krdezi hogy milyen legyen a form kialaktsa a neve: frmPartner 
     Single record
     Grid: tblzatban jelenik meg
     Master/detail: szl rekord, s a gyermekeket alatta(vizsga!!!) egyszerre a szl gyeremke tbla ltszik
   Ado data vezrl vagy ado code, stb
   most az ado datacontrol marad.
   next
  parnert kivlasztjuk az sszestz kivl.. hozzad
  automatikusan generlt gombok mind kell
  next
  majd finish

ksz legenerlta
Mivel microsoft termk -> nem mxik..
project men references ben be kell lltani a leges legmagasabb verzi szm microsoft data objectet
Microsoft ActiveX data object 2.8 
ltalbna a legfrissebb SP elttiekkel nem megy.(min 5 s)

vizsgn hogy mxn a mezjk sorrendjt meg kell vltoztatni, meg a labeleket le kell cserlni, stbb
iranyito szam kapcs tart stb stb..
ez kell vizsgra!!! (sok sok sok pont)
ja meg hgy az frm partner legyen az alapbl elindul...
gombok felirata!, szlessgt is be kell lltani hogy akkora  legyen mint a tartalma.

partner kddal gond van mivel ez szamlal adatipusu itt baj lehet...
be kell lltani hogy ne lehessen hozzfrni, enable t false re ltjuk
lock tulajt, a fokusz rkerlhet de nem mdosthat! (legalb ezt be kell lltani)





vizsgn az !!!!!!ellenrztt adatbevitel !!!!!  fontos!!!!

2 fajta kppen lehet megcsinlni,
lehet alkalmazs szinten is, meg lehet cisnlni adatb szinten is

alkalmazs szinen a vezrlk tipusnak megfelel hangols az egyik a msik hogy kdban btyklnk.
van egy validate esemny, ennek a megnyilsval is ellenrizhet.


Irszm esete:
ez sima textboxban troldik, 4 db szm kell. 
jobb eggomb, a bal oldlai toolbarnl.
componenet microsoft masked edit contorl.
az irnyt szmrublika helyre tesszk
txtIrsz nven
belltjuk a dolgait
properties nl a mask nl kell megadni.

# -n szm(helpben megvan)
prompt include ot szedjk ki a true t-> false ra


mg kell szrs mert nem kezddhet 0 val...
van egy esemny hogy validate.

txtIrsz et a bal felsbl a jobbbl a validate et
a cancel=true ra
txtIrsz tartalma legyen nagyobb mint 1000


Private Sub TxtIrsz_Validate(Cancel As Boolean)
   Cancel = True
   
   If Val(TxtIrsz) > 1000 Then
   Cancel = False
   End If
   
End Sub


msik megolds:

adatbzisban vizsglunk.(adatb1)

utols varzsls.

karbantart rlap ami kezeli a szmlkat, s a tteleket egyszerre














     
      
