version 5.80 2 Form3 Form2 Form1 3 55 0 0 0 31 0 0 48 0 0 0 0 0 0 0 0 0 0 1 238 268 0 0 0 Sub designer addform(Form3,"Form3","",220,220,220)@ addtable(form3,Table1,0,0,240,270,"",245,245,245,0,0,0,True,True,9)@ addform(Form2,"Form2","",220,220,220)@ addbutton(form2,Button38,215,210,25,25,":",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button36,155,210,25,25,".",212,208,200,0,0,0,True,True,15)@ addtextbox(form2,aTextBox,5,70,175,37,"",255,255,255,0,0,0,True,True,False,15)@ addbutton(form2,Button53,185,60,55,55,"CLOSE",212,208,200,0,0,0,True,True,9)@ addbutton(form2,btnnext,185,5,55,55,"NEXT",212,208,200,0,0,0,True,True,9)@ addbutton(form2,btndel,185,240,55,30,"DEL",212,208,200,0,0,0,True,True,13)@ addbutton(form2,Button26,150,240,30,30,"Z",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button37,185,210,25,25,"0",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button34,185,180,25,25,"8",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button35,215,180,25,25,"9",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button32,215,150,25,25,"6",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button31,185,150,25,25,"5",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button33,155,180,25,25,"7",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button30,155,150,25,25,"4",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button25,120,240,30,30,"Y",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button24,90,240,30,30,"X",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button20,120,210,30,30,"T",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button19,90,210,30,30,"S",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button15,120,180,30,30,"O",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button14,90,180,30,30,"N",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button10,120,150,30,30,"J",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button9,90,150,30,30,"I",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button23,60,240,30,30,"W",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button18,60,210,30,30,"R",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button13,60,180,30,30,"M",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button8,60,150,30,30,"H",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button22,30,240,30,30,"V",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button17,30,210,30,30,"Q",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button12,30,180,30,30,"L",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button7,30,150,30,30,"G",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button29,215,120,25,25,"3",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button28,185,120,25,25,"2",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button27,155,120,25,25,"1",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button5,120,120,30,30,"E",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button4,90,120,30,30,"D",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button3,60,120,30,30,"C",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button2,30,120,30,30,"B",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button21,0,240,30,30,"U",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button16,0,210,30,30,"P",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button11,0,180,30,30,"K",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button6,0,150,30,30,"F",212,208,200,0,0,0,True,True,15)@ addbutton(form2,Button1,0,120,30,30,"A",212,208,200,0,0,0,True,True,15)@ addform(Form1,"Form1","",220,220,220)@ addtextbox(form1,alTextBox,85,115,75,22,"",255,255,255,0,0,0,True,True,False,9)@ addtextbox(form1,TextBox3,150,15,28,20,"",255,255,255,0,0,0,True,True,False,8)@ addbutton(form1,nov,195,245,40,20,"nov",212,208,200,0,0,0,True,True,9)@ addbutton(form1,tab,150,245,40,20,"tabela",212,208,200,0,0,0,True,True,9)@ addbutton(form1,vnos,105,245,40,20,"vnos",212,208,200,0,0,0,True,True,9)@ addtextbox(form1,TextBox30,50,245,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addlabel(form1,Label30,5,248,45,20,"Chk Out",220,220,220,0,0,0,True,True,8)@ addtextbox(form1,TextBox29,215,215,20,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox28,160,215,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox27,105,215,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox26,50,215,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox25,0,215,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addlabel(form1,Label29,212,200,25,20,"F/A",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label28,165,200,30,20,"LND",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label27,113,200,20,20,"To",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label26,55,200,25,20,"T/O",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label25,3,200,30,20,"From",220,220,220,0,0,0,True,True,8)@ addtextbox(form1,TextBox24,215,175,20,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox23,160,175,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox22,105,175,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox21,50,175,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox20,0,175,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addlabel(form1,Label24,212,160,25,20,"F/A",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label23,165,160,30,20,"LND",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label22,113,160,20,20,"To",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label21,55,160,25,20,"T/O",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label20,3,160,30,20,"From",220,220,220,0,0,0,True,True,8)@ addtextbox(form1,TextBox19,215,135,20,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox18,160,135,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox17,105,135,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox16,50,135,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox15,0,135,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox14,215,95,20,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox13,160,95,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox12,105,95,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox11,50,95,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox10,0,95,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox9,215,55,20,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox8,160,55,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox7,105,55,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox6,50,55,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox5,0,55,38,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox4,195,15,35,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox2,90,15,43,20,"",255,255,255,0,0,0,True,True,False,8)@ addtextbox(form1,TextBox1,5,15,63,20,"",255,255,255,0,0,0,True,True,False,8)@ addlabel(form1,Label14,212,80,25,20,"F/A",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label13,165,80,30,20,"LND",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label12,113,80,20,20,"To",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label11,55,80,25,20,"T/O",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label10,3,80,30,20,"From",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label9,212,40,25,20,"F/A",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label8,113,40,20,20,"To",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label7,165,40,30,20,"LND",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label6,55,40,25,20,"T/O",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label5,3,40,30,20,"From",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label4,195,0,40,20,"Chk In",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label3,86,0,50,20,"Order no.",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label2,20,0,35,20,"Date",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label15,3,120,30,20,"From",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label16,55,120,25,20,"T/O",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label17,113,120,20,20,"To",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label18,165,120,30,20,"LND",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label19,212,120,25,20,"F/A",220,220,220,0,0,0,True,True,8)@ addlabel(form1,Label31,152,0,25,20,"A/C",220,220,220,0,0,0,True,True,8)@ End Sub @EndOfDesignText@'Sub Globals ' Dim i, j ' dataFile = "Baza.csv" ' cur_row = 0 ' changes = false '' add = false 'End Sub ' 'Sub App_Start ' DateFormat ("dd.mm.yyyy") ' TimeFormat ("HH:mm") ' textbox1.Text = Date(Now) ' ' table1.AddCol(cString, "Date", 100, True) ' table1.AddCol(cString, "Order", 70, False) ' table1.AddCol(cString, "A/C", 50, False) ' table1.AddCol(cString, "ChkIn", 50, False) ' table1.AddCol(cString, "From1", 50, False) ' table1.AddCol(cString, "T/O1", 50, False) ' table1.AddCol(cString, "To1", 50, False) ' table1.AddCol(cString, "Lnd1", 50, False) ' table1.AddCol(cString, "F/A1", 25, False) ' table1.AddCol(cString, "Block1", 50, False) ' table1.AddCol(cString, "From2", 50, False) ' table1.AddCol(cString, "T/O2", 50, False) ' table1.AddCol(cString, "To2", 50, False) ' table1.AddCol(cString, "Lnd2", 50, False) ' table1.AddCol(cString, "F/A2", 25, False) ' table1.AddCol(cString, "Block2", 50, False) ' table1.AddCol(cString, "From3", 50, False) ' table1.AddCol(cString, "T/O3", 50, False) ' table1.AddCol(cString, "To3", 50, False) ' table1.AddCol(cString, "Lnd3", 50, False) ' table1.AddCol(cString, "F/A3", 25, False) ' table1.AddCol(cString, "Block3", 50, False) ' table1.AddCol(cString, "From4", 50, False) ' table1.AddCol(cString, "T/O4", 50, False) ' table1.AddCol(cString, "To4", 50, False) ' table1.AddCol(cString, "Lnd4", 50, False) ' table1.AddCol(cString, "F/A4", 25, False) ' table1.AddCol(cString, "Block4", 50, False) ' table1.AddCol(cString, "From5", 50, False) ' table1.AddCol(cString, "T/O5", 50, False) ' table1.AddCol(cString, "To5", 50, False) ' table1.AddCol(cString, "Lnd5", 50, False) ' table1.AddCol(cString, "F/A5", 25, False) ' table1.AddCol(cString, "Block5", 50, False) ' table1.AddCol(cString, "Chk Out", 50, False) ' '' table1.Cell("Block1", 1) = Time(TimeParse(table1.Cell("Lnd1", 1) - TimeParse(table1.Cell("T/O1", 1))) ' ' For j = 1 To 38 ' AddEvent ("button" & j, Click, "button_click") ' Next ' '' Form1.Show ' ' If FileExist(dataFile) Then ' table1.LoadCSV(dataFile,",",True,False) ' table1.TableSort(Table1.colname(0) & " ASC") ' ShowRow ' 'Table2.SelectCell(Table2.colname(0), 1) ' 'Table2.SelectCell(Table2.colname(0), 0) ' Else ' Msgbox("Baza podatkov ni bila najdena"," Napaka - Podatki",cMsgboxOk,cMsgboxHand) ' End If ' textbox1.Focus 'End Sub ' 'Sub ShowRow ' textbox1.Text = Table1.Cell(Table1.colname(0), cur_row) 'datum ' textbox2.Text = Table1.Cell(Table1.colname(1), cur_row) 'order ' textbox3.Text = Table1.Cell(Table1.colname(2), cur_row) 'a/c ' textbox4.Text = Table1.Cell(Table1.colname(3), cur_row) 'chkin ' textbox5.Text = Table1.Cell(Table1.colname(4), cur_row) 'from ' textbox6.Text = Table1.Cell(Table1.colname(5), cur_row) 't/o ' textbox7.Text = Table1.Cell(Table1.colname(6), cur_row) 'to ' textbox8.Text = Table1.Cell(Table1.colname(7), cur_row) 'lnd ' textbox9.Text = Table1.Cell(Table1.colname(8), cur_row) 'f/a >> col9 = ' textbox10.Text = Table1.Cell(Table1.colname(10), cur_row) ' textbox11.Text = Table1.Cell(Table1.colname(11), cur_row) ' textbox12.Text = Table1.Cell(Table1.colname(12), cur_row) ' textbox13.Text = Table1.Cell(Table1.colname(13), cur_row) ' textbox14.Text = Table1.Cell(Table1.colname(14), cur_row) '2 ' textbox15.Text = Table1.Cell(Table1.colname(16), cur_row) ' textbox16.Text = Table1.Cell(Table1.colname(17), cur_row) ' textbox17.Text = Table1.Cell(Table1.colname(18), cur_row) ' textbox18.Text = Table1.Cell(Table1.colname(19), cur_row) ' textbox19.Text = Table1.Cell(Table1.colname(20), cur_row) '3 ' textbox20.Text = Table1.Cell(Table1.colname(22), cur_row) ' textbox21.Text = Table1.Cell(Table1.colname(23), cur_row) ' textbox22.Text = Table1.Cell(Table1.colname(24), cur_row) ' textbox23.Text = Table1.Cell(Table1.colname(25), cur_row) ' textbox24.Text = Table1.Cell(Table1.colname(26), cur_row) '4 ' textbox25.Text = Table1.Cell(Table1.colname(28), cur_row) ' textbox26.Text = Table1.Cell(Table1.colname(29), cur_row) ' textbox27.Text = Table1.Cell(Table1.colname(30), cur_row) ' textbox28.Text = Table1.Cell(Table1.colname(31), cur_row) ' textbox29.Text = Table1.Cell(Table1.colname(32), cur_row) '5 ' textbox30.Text = Table1.Cell(Table1.colname(34), cur_row) 'End Sub ' 'Sub vnos_Click ' form2.Show ' 'For i = 1 To 30 ' 'textbox46.Text = Control("textbox" & i).gotfocus ' 'Next ' 'textbox46.Focus 'End Sub 'Sub button_click ' textbox46.Text = textbox46.Text & Sender.text 'End Sub ' 'Sub btndel_Click ' textbox46.Text = "" 'End Sub 'Sub btnnext_Click ' i = 0 ' Control("textbox" & i+1).text = textbox46.Text ' ' Control("textbox" & i + 1).focus ' 'Next ' 'textbox2.Text = textbox46.Text 'End Sub ' 'Sub tab_click ' form3.Show 'End Sub 'Sub nov_click 'For i = 1 To 44 ' Do "textbox" & i & ".text" = "" ' i = i + 1 ' Loop Until i = 44 'Next 'end Sub '################################################################################################################################## Sub Globals Dim focused 'saves the focused textbox name End Sub Sub App_Start Form1.Show initializecontrols End Sub 'Sub vnos_Click ' Form2.Show ' InitializeControls 'End Sub Sub InitializeControls alTextBox.Add("textbox1") alTextBox.Add("textbox2") alTextBox.Add("textbox3") alTextBox.Add("textbox4") alTextBox.Add("textbox5") alTextBox.Add("textbox6") alTextBox.Add("textbox7") alTextBox.Add("textbox8") alTextBox.Add("textbox9") alTextBox.Add("textbox10") alTextBox.Add("textbox11") alTextBox.Add("textbox12") alTextBox.Add("textbox13") alTextBox.Add("textbox14") alTextBox.Add("textbox15") alTextBox.Add("textbox16") alTextBox.Add("textbox17") alTextBox.Add("textbox18") alTextBox.Add("textbox19") alTextBox.Add("textbox20") alTextBox.Add("textbox21") alTextBox.Add("textbox22") alTextBox.Add("textbox23") alTextBox.Add("textbox24") alTextBox.Add("textbox25") alTextBox.Add("textbox26") alTextBox.Add("textbox27") alTextBox.Add("textbox28") alTextBox.Add("textbox29") alTextBox.Add("textbox30") For i = 1 To 38 'Adds the click event to all regular number buttons. AddEvent("Button" & i, Click, "Numbers_Click") Next For i = 0 To alTextBox.Count -1 'Adds the gotfocus event to all textboxes. AddEvent(alTextBox.Item(i),GotFocus, "TextBoxes_GotFocus") Next focused = alTextBox.Item(0) Control(focused).Focus End Sub Sub TextBoxes_GotFocus focused = Sender.Name End Sub Sub Numbers_Click 'Handles 0-9 and '.' st = Control(focused).SelectionStart txt = Control(focused).Text If Sender.Text = "." Then 'checks for multiple periods. i = StrIndexOf(txt,".",0) If i = -1 Then Goto ok sl = Control(focused).SelectionLength If sl > 0 Then If StrIndexOf(SubString(txt,st,sl),".",0) > -1 Then Goto ok End If Control(focused).Focus Return End If ok: If Control(focused).SelectionLength > 0 Then Control(focused).Text = StrRemove(txt,st, Control(focused).SelectionLength) End If Control(focused).Text = StrInsert(Control(focused).Text,st,Sender.Text) Control(focused).SelectionLength = 0 Control(focused).SelectionStart = st + 1 Control(focused).Focus End Sub Sub btndel_Click 'Backspace st = Control(focused).SelectionStart txt = Control(focused).Text If Control(focused).SelectionLength > 0 Then Control(focused).Text = StrRemove(txt,st, Control(focused).SelectionLength) Control(focused).SelectionStart = st Else If st > 0 Then Control(focused).Text = StrRemove(txt,st-1,1) Control(focused).SelectionStart = st - 1 End If Control(focused).SelectionLength = 0 Control(focused).Focus End Sub 'Sub btnC_Click 'Clear all ' Control(focused).Text = "" ' Control(focused).Focus 'End Sub Sub btnnext_Click i = alTextBox.IndexOf(focused) i = (i + 1) Mod alTextBox.Count focused = alTextBox.Item(i) Control(focused).SelectionStart = 0 Control(focused).SelectionLength = StrLength(Control(focused).Text) Control(focused).Focus End Sub