Hej, sitter och försöker skriva ett enkelt bokningssystem i vb6. Tänkte att ni kanske kunde ge mig några tips för att komma igång.

Specifikation:

-I bokningssystemet skall olika personer kunna boka olika typer av utrustning, TV, projektor m.m.

-Kolumnerna skall innehålla utrustningen medans raderna skall innehålla de olika tiderna, t.ex 08.00-09.00. När man klickar i en ruta i formuläret så vill jag få upp någon typ av lista där jag anger vilken person som vill göra en bokning.

Några tips? Ska jag använda dbGrid?

M.v.h

Andreas

Bra att du undrar innan du skriver. Just databasens struktur är en sån sak som kan ställa till problem om man inte gjort den bra från början.

Jag föreslår att du skapar en databas med 3 tabeller.

* Utrustning (Id, Namn, Beskrivning t.ex.)
* Personer (Id, Namn t.ex.)
* Bokningar (Utrustning.Id, Namn.Id, StartTid, SlutTid t.ex.)

DbGrid blir bra för att visa bokningarna. Då du har Utrustning och Personer i datatabeller kan du enkelt lägga in dem i en combobox med style "dropdown list" så att man bara kan välja på det du har i tabellerna.

Mvh, Janne

här har du hur du kan visa visuellt vilka artiklar som är upptagna
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim constr As String
Dim sqlcmd As String

Dim con2 As New ADODB.Connection
Dim rst2 As New ADODB.Recordset
Dim constr2 As String
Dim sqlcmd2 As String

Dim con3 As New ADODB.Connection
Dim rst3 As New ADODB.Recordset
Dim constr3 As String
Dim sqlcmd3 As String

Dim datumf As Date
Dim datumt As Date
Dim artid As Variant
Dim listart As Variant
Dim coldatum As Variant


'kollar hur många artiklarsom finns i databasen
constr3 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=bokningsdb"
con3.ConnectionString = constr3
con3.Open constr3

sqlcmd3 = "Select count(artikelid) from artikel"
rst3.Open sqlcmd3, con3

antalartiklar = rst3.Fields(0)

rst3.Close

'Färgar allt grönt
Call malagront


'selectar och skriverut alla artikelnummer i vänstra columnen
constr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=bokningsdb"
con.ConnectionString = constr
con.Open constr

sqlcmd = "Select artikelid, typ, märke, modell from artikel order by typ, märke, modell"
rst.Open sqlcmd, con

If rst.EOF Then GoTo 200
rst.MoveFirst
listart = 1

Do While Not rst.EOF
grid.TextMatrix(listart, 0) = rst.Fields(0)
grid.TextMatrix(listart, 1) = rst.Fields(1)
grid.TextMatrix(listart, 2) = rst.Fields(2)
grid.TextMatrix(listart, 3) = rst.Fields(3)
rst.MoveNext
listart = listart + 1
Loop



'definierar koppling 2
constr2 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=bokningsdb"
con2.ConnectionString = constr2
con2.Open constr2




'hel process

Y = 1
X = 4

Do While Y <= antalartiklar



For j = 1 To 7

artid = grid.TextMatrix(Y, 0)
coldatum = grid.TextMatrix(0, X)

sqlcmd2 = "Select * from bokning where artikelid = " & artid
rst2.Open sqlcmd2, con2

If rst2.EOF Then GoTo 100

If Not rst2.BOF = True Then rst2.MoveFirst

datumf = rst2.Fields(3)
datumt = rst2.Fields(2)


Do While Not rst2.EOF

datumf = rst2.Fields(3)
datumt = rst2.Fields(2)


If coldatum >= datumf And coldatum <= datumt Then Call rodfarg(Y, X)
rst2.MoveNext

Loop
rst2.Close
X = X + 1

Next j

GoTo 200
100 rst2.Close
200

Y = Y + 1
X = 4

Loop
YEAR.Caption = grid.TextMatrix(0, 5)