svlad

Check-in [25bf48a75d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added first action.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:25bf48a75dbe63e7e3fefcae65e9f349385ccfc9
User & Date: severak 2012-04-16 20:15:15
Context
2012-04-21
19:55
Changed Jo's cloning to using metamethods as described in PIL. check-in: 735070cae7 user: severak tags: trunk
2012-04-16
20:15
Added first action. check-in: 25bf48a75d user: severak tags: trunk
2012-04-15
19:54
Added menu. check-in: 5c626a4a09 user: severak tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to svlad.lua.

59
60
61
62
63
64
65




66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
..
97
98
99
100
101
102
103
104
105
106
  print("OnHeaderClick")
  print(IsColumn,index)
end

function showAbout(sender)
  VCL.ShowMessage("SVLAD\n\nTable editor by Severak")
end





env=luasql.sqlite3()
conn=assert(env:connect("prachy.db3"))

menu={
  {caption="&Databases",submenu={
    {caption="&Attach"},
    {caption="&Import"},
    {caption="&Export"}
  }},
  {caption="&Actions",submenu={
    {caption="&Show tables"}
  }},
  {caption="&About",submenu={
    {name="about",caption="&About",onclick="showAbout"},
    {caption="-"},
    {caption="&Info"}
  }}
}
................................................................................

sql=VCL.Memo(p,"sql")
sql._={ align="alClient",  font={name="Courier"} }

fire=VCL.Button(p,"fire")
fire._={ align="alBottom", caption="PAL!", onclick="sql_dotaz" }

showAbout()

main:ShowModal()







>
>
>
>











|







 







<
<

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
...
101
102
103
104
105
106
107


108
  print("OnHeaderClick")
  print(IsColumn,index)
end

function showAbout(sender)
  VCL.ShowMessage("SVLAD\n\nTable editor by Severak")
end

function showTables(sender)
  showresult("SELECT * FROM sqlite_master WHERE type='table' ORDER BY name ASC")
end

env=luasql.sqlite3()
conn=assert(env:connect("prachy.db3"))

menu={
  {caption="&Databases",submenu={
    {caption="&Attach"},
    {caption="&Import"},
    {caption="&Export"}
  }},
  {caption="&Actions",submenu={
    {caption="&Show tables",onclick="showTables"}
  }},
  {caption="&About",submenu={
    {name="about",caption="&About",onclick="showAbout"},
    {caption="-"},
    {caption="&Info"}
  }}
}
................................................................................

sql=VCL.Memo(p,"sql")
sql._={ align="alClient",  font={name="Courier"} }

fire=VCL.Button(p,"fire")
fire._={ align="alBottom", caption="PAL!", onclick="sql_dotaz" }



main:ShowModal()