Data.module0100664000175300003300000000154110277174540012134 0ustar jillljedit' Gambas module file PRIVATE myDB AS NEW Connection PUBLIC tmpRec AS Result PUBLIC FUNCTION connect2db() AS Boolean WITH myDB .Type = "mysql" .Host = "localhost" .Login = "bugtracker" .Password = "mypassword" .Name = "bugtracker" END WITH TRY myDB.Open IF ERROR THEN Message ("Cannot Open bugtracker:" & Error.Text) RETURN FALSE END IF RETURN TRUE END PUBLIC FUNCTION Exec(sql AS String) AS Result tmpRec = myDB.Exec(sql) END PUBLIC FUNCTION get_id (tName AS String, fName AS String, name AS String) AS Integer DIM sql AS String sql = "select id from " & tName & " where " & fName & "='" & name & "'" tmpRec=myDB.Exec(sql) RETURN tmpRec!id END PUBLIC SUB loadCombo (combo AS ComboBox, sql AS String) combo.Clear tmpRec = myDB.Exec(sql) FOR EACH tmpRec combo.Add (tmpRec[0]) NEXT END Data.module~0100664000175300003300000000167310277172001012326 0ustar jillljedit' Gambas module file PRIVATE myDB AS NEW Connection PUBLIC FUNCTION connect2db() AS Boolean WITH myDB .Type = "mysql" .Host = "localhost" .Login = "bugtracker" .Password = "mypassword" .Name = "bugtracker" END WITH TRY myDB.Open IF ERROR THEN Message ("Cannot Open bugtracker:" & Error.Text) RETURN FALSE END IF RETURN TRUE END PUBLIC FUNCTION Exec(sql AS String) AS Result RETURN myDB.Exec(sql) END PUBLIC SUB runSQL(sql AS String) DIM rec AS Result rec = myDB.Exec(sql) END PUBLIC FUNCTION get_id (tName AS String, fName AS String, name AS String) AS Integer DIM sql AS String DIM rec AS Result sql = "select id from " & tName & " where " & fName & "='" & name & "'" rec=myDB.Exec(sql) RETURN rec!id END PUBLIC SUB loadCombo (combo AS ComboBox, sql AS String) DIM rec AS Result combo.Clear rec = myDB.Exec(sql) FOR EACH rec combo.Add (rec[0]) NEXT END Database.module~0100664000175300003300000000002510276726106013161 0ustar jillljedit' Gambas module file Form1.class~0100664000175300003300000000372610276743034012273 0ustar jillljedit' Gambas class file PRIVATE conn AS NEW Connection PRIVATE resManager AS Result PRIVATE resNewOffice AS Result 'Global variable PUBLIC SUB Form_Open() IF make_connection()=TRUE THEN load_combo ComboBox1_Click load_new_office END IF END PRIVATE FUNCTION make_connection() AS Boolean WITH conn .Type = "mysql" .Host = "localhost" .Login = "bainm" .Password = "mypassword" .Name = "customers" END WITH TRY conn.Open IF ERROR THEN Message ("Cannot Open Database. Error = " & Error.Text) RETURN FALSE END IF RETURN TRUE END PRIVATE SUB load_combo() DIM sql AS String sql="select id, surname,firstname from manager" resManager= conn.Exec(sql) FOR EACH resManager ComboBox1.Add (resManager!firstname & " " & resManager!surname) NEXT END PRIVATE SUB load_new_office () DIM sql AS String sql="select id,city from office where manager_id is NULL" resNewOffice=conn.Exec(sql) combobox2.Clear FOR EACH resNewOffice combobox2.Add(resNewOffice!city) NEXT END PUBLIC SUB ComboBox1_Click() DIM res AS Result DIM sql AS String resManager.MoveFirst resManager.MoveTo( ComboBox1.Index) sql = "select city from office" & " where manager_id=" & resManager!id res = conn.Exec(sql) textbox1.Text=res!city END PUBLIC SUB Button1_Click() DIM res AS Result DIM sql AS String IF textbox2.text <> "" THEN sql="insert into office (city) values ('" & textbox2.text &"')" res=conn.Exec(sql) load_new_office ELSE message ("Input required") END IF END PUBLIC SUB Button2_Click() DIM res AS Result DIM sql AS String resNewOffice.MoveFirst resNewOffice.MoveTo (combobox2.Index) resManager.MoveFirst resManager.MoveTo (combobox1.Index) sql="update office set manager_id=NULL" & " where manager_id=" & resManager!id res=conn.Exec(sql) sql="update office set manager_id=" & resManager!id & " where id=" & resNewOffice!id res=conn.Exec(sql) ComboBox1_Click load_new_office END Form1.form~0100664000175300003300000000145210277101261012112 0ustar jillljedit# Gambas Form File 1.0 { Form1 Form Move(126,94,400,400) Text = ("Database Interface") Border = Window.Fixed { ComboBox1 ComboBox Move(112,80,216,24) Text = (" ") } { TextBox1 TextBox Move(112,120,216,24) Text = ("TextBox1") } { TextBox2 TextBox Move(200,256,96,24) Text = ("") } { Button1 Button Move(304,256,56,24) Text = ("Add") } { ComboBox2 ComboBox Move(112,152,216,24) Text = (" ") } { Label1 Label Move(8,80,96,24) Text = ("Manager") } { Label2 Label Move(8,120,104,24) Text = ("Office") } { Label3 Label Move(8,152,104,24) Text = ("New Office") } { Label4 Label Move(8,256,168,24) Text = ("Add New Office") } { Button2 Button Move(160,184,112,24) Text = ("Move Office") } } frmAddBug.class0100664000175300003300000000122610277174540012736 0ustar jillljedit' Gambas class file PUBLIC SUB btnClose_Click() ME.Close END PUBLIC SUB Form_Open() loadCombos END PRIVATE SUB loadCombos() DIM sql AS String sql = "select name from application" data.loadCombo(cmbApplication,sql) END PUBLIC SUB btnAddBug_Click() DIM sql AS String sql = "insert into listing" & "(details,created,priority,application_id,raised_by_id)" & " values " & "('" & txtDetails.Text & "',now()" & "," & txtPriority.Text & "," & data.get_id("application","name",cmbApplication.Text) & "," & data.get_id("coder","username",system.User) & ")" data.Exec (sql) ME.Close END frmAddBug.class~0100664000175300003300000000123010277171327013127 0ustar jillljedit' Gambas class file PUBLIC SUB btnClose_Click() ME.Close END PUBLIC SUB Form_Open() loadCombos END PRIVATE SUB loadCombos() DIM sql AS String sql = "select name from application" data.loadCombo(cmbApplication,sql) END PUBLIC SUB btnAddBug_Click() DIM sql AS String sql = "insert into listing" & "(details,created,priority,application_id,raised_by_id)" & " values " & "('" & txtDetails.Text & "',now()" & "," & txtPriority.Text & "," & data.get_id("application","name",cmbApplication.Text) & "," & data.get_id("coder","username",system.User) & ")" data.runSQL (sql) ME.Close END frmAddBug.form0100664000175300003300000000124110277207204012563 0ustar jillljedit# Gambas Form File 1.0 { frmAddBug Form Move(290,152,253,188) Text = ("") Border = Window.Fixed { btnClose Button Move(200,160,48,16) Text = ("Close") } { TextLabel2 TextLabel Move(8,8,48,24) Text = ("Details") } { txtDetails TextArea Move(80,8,168,80) Text = ("") } { TextLabel5 TextLabel Move(0,96,80,24) Text = ("Priority") } { cmbApplication ComboBox Move(80,128,168,24) Text = (" ") } { txtPriority TextBox Move(80,96,32,24) Text = ("") } { btnAddBug Button Move(8,160,56,16) Text = ("Add Bug") } { TextLabel7 TextLabel Move(0,128,72,24) Text = ("Application") } } frmAddBug.form~0100664000175300003300000000124110277174540012767 0ustar jillljedit# Gambas Form File 1.0 { frmAddBug Form Move(290,152,253,188) Text = ("") Border = Window.Fixed { btnClose Button Move(200,160,48,16) Text = ("Close") } { TextLabel2 TextLabel Move(8,8,48,24) Text = ("Details") } { txtDetails TextArea Move(80,8,168,80) Text = ("") } { TextLabel5 TextLabel Move(0,96,80,24) Text = ("Priority") } { cmbApplication ComboBox Move(80,128,168,24) Text = (" ") } { txtPriority TextBox Move(80,96,32,24) Text = ("") } { btnAddBug Button Move(8,160,56,16) Text = ("Add Bug") } { TextLabel7 TextLabel Move(0,128,72,24) Text = ("Application") } } frmBugTracker.class0100664000175300003300000000362110277210232013627 0ustar jillljedit' Gambas class file PUBLIC SUB btnClose_Click() ME.Close END PUBLIC SUB Form_Open() Data.connect2db IF (check_id() = FALSE) THEN message ("Unable to log on as " & system.user) ME.close ELSE loadCombos cmbBugid_Click END IF END PRIVATE FUNCTION check_id () AS Boolean DIM sql AS String sql="select id from coder where username='" & system.user & "'" data.Exec(sql) IF (data.tmpRec.Available ) THEN RETURN TRUE ELSE RETURN FALSE END IF END PRIVATE SUB loadCombos () DIM sql AS String sql = "select l.id" & " from listing l, coder c" & " where l.coder_id=c.id" & " AND c.username='" & system.User & "'" data.loadCombo(cmbBugid,sql) sql = "select title from status" data.loadCombo(cmbStatus,sql) END PUBLIC SUB cmbBugid_Click() DIM sql AS String sql = "SELECT l.priority,l.created, l.details,l.release," & "s.title, c.username, a.name" & " from listing l,coder c,status s,application a" & " where l.id=" & cmbBugid.Text & " AND l.status=s.id" & " AND l.raised_by_id=c.id" " and l.application_id = a.id" data.Exec (sql) txtDetails.Text = data.tmpRec!details txtCreated.Text = data.tmpRec!created txtRaisedby.Text = data.tmpRec!username txtPriority.Text = data.tmpRec!priority txtApplication.Text = data.tmpRec!name txtVersion.Text = data.tmpRec!release cmbStatus.Text = data.tmpRec!title END PUBLIC SUB btnAddBug_Click() frmAddBug.ShowModal loadCombos END PUBLIC SUB btnViewAll_Click() frmViewAll.ShowModal loadCombos END PUBLIC SUB cmbStatus_Click() DIM version AS String version = txtVersion.Text IF (version="") THEN version = "Null" END IF data.Exec(" update listing" & " set status = " & data.get_id("status","title", cmbStatus.Text) & " ,release = " & version & " where id = " & cmbBugid.Text) END frmBugTracker.class~0100664000175300003300000000364610277207742014050 0ustar jillljedit' Gambas class file PUBLIC SUB btnClose_Click() ME.Close END PUBLIC SUB Form_Open() Data.connect2db IF (check_id() = FALSE) THEN message ("Unable to log on as " & system.user) ME.close ELSE loadCombos cmbBugid_Click END IF END PRIVATE FUNCTION check_id () AS Boolean DIM sql AS String sql="select id from coder where username='" & system.user & "'" data.Exec(sql) IF (data.tmpRec.Available ) THEN RETURN TRUE ELSE RETURN FALSE END IF END PRIVATE SUB loadCombos () DIM sql AS String sql = "select l.id" & " from listing l, coder c" & " where l.coder_id=c.id" & " AND c.username='" & system.User & "'" data.loadCombo(cmbBugid,sql) sql = "select title from status" data.loadCombo(cmbStatus,sql) END PUBLIC SUB cmbBugid_Click() DIM sql AS String sql = "SELECT l.priority,l.created, l.details,l.release," & "s.title, c.username, a.name" & " from listing l,coder c,status s,application a" & " where l.id=" & cmbBugid.Text & " AND l.status=s.id" & " AND l.raised_by_id=c.id" " and l.application_id = a.id" data.Exec (sql) txtDetails.Text = data.tmpRec!details txtCreated.Text = data.tmpRec!created txtRaisedby.Text = data.tmpRec!username txtPriority.Text = data.tmpRec!priority txtApplication.Text = data.tmpRec!name txtVersion.Text = data.tmpRec!release cmbStatus.Text = data.tmpRec!title END PUBLIC SUB btnAddBug_Click() frmAddBug.ShowModal loadCombos END PUBLIC SUB btnViewAll_Click() frmViewAll.ShowModal loadCombos END PUBLIC SUB cmbStatus_Click() DIM sql AS String DIM version AS String version = txtVersion.Text IF (version="") THEN version = "Null" END IF data.Exec(" update listing" & " set status = " & data.get_id("status","title", cmbStatus.Text) & " ,release = " & version & " where id = " & cmbBugid.Text) END frmBugTracker.form0100664000175300003300000000271410277207204013474 0ustar jillljedit# Gambas Form File 1.0 { frmBugTracker Form Move(126,136,264,312) Visible = False Text = ("Bug Tracker") Border = Window.Fixed { btnClose Button Move(208,288,48,16) Text = ("Close") } { cmbBugid ComboBox Move(88,8,112,24) Text = (" ") } { TextLabel1 TextLabel Move(8,8,40,24) Text = ("Bug Id") } { TextLabel2 TextLabel Move(8,40,48,24) Text = ("Details") } { txtDetails TextArea Move(88,40,168,80) Text = ("") } { TextLabel3 TextLabel Move(8,128,80,16) Text = ("Created") } { txtCreated TextBox Move(88,128,168,24) Text = ("") } { txtRaisedby TextBox Move(88,160,168,24) Text = ("") } { TextLabel4 TextLabel Move(8,160,72,24) Text = ("Raised by") } { TextLabel5 TextLabel Move(8,192,80,24) Text = ("Priority") } { TextLabel6 TextLabel Move(128,192,40,16) Text = ("Status") } { cmbStatus ComboBox Move(168,192,88,24) Text = (" ") } { txtPriority TextBox Move(88,192,32,24) Text = ("") } { btnAddBug Button Move(8,288,56,16) Text = ("Add Bug") } { TextLabel7 TextLabel Move(8,224,72,24) Text = ("Application") } { txtApplication TextBox Move(88,224,168,24) Text = ("") } { TextLabel8 TextLabel Move(8,256,72,16) Text = ("Version") } { txtVersion TextBox Move(88,256,64,24) Text = ("") } { btnViewAll Button Move(88,288,64,8) Text = ("View All") } } frmBugTracker.form~0100664000175300003300000000271410277174540013700 0ustar jillljedit# Gambas Form File 1.0 { frmBugTracker Form Move(126,136,264,312) Visible = False Text = ("Bug Tracker") Border = Window.Fixed { btnClose Button Move(208,288,48,16) Text = ("Close") } { cmbBugid ComboBox Move(88,8,112,24) Text = (" ") } { TextLabel1 TextLabel Move(8,8,40,24) Text = ("Bug Id") } { TextLabel2 TextLabel Move(8,40,48,24) Text = ("Details") } { txtDetails TextArea Move(88,40,168,80) Text = ("") } { TextLabel3 TextLabel Move(8,128,80,16) Text = ("Created") } { txtCreated TextBox Move(88,128,168,24) Text = ("") } { txtRaisedby TextBox Move(88,160,168,24) Text = ("") } { TextLabel4 TextLabel Move(8,160,72,24) Text = ("Raised by") } { TextLabel5 TextLabel Move(8,192,80,24) Text = ("Priority") } { TextLabel6 TextLabel Move(128,192,40,16) Text = ("Status") } { cmbStatus ComboBox Move(168,192,88,24) Text = (" ") } { txtPriority TextBox Move(88,192,32,24) Text = ("") } { btnAddBug Button Move(8,288,56,16) Text = ("Add Bug") } { TextLabel7 TextLabel Move(8,224,72,24) Text = ("Application") } { txtApplication TextBox Move(88,224,168,24) Text = ("") } { TextLabel8 TextLabel Move(8,256,72,16) Text = ("Version") } { txtVersion TextBox Move(88,256,64,24) Text = ("") } { btnViewAll Button Move(88,288,64,8) Text = ("View All") } } frmViewAll.class0100664000175300003300000000343110277174642013156 0ustar jillljedit' Gambas class file PUBLIC SUB Form_Open() loadCombos cmbStatus_Click END PRIVATE SUB loadCombos() DIM sql AS String sql = "select title from status" data.loadCombo(cmbStatus,sql) END PUBLIC SUB btnClose_Click() ME.close END PUBLIC SUB cmbStatus_Click() DIM sql AS String sql = "select l.id" & " from listing l, status s" & " where l.status = s.id" & " and s.title = '" & cmbStatus.Text & "'" data.loadCombo(cmbBugid,sql) cmbBugid_Click IF (cmbStatus.Text = "new") THEN btnAccept.Enabled = TRUE ELSE btnAccept.Enabled = FALSE END IF END PUBLIC SUB cmbBugid_Click() DIM sql AS String sql = "SELECT l.priority,l.created, l.details,l.release," & "s.title, r.username, c.username coder,a.name" & " from listing l,coder r,status s,application a" & " left join coder c on l.coder_id=c.id" & " where l.id=" & cmbBugid.Text & " AND l.status=s.id" & " AND l.raised_by_id=r.id" & " and l.application_id = a.id" txtDetails.Text = "" txtCreated.Text = "" txtRaisedby.Text = "" txtCoder.Text= "" txtPriority.Text = "" txtApplication.Text = "" txtVersion.Text = "" IF ( cmbBugid.Text <> "" ) THEN data.Exec (sql) txtDetails.Text = data.tmpRec!details txtCreated.Text = data.tmpRec!created txtRaisedby.Text = data.tmpRec!username txtCoder.Text = data.tmpRec!coder txtPriority.Text = data.tmpRec!priority txtApplication.Text = data.tmpRec!name txtVersion.Text = data.tmpRec!release END IF END PUBLIC SUB btnAccept_Click() DIM sql AS String sql = "update listing" & " set coder_id = " & data.coder_id(system.User) & ",status=2" & " where id = " & cmbBugid.Text data.runSQL(sql) Form_Open END frmViewAll.class~0100664000175300003300000000343710277174540013357 0ustar jillljedit' Gambas class file PUBLIC SUB Form_Open() loadCombos cmbStatus_Click END PRIVATE SUB loadCombos() DIM sql AS String sql = "select title from status" data.loadCombo(cmbStatus,sql) END PUBLIC SUB btnClose_Click() ME.close END PUBLIC SUB cmbStatus_Click() DIM sql AS String sql = "select l.id" & " from listing l, status s" & " where l.status = s.id" & " and s.title = '" & cmbStatus.Text & "'" data.loadCombo(cmbBugid,sql) cmbBugid_Click IF (cmbStatus.Text = "new") THEN btnAccept.Enabled = TRUE ELSE btnAccept.Enabled = FALSE END IF END PUBLIC SUB cmbBugid_Click() DIM sql AS String sql = "SELECT l.priority,l.created, l.details,l.release," & "s.title, r.username, c.username coder,a.name" & " from listing l,coder r,status s,application a" & " left join coder c on l.coder_id=c.id" & " where l.id=" & cmbBugid.Text & " AND l.status=s.id" & " AND l.raised_by_id=r.id" & " and l.application_id = a.id" txtDetails.Text = "" txtCreated.Text = "" txtRaisedby.Text = "" txtCoder.Text= "" txtPriority.Text = "" txtApplication.Text = "" txtVersion.Text = "" IF ( cmbBugid.Text <> "" ) THEN rec = data.Exec (sql) txtDetails.Text = data.tmpRec!details txtCreated.Text = data.tmpRec!created txtRaisedby.Text = data.tmpRec!username txtCoder.Text = data.tmpRec!coder txtPriority.Text = data.tmpRec!priority txtApplication.Text = data.tmpRec!name txtVersion.Text = data.tmpRec!release END IF END PUBLIC SUB btnAccept_Click() DIM sql AS String sql = "update listing" & " set coder_id = " & data.coder_id(system.User) & ",status=2" & " where id = " & cmbBugid.Text data.runSQL(sql) Form_Open END frmViewAll.form0100664000175300003300000000274710277207204013014 0ustar jillljedit# Gambas Form File 1.0 { frmViewAll Form Move(184,46,254,381) Text = ("") Border = Window.Fixed { btnClose Button Move(200,352,48,16) Text = ("Close") } { cmbBugid ComboBox Move(80,40,112,24) Text = (" ") } { TextLabel1 TextLabel Move(0,40,40,24) Text = ("Bug Id") } { TextLabel2 TextLabel Move(0,72,48,24) Text = ("Details") } { txtDetails TextArea Move(80,72,168,80) Text = ("") } { TextLabel3 TextLabel Move(0,160,80,16) Text = ("Created") } { txtCreated TextBox Move(80,160,168,24) Text = ("") } { txtRaisedby TextBox Move(80,192,168,24) Text = ("") } { TextLabel4 TextLabel Move(0,192,72,24) Text = ("Raised by") } { TextLabel5 TextLabel Move(0,256,80,24) Text = ("Priority") } { TextLabel6 TextLabel Move(8,8,40,16) Text = ("Status") } { cmbStatus ComboBox Move(80,8,112,24) Text = (" ") } { txtPriority TextBox Move(80,256,32,24) Text = ("") } { btnAccept Button Move(0,352,56,16) Text = ("Accept") } { TextLabel7 TextLabel Move(0,288,72,24) Text = ("Application") } { txtApplication TextBox Move(80,288,168,24) Text = ("") } { TextLabel8 TextLabel Move(0,320,72,16) Text = ("Version") } { txtVersion TextBox Move(80,320,64,24) Text = ("") } { txtCoder TextBox Move(80,224,168,24) Text = ("") } { TextLabel9 TextLabel Move(0,224,72,24) Text = ("Coder") } } frmViewAll.form~0100664000175300003300000000274710277174540013220 0ustar jillljedit# Gambas Form File 1.0 { frmViewAll Form Move(184,46,254,381) Text = ("") Border = Window.Fixed { btnClose Button Move(200,352,48,16) Text = ("Close") } { cmbBugid ComboBox Move(80,40,112,24) Text = (" ") } { TextLabel1 TextLabel Move(0,40,40,24) Text = ("Bug Id") } { TextLabel2 TextLabel Move(0,72,48,24) Text = ("Details") } { txtDetails TextArea Move(80,72,168,80) Text = ("") } { TextLabel3 TextLabel Move(0,160,80,16) Text = ("Created") } { txtCreated TextBox Move(80,160,168,24) Text = ("") } { txtRaisedby TextBox Move(80,192,168,24) Text = ("") } { TextLabel4 TextLabel Move(0,192,72,24) Text = ("Raised by") } { TextLabel5 TextLabel Move(0,256,80,24) Text = ("Priority") } { TextLabel6 TextLabel Move(8,8,40,16) Text = ("Status") } { cmbStatus ComboBox Move(80,8,112,24) Text = (" ") } { txtPriority TextBox Move(80,256,32,24) Text = ("") } { btnAccept Button Move(0,352,56,16) Text = ("Accept") } { TextLabel7 TextLabel Move(0,288,72,24) Text = ("Application") } { txtApplication TextBox Move(80,288,168,24) Text = ("") } { TextLabel8 TextLabel Move(0,320,72,16) Text = ("Version") } { txtVersion TextBox Move(80,320,64,24) Text = ("") } { txtCoder TextBox Move(80,224,168,24) Text = ("") } { TextLabel9 TextLabel Move(0,224,72,24) Text = ("Coder") } }