Centar za edukaciju-BiH



#1 27.07.2013 13:44
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Kasa MSAccess to VB6
Pozdrav
Eve za sto se raboti
Imam izraboteno program za KASA vo MSAccess koj veke 2 godini dobro funkcionira bez nikakvi problemi.
Sega mi treba da toj program odnosno samo delot za Izdavajne smetki Kasata ja prepravam vo VB6.
Napraviv Forma i na formata dodadov eden GRID koj ke mi sluzi kako Subforma. Dodadov Command butons i sve ostanato sto ke mi treba.
Sega mi se javia nekolku problemi sto mi e tesko da gi resam.
1.Prvo sto sakam e Programot da izgleda identicno kako starata kasa " Sto ne e problem da se resi "
2.Kasata treba da funkcionira identicno na starata odnosno da gi ima site funkcii kako starata
3.Sakam da se koristi samo eden tip na konekcija po moznost ADO
4.Da mozam da koristam tri tipovi na bazi odnosno MSAccess ,MY SQL i MSSQL so toa sto ke ja zamenam samo konecijata.
E sega od kaj da pocnam ?
Eve gi starata kasa vo MSAccess i ona sto sum go napravil do sega vo vb
- Prvo sto mi treba e da gi povrzam kako Master i Slave Formata i Gridot
- Vtoro sakam Gridot da go sredam kako subformata od starata kasa
za grid koristam TDBGrid koj ima dosta moznosti od koi na zalost jas ne znam mnogu da koristam
ako imate predlog za nekoj drug grid ne e problem samo da go dobijam ona sto mi treba
(vo prilog e i instalacijata za gridot)

Se nadevam deka ke mi pomognite da go resam ova.
pozdrav
↑  ↓

#2 27.07.2013 13:51
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
Eve gi programite

Prilozi:
Informacije o tipu datoteke za:rar  Grid.rar
Preuzimanja:318
Velicina datoteke:1.05 MB
Informacije o tipu datoteke za:rar  Kasa v2.62.rar
Preuzimanja:339
Velicina datoteke:355.94 KB
Informacije o tipu datoteke za:rar  Kasa vb.rar
Preuzimanja:305
Velicina datoteke:66.18 KB

↑  ↓

#3 27.07.2013 16:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kasa MSAccess to VB6
Posto ovdje treba malo vise vremena, moci cu da pomognem za nekoliko dana.
Sada nisam u prilici.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 28.07.2013 11:48
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
Ne e problem.Ti samo vodi ja rabotava jas ke rabotam.
Fala mnogu.
Me interesira ima uste nekoj na forumov sto raboti Visual basic ?
↑  ↓

#5 31.07.2013 23:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kasa MSAccess to VB6
Evo kako bi to izgledalo sa dao.
Za ostalo sto nisam uradio a ne ide pitaj.
Rusio sam racunar pa nisam stigao prije.

Nisam jos sve sredio oko compa kad stignem, napravit cu ti primjer i sa ado.

Prilozi:
Informacije o tipu datoteke za:zip  vbDAO.zip
Preuzimanja:328
Velicina datoteke:135.48 KB


Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 01.08.2013 17:26
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
go poglednav ova sto mi go isprati toa e ok no ne e toa sto go sakam eve vaka da ja ostavime formata za najava nastrana ne mi treba sega toa da se fokusirame samo na kasata.
Jas vo meguvreme rabotev nesto i mislam deka e toa sto go sakam.
Eve sto imam napraveno do sega:
E sega dali moze da porabotime malku na Gridot bidejki golem del od operaciite se rabotat tuka
Kako da go kofiguriram comboto sto go imam na subformata od Accesot. i da mu dodadam funkcionalnosti na gridot .

Prilozi:
Informacije o tipu datoteke za:rar  Kasa vb.rar
Preuzimanja:298
Velicina datoteke:74.62 KB

↑  ↓

#7 01.08.2013 20:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kasa MSAccess to VB6
Uf ja sam mislio da si tek poceo.
Podcijenio sam te.
Samo ja ti nebih preporucio da se zamajavas ovim nestandardnim gridovima.
Ja bih to sve uradio sa standardnim objektima sigurnije je.
Imam ti i ja dosta tih objekata gotovih ako hoces.
Umjesto coba ja na dupli klik napravim da se otvori forma sa spiskom ili ako hoces mozes staviti jedan list da bude nevidljiv i njega koristis za to, samo sto ga moras pšomijerati na poziciju misa.

Ako si bas rijesio sa ovim onda evo:
Set col0 = gridStavki_Smetka.Columns(0)
col0.ValueItems.Presentation = 2
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 01.08.2013 20:41
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
ok moze i so standarden grid ne e problem daj eden primer so standarden grid preporacaj mi nekoj
jas nemam raboteno mnogu so gridovi taka da nemam nekoe iskustvo
↑  ↓

#9 01.08.2013 20:50
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
ok vaka se formira combo no treba da go napolnam toa combo so podatoci.
Jas vo starata kasa site podatoci gi zemam od comboto no ako imas podobro resenie predlozi mi.
Mozda e podobro da napravam nekoj recordset so SQL no vo toj slucaj ke mi treba nalesto IDI_Artikal
koj momentalno se gleda na gridot da se gleda nazivot od artiklot ,normalno i na comboto treba da se gleda nazivot na artiklot.
I dali mozam na Gridot da imam Skrieni polijan vo koi vnesuvam razni vrednosti koi mi trebaat za ponataka
↑  ↓

#10 01.08.2013 21:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kasa MSAccess to VB6
Vidis combo u vb sluzi samo za dodavanja malog broja podataka (redova) a za veci broj podatak imas dbCombo.
Znaci ovi dodaci comba na grid nece ti dobro raditi napr. ako dodas arikle a imas ih preko 1000.
Zato ti predlazem da na dupli klik napravis list ili novu formu da se otvori sa sa spiskom atikala.
Imam ti ja tih ocx grid sa otvorenim kodom pa ako ti se da mozes i prepravljati sebi.
Evo ti dodavanje pa probajk kako ce ti raditi.
Set Col0 = gridStavki_Smetka.Columns(0)
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(0).Value = "1"
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(1).Value = "2"
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(2).Value = "3"
Col0.ValueItems.Presentation = 2

ili petlja i onda
Dim i
dim N
n=rs.recordcount()

for i= 0 to n
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(i).Value = Rs!Imepolja
rs.movenext
next i
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (3):1,2,3


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 19 am.