bwrightprojdump

unit addeditunit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, PoultryUnit, diseaseunit, Controls, poultrycoopclass,
  Graphics, Dialogs, StdCtrls, ExtCtrls, fgl, mainmenunit2, sqldb,sqlite3conn,Poultrydiseaseclass,LCLType;

type
   poultrylist =Specialize TFPGObjectList<PoultryObj>;
   diseaselist = Specialize TFPGObjectlist<DiseaseObj>;
   birddiseaselist = Specialize TFPGObjectlist<BirdSickEntry>;
   PCList = Specialize TFPGObjectlist<PoultryCoopObj>;
  { TAddform }

  TAddform = class(TForm)
    delPCdate: TEdit;
    delPDdate: TEdit;
    DiseaseIDlbl: TLabel;
    DiseaseIDlbl1: TLabel;
    DiseaseIDlbl2: TLabel;
    Diseasenmlabl: TLabel;
    Dsymptomslbl: TLabel;
    delPCpID: TEdit;
    Feedbacklbl1: TLabel;
    Feedbacklbl3: TLabel;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Feedbacklbl2: TLabel;
    Feedbacklbl4: TLabel;
    dateaddlbl: TLabel;
    Diagnosislbl: TLabel;
    Packagelbl1: TLabel;
    newpccdlbl: TLabel;
    newPCPlbl: TLabel;
    newPCPlbl1: TLabel;
    Packagelbl2: TLabel;
    PFeedback: TLabel;
    Specieslbl: TLabel;
    NewBirdSubmit: TButton;
    NewDiseaseSubmit: TButton;
    NewPCsubmit: TButton;
    NewPDsubmit: TButton;
    DelPoultry: TButton;
    delDiseaseSubmit: TButton;
    DelPCsubmit: TButton;
    delPDSubmit: TButton;
    NewDSpecies: TComboBox;
    NewPSpecies: TComboBox;
    NewPID: TEdit;
    NewPCpID: TEdit;
    NewPCcID: TEdit;
    NewPCEntrydate: TEdit;
    NewPDpID: TEdit;
    NewPDdID: TEdit;
    NewPDDiagnoisdate: TEdit;
    delPID: TEdit;
    delDID: TEdit;
    delPCcID: TEdit;
    delPDpID: TEdit;
    delPDdID: TEdit;
    NewPBreed: TEdit;
    NewPColoring: TEdit;
    NewPName: TEdit;
    NewPHatchdate: TEdit;
    NewDID: TEdit;
    NewDName: TEdit;
    NewDSymptoms: TEdit;
    Middledivider: TGroupBox;
    Maintitle: TLabel;
    PIDlabel: TLabel;
    Speclabel: TLabel;
    Breedlabel: TLabel;
    Colorlabel: TLabel;
    Namelabel: TLabel;
    Hatchlabel: TLabel;
    PIDlblEDIT: TLabel;
    Rightlabel: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Leftlabel: TPanel;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
    procedure DelPCsubmitClick(Sender: TObject);
    procedure delDiseaseSubmitClick(Sender: TObject);
    procedure delPDSubmitClick(Sender: TObject);
    procedure DelPoultryClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure NewBirdSubmitClick(Sender: TObject);
    procedure NewDiseaseSubmitClick(Sender: TObject);
    procedure NewDSpeciesChange(Sender: TObject);
    procedure NewPCsubmitClick(Sender: TObject);
    procedure NewPDsubmitClick(Sender: TObject);
    procedure NewPIDChange(Sender: TObject);
    procedure RightlabelClick(Sender: TObject);

  private
    { private declarations }
  public
     function FindPID(target:integer):integer;
  end;

var
  Addform: TAddform;
  mainlist:poultrylist;
  diseases:diseaselist;
  poultrydisease:birddiseaselist;
  poultrycoop:PClist;

implementation
{ TAddform }
{$R *.lfm}


//Add procedures
procedure Sortlist_p(var List:poultrylist);   //sorts the poultry list
var
  Currentptr,pointer:integer;
  first,last:integer;
  CurrentVal:PoultryObj;

begin
   first:=0;
   last:=List.Count-1;
   For CurrentPtr:= First+1 to Last do
   begin
        CurrentVal:= List[CurrentPtr];
        Pointer:= CurrentPtr-1;
        while (pointer>-1) and (List[pointer].GetID() > CurrentVal.GetID) do
        begin
             List[Pointer+1]:=List[Pointer];
             pointer:=Pointer-1 ;
        end;
        List[pointer+1]:=CurrentVal;
   end;
end;

procedure Sortlist_d(var List:diseaselist);      //Sorts the diseases list
var
  Currentptr,pointer:integer;
  first,last:integer;
  CurrentVal:Diseaseobj;

begin
   first:=0;
   last:=List.Count-1;
   For CurrentPtr:= First+1 to Last do
   begin
        CurrentVal:= List[CurrentPtr];
        Pointer:= CurrentPtr-1;
        while (pointer>-1) and (List[pointer].GetID() > CurrentVal.GetID) do
        begin
             List[Pointer+1]:=List[Pointer];
             pointer:=Pointer-1 ;
        end;
        List[pointer+1]:=CurrentVal;
   end;
end;

procedure Sortlist_pd(var List:birddiseaselist);    //Sorts the BirdDiseaseList
var
  Currentptr,pointer:integer;
  {CurrentID,}first,last:integer;
  CurrentVal:BirdSickEntry;

begin
   first:=0;
   last:=List.Count-1;
   For CurrentPtr:= First+1 to Last do
   begin
        CurrentVal:= List[CurrentPtr];
        Pointer:= CurrentPtr-1;
        while (pointer>-1) and (List[pointer].GetPID() > CurrentVal.GetPID) do
        begin
             List[Pointer+1]:=List[Pointer];
             pointer:=Pointer-1 ;
        end;
        List[pointer+1]:=CurrentVal;
   end;
end;

function binarySearch_p(list:poultrylist;low,high:integer;target:integer):integer;
var
  middle:integer;
begin
   middle := (low+high) div 2 ;
  Showmessage(IntToStr(list[middle].GetID));
  Showmessage(IntToStr(target));
  if( low>high ) then
  begin
      binarySearch_p:=-1;
  end
  else if target = list[middle].GetID then
  begin
       binarySearch_p:= middle;

  end
  else if target < list[middle].GetID then
  begin

       binarySearch_p:=BinarySearch_p(list,low,middle-1,target);
  end
  else
  begin

     binarySearch_p:=BinarySearch_p(list,middle+1,high,target);
  end;
end;
function findPID_real(target:integer):integer;
var
  x,idgotten:integer;
begin
    findPID_real:=-1;
  //for x:= 0 to mainlist.count-1 do
 // begin
    x:=0;
    idgotten:=0;
    repeat
     idgotten:=mainList[x].GetID;

     //showmessage('GetID '+IntToStr(x)+'= '+IntToStr(idgotten));

     if ( idgotten = target) then
     begin
        findPID_real:=x;

     end;
     x:=x+1
    until( x = (mainlist.count-1)) or (findPID_real <> -1);


  //end;
end;

function TAddform.FindPID(target:integer):integer;
//searches poultrylist for poultryObjs with the ID equal to 'target' parameter
begin
   Sortlist_p(mainlist);
   //FindPID:= binarySearch_p(mainlist,0,mainlist.count-1,target)
   FindPID:=findPID_real(target);
end;
function FindDID(target:integer):integer;
var
  x:integer;
begin
   Sortlist_d(diseases);
   findDID:=-1;
   for x:= 0 to diseases.count-1 do
   begin
      if diseases[x].GetID = target then
         findDID:=target;
   end;
end;

function ValidateNewBird(ID:integer;Species,Breed,Coloring,Name,Hatchdate:string):boolean;
var
  tempdate:string;
begin
    ID:=StrToInt(AddForm.NewPID.text);
    Species:=Addform.NewPSpecies.text;
    Breed:= Addform.NewPBreed.text;
    Coloring:= Addform.NewPColoring.text;
    Name:= Addform.NewPName.text;
    Hatchdate:= Addform.NewPHatchdate.text;
    ValidateNewBird:= false;
     if(ID<0) or (ID>999) then  //PoultryID invalid
     begin
         showmessage('The Poultry ID entered is too large or small!');
         Addform.Feedbacklbl1.caption:='Entry failed!';
         exit;
     end;
      if( Addform.FindPID(ID)>-1 ) then  //PoultryID exists already
     begin
         showmessage('The Poultry ID entered is already taken!');
         Addform.Feedbacklbl1.caption:='Entry failed!';
         exit;
     end;
     if( Species = '') then //species must be present
     begin
         showmessage('You must enter a species for the bird!');
         Addform.Feedbacklbl1.caption:='Entry failed!';
         exit;
     end;
     if (Length(Breed) <1) or (Length(breed) >30) then //30-char limit
     begin
         showmessage('Breed name too long or short.');
         Addform.Feedbacklbl1.caption:='Entry failed!';
         exit;
     end;
     if (Length(Coloring) <1) or (Length(Coloring) >40) then //40-char limit
     begin
         showmessage('Description of coloring too long or short.');
         Addform.Feedbacklbl1.caption:='Entry failed!';
         exit;
     end;
     if (Length(Name) >30) then //30-char limit, presence not required
     begin
         showmessage('Name too long or too short.');
         Addform.Feedbacklbl1.caption:='Entry failed!';
         exit;
     end;         //following line formats input into format for StrToDate
     tempdate:= (Hatchdate[1]+Hatchdate[2]+Hatchdate[3]+Hatchdate[4]+Hatchdate[5]+'/20'+Hatchdate[7]+Hatchdate[8]);
     if ( StrToDate(tempdate) >(Date) )then
     begin
         showmessage('You cannot enter a future date as a chickens hatch date!');
         Addform.Pfeedback.Caption:=(tempdate+' '+ DatetoStr(Date));

         exit;
     end;
     ValidateNewBird:= true;
end;
Function ValidateNewDisease():boolean;
var
  ID:integer;
  DName,Symptoms,Target:string;
  Specific:Boolean;
begin
   //bool setting
     Specific:=false;
     ValidateNewDisease:= false;

   ID:=StrToInt(Addform.NewDID.text);
   DName:= Addform.NewDName.text;
   Symptoms:= Addform.NewDSymptoms.text;
   Target:= '';
   if(Addform.NewDSpecies.text <> '') then
   begin
        Target:= Addform.NewDSpecies.text;
        Specific:= true;
   end;

   if(ID < 1) or (ID >99) then
   begin
        showmessage('Invalid ID entered. Numbers must be 0-99');
        exit;
   end;
   if(FindDID(ID)>-1) then
   begin
        showmessage('That ID has already been used.');
        exit;
   end;
   if(Length(Dname) > 15) then
   begin
        showmessage('The entered name is too long.');
        exit;
   end;
   if(Length(Symptoms) > 150 )then
   begin
        showmessage('The entered set of symptoms is too long');
        exit;
   end;
   ValidateNewDisease:= true

end;
function ValidateInfectionNew:boolean;
var
  tempdate,Hatchdate:string;
  Mainlistget:string;
  diseasespecget:string;
  diseaseIDget:string;
begin
     if FindPID_real(StrToInt(Addform.NewPDpID.text)) <> -1 then
        mainlistget:= Mainlist[FindPID_real(StrToInt(Addform.NewPDpID.text))].GetSpecies;

       if( length(Addform.NewPDpID.Text) > 3) then
   begin
        showmessage('The entered PoultryID is too large')
   end
   else if(length(Addform.NewPDpID.Text) < 1 )then
   begin
        showmessage('The entered PoultryID is too small')
   end
   else    if( length(Addform.NewPDdID.Text) > 3) then
   begin
        showmessage('The entered Disease ID is too large')
   end
   else if(length(Addform.NewPDdID.Text) < 1 )then
   begin
        showmessage('The entered Disease ID is too small')
   end
   else if( mainlistget <> diseasespecget ) and (diseaseIDget <> '' )then
        showmessage('The entered bird is the wrong species to have this disease.')
   else
   begin

        hatchdate:=Addform.NewPDDiagnoisdate.text;
        tempdate:= (Hatchdate[1]+Hatchdate[2]+Hatchdate[3]+Hatchdate[4]+Hatchdate[5]+'/20'+Hatchdate[7]+Hatchdate[8]);
        if(StrToDate(tempdate)>Date()) then
        begin
             showmessage('You cannot have diagnosed the bird at a future date!');
             exit;
        end;
        ValidateInfectionNew:=true;
   end


end;
function findCID(target:integer):integer;
var
  x:integer;
begin
     findCID:=-1;
     for x:= 0 to poultrycoop.count-1 do
     begin
          if poultrycoop[x].getCID = target then
              findCID:=1;
     end;
end;

function ValidateCoopNew:boolean;
var
  tempdate,entrydate:string;

begin
     entrydate:= Addform.NewPCEntrydate.text;
     ValidateCoopNew:=True;
   tempdate:= (entrydate[1]+entrydate[2]+entrydate[3]+entrydate[4]+entrydate[5]+'/20'+entrydate[7]+entrydate[8]);
   if( length(Addform.NewPCpID.text)>3) then
   begin
        showmessage('Poultry ID too great');
        ValidateCoopNew:=false;
        exit;

   end
   else if length(Addform.NewPCpID.text)<1 then
   begin
        showmessage('Poultry ID too small');
        ValidateCoopNew:=false;
        exit;
   end
   else if length(Addform.NewPCcID.text)>2 then
   begin
        showmessage('Coop ID too great');
        ValidateCoopNew:=false;
        exit;
   end
   else if length(Addform.NewPCcID.text)<1 then
   begin
        showmessage('Coop ID too small.');
        ValidateCoopNew:=false;
        exit;
   end

   else if StrToDate(tempdate)>Date() then
   begin
        showmessage('You cannot add a chicken to a coop in the future');
        ValidateCoopNew:=false;
        exit;
   end;

end;

//Button procedures
procedure TAddform.NewDSpeciesChange(Sender: TObject);
begin

end;

procedure TAddform.NewPCsubmitClick(Sender: TObject);
var
  PID,CID:Integer;
  entrydate:string;
begin   //submits an entry into the poultry coop table.
  PID:=StrToInt(Addform.NewPCpID.Text);
  CID:=StrToInt(Addform.NewPCcID.Text);
  entrydate:=Addform.NewPCEntrydate.text;
  if(ValidateCoopNew) then
  begin
       //add instantiation to list
       poultrycoop.Add(PoultryCoopObj.Create(PID,CID,entrydate,''));
       //sql
       MainmenuForm.SQLQuery1.close;
       MainmenuForm.SQLQuery1.SQL.Text:='INSERT INTO Poultrycoop(PoultryID,CoopID,DateEntered) VALUES (:Pid,:Cid,:DateEnt)';
       //params
       mainMenuForm.SQLQuery1.Params.ParamByName('Pid').asInteger:=PID;
       mainMenuForm.SQLQuery1.Params.ParamByName('Cid').asInteger:=CID;
       mainMenuForm.SQLQuery1.Params.ParamByName('DateEnt').asString:=entrydate;

       //closedown
       MainMenuForm.SQLite3Connection1.Connected:= True;
       MainMenuForm.SQLTransaction1.Active := true;
       MainMenuForm.SQLQuery1.execSQL;
       MainMenuForm.SQLtransaction1.commit;
       MainMenuForm.SQLtransaction1.action:=caCommit;
       MainMenuForm.SQLQuery1.close;
       Addform.Feedbacklbl3.Caption:=IntToStr(PID)+' '+IntToStr(CID)+' '+entrydate+' added!';


  end;
end;

procedure TAddform.NewPDsubmitClick(Sender: TObject);
var
  PID,DID:integer;
  DiagDate:string;

begin
    PID:=StrToInt(Addform.NewPDpID.Text);
    DID:=StrToInt(Addform.NewPDdID.Text);
    DiagDate:= Addform.NewPDDiagnoisdate.Text;

    if(ValidateInfectionNew)then
    begin

         poultrydisease.Add(BirdSickEntry.Create(StrToInt(Addform.NewPDpID.Text),StrToInt(Addform.NewPDdID.Text),Addform.NewPDDiagnoisdate.Text));
         //feedback here?

         //sql start
         Mainmenuform.SQLQuery1.Close;
         Mainmenuform.SQLQuery1.SQL.Text:=' INSERT INTO Poultrydisease(DiseaseID,PoultryID,Dateidentified,Treated)';
         Mainmenuform.SQLQuery1.SQL.Text:=Mainmenuform.SQLQuery1.SQL.Text+ 'VALUES(:dID,:pID,:Dateident,:Treated)';
         mainMenuForm.SQLQuery1.Params.ParamByName('dID').asInteger:=DID;
         mainMenuForm.SQLQuery1.Params.ParamByName('pID').asInteger:=PID;
         mainMenuForm.SQLQuery1.Params.ParamByName('Dateident').asString:=DiagDate;
         mainMenuForm.SQLQuery1.Params.ParamByName('Treated').AsBoolean:=false;
         MainMenuForm.SQLite3Connection1.Connected:= True;
         MainMenuForm.SQLTransaction1.Active := true;
         MainMenuForm.SQLQuery1.execSQL;
         MainMenuForm.SQLtransaction1.commit;
         MainMenuForm.SQLtransaction1.action:=caCommit;
         MainMenuForm.SQLQuery1.close;
         Addform.Feedbacklbl4.Caption:='Entry '+IntToStr(PID)+'/'+IntToStr(DID)+'/'+DiagDate+' added!';
    end
    else


end;

procedure TAddform.NewBirdSubmitClick(Sender: TObject);
var
   ID:integer;
   Species,Breed,Coloring,nName,Hatchdate:string;
begin

    ID:=StrToInt(AddForm.NewPID.text);
    Species:=Addform.NewPSpecies.text;
    Breed:= Addform.NewPBreed.text;
    Coloring:= Addform.NewPColoring.text;
    nName:= Addform.NewPName.text;
    Hatchdate:= Addform.NewPHatchdate.text;
    if( ValidateNewBird(ID,Species,Breed,Coloring,nName,Hatchdate))then
    begin

    //add to poultrylist

        mainlist.Add(PoultryObj.Create(ID,Species,Breed,Coloring,nName,Hatchdate,' '));
        Feedbacklbl1.Caption:= IntToStr(ID)+' Working...';

        //SQL
    MainMenuForm.SQLQuery1.Close;
    MainMenuForm.SQLQuery1.SQL.Text := 'INSERT INTO Poultry(PoultryID,Species,Breed,Colouring,Name,Hatchdate,Feed)';
    MainMenuForm.SQLQuery1.SQL.Text :=  MainMenuForm.SQLQuery1.SQL.Text + ' VALUES(:ID,:Species,:Breed,:Coloring,:Name,:Hatchdate,:FeedType)';
    MainMenuForm.SQLQuery1.Params.ParamByName('ID').AsInteger:=ID;
    MainMenuForm.SQLQuery1.Params.ParamByName('Species').AsString:=Species;
    MainMenuForm.SQLQuery1.Params.ParamByName('Breed').AsString:=Breed;
    MainMenuForm.SQLQuery1.Params.ParamByName('Coloring').AsString:=Coloring;
    MainMenuForm.SQLQuery1.Params.ParamByName('Name').AsString:=nName;
    MainMenuForm.SQLQuery1.Params.ParamByName('Hatchdate').AsString:=Hatchdate;
    MainMenuForm.SQLQuery1.Params.ParamByName('Feedtype').AsString:='';
    Feedbacklbl1.Caption:= MainMenuForm.SQLQuery1.SQL.Text;
    MainMenuForm.SQLite3Connection1.Connected:= True;
    MainMenuForm.SQLTransaction1.Active := true;
    MainMenuForm.SQLQuery1.execSQL;
    MainMenuForm.SQLtransaction1.commit;
    MainMenuForm.SQLtransaction1.action:=caCommit;
    MainMenuForm.SQLQuery1.close;
    Feedbacklbl1.Caption:= IntToStr(ID)+' Entry successfully added!';
    end;
end;

procedure TAddform.NewDiseaseSubmitClick(Sender: TObject);
var
   ID:integer;
   DName,Symptoms,Target:string;
   Specific:Boolean;
   targetfill:string;
begin
   Specific:=false;
   // transfers to proc
   ID:=StrToInt(Addform.NewDID.text);
   DName:= Addform.NewDName.text;
   Symptoms:= Addform.NewDSymptoms.text;
   Target:= ' ';
   if(Length(Addform.NewDSpecies.text)>0) then
   begin
        Target:= Addform.NewDSpecies.text;
        Specific:= true;
        targetfill:=Addform.NewDSpecies.text;
   end;
   //validate
   If( ValidateNewDisease) then
   begin
   // Create obj & instantiate
      Diseases.Add(DiseaseObj.Create(ID,DName,Symptoms,Specific,Target));



   // prep for sql
      MainMenuForm.SQLQuery1.close;
       targetfill:='';
       if Target = '' then
          MainMenuForm.SQLQuery1.SQL.text:=  'INSERT INTO Diseases(DiseaseID,Name,Symptoms,Specific,TargetSpecies) VALUES(:DiseaseID,:Name,:Symptoms,:Specific,:Blank)'
       else
          MainMenuForm.SQLQuery1.SQL.text:=  'INSERT INTO Diseases(DiseaseID,Name,Symptoms,Specific,TargetSpecies) VALUES(:DiseaseID,:Name,:Symptoms,:Specific,:XTarget)';

       MainMenuForm.SQLQuery1.Params.ParamByName('DiseaseID').AsInteger:=ID;
       MainMenuForm.SQLQuery1.Params.ParamByName('Name').AsString:=Dname;
       MainMenuForm.SQLQuery1.Params.ParamByName('Symptoms').AsString:=Symptoms;
       MainMenuForm.SQLQuery1.Params.ParamByName('Specific').AsBoolean:=Specific;


       if( Target <> '') then
           MainMenuForm.SQLQuery1.Params.ParamByName('XTarget').AsString:=Target
       else
          MainMenuForm.SQLQuery1.Params.ParamByName('Blank').AsString:=targetfill;


       MainMenuForm.SQLite3Connection1.Connected:= True;
       MainMenuForm.SQLTransaction1.Active := true;
       MainMenuForm.SQLQuery1.execSQL;
       MainMenuForm.SQLtransaction1.commit;
       MainMenuForm.SQLtransaction1.action:=caCommit;
       MainMenuForm.SQLQuery1.close;
    end;

end;



procedure TAddform.FormCreate(Sender: TObject);
var
  newPoultryObj:PoultryObj;
  newDiseaseObj:DiseaseObj;
begin

   mainlist:=poultrylist.Create();
   diseases:=diseaselist.Create();
   poultrydisease:= birddiseaselist.Create();
   poultrycoop:=PCList.Create();


   //////////////////////
   //Initialising the  population of the poultry list
   //////////////////////

       //setup SQL
   MainMenuForm.SQLQuery1.Close;
    //select all from poultry
   MainMenuForm.SQLQuery1.SQL.Text := 'SELECT * FROM Poultry';
   MainMenuForm.SQLQuery1.Active:=true;
   while not MainMenuForm.SQLQuery1.eof do
   begin
            // go through, creating objects from the SQL
        newPoultryObj:=PoultryObj.Create(MainMenuForm.SQLQuery1.fields[0].AsInteger,MainMenuForm.SQLQuery1.fields[1].asstring,MainMenuForm.SQLQuery1.fields[2].asstring,MainMenuForm.SQLQuery1.fields[3].asstring,MainMenuForm.SQLQuery1.fields[4].asstring,MainMenuForm.SQLQuery1.fields[5].asstring,MainMenuForm.SQLQuery1.fields[6].asstring);
        // populate mainlist with objects
        mainlist.Add (newPoultryObj);
        MainMenuForm.SQLQuery1.next;
   end;
   MainMenuForm.sqlquery1.execsql;
   MainMenuForm.sqltransaction1.commit;
   MainMenuForm.sqltransaction1.action:=caCommit;
   MainMenuForm.sqlquery1.close;

   //////////////////////
   //Initialising the population of the disease list
   //////////////////////

   MainMenuForm.SQLQuery1.Close;
   MainMenuForm.SQLQuery1.SQL.Text := 'SELECT * FROM Diseases';
   MainMenuForm.SQLQuery1.Active:=true;
   while not MainMenuForm.SQLQuery1.eof do
   begin
        newDiseaseObj:=DiseaseObj.Create(MainMenuForm.SQLQuery1.fields[0].AsInteger,MainMenuForm.SQLQuery1.fields[1].asstring,MainMenuForm.SQLQuery1.fields[2].asstring,MainMenuForm.SQLQuery1.fields[3].AsBoolean,MainMenuForm.SQLQuery1.fields[4].asstring);
        // populate list with object
        diseases.Add (newDiseaseObj);
        MainMenuForm.SQLQuery1.next;
   end;
   MainMenuForm.sqlquery1.open;
   MainMenuForm.sqlquery1.execsql;
   MainMenuForm.sqltransaction1.commit;
   MainMenuForm.sqltransaction1.action:=caCommit;
   MainMenuForm.sqlquery1.close;

   ////////////////////////////////////////////////////
   //Initialising the population of the poultrydisease list
   ////////////////////////////////////////////////////

   MainmenuForm.SQLQuery1.Close;
   MainmenuForm.SQLQuery1.SQL.Text:= 'SELECT * FROM PoultryDisease';
   MainmenuForm.SQLQuery1.Active:=true;
   while not MainmenuForm.SQLQuery1.eof do
   begin
        poultrydisease.Add(BirdSickEntry.create(MainmenuForm.SQLQuery1.fields[1].AsInteger,MainmenuForm.SQLQuery1.fields[0].AsInteger,Mainmenuform.SQLQuery1.fields[2].AsString));
        MainmenuForm.SQLQuery1.next;
   end;
   MainMenuForm.sqlquery1.open;
   MainMenuForm.sqlquery1.execsql;
   MainMenuForm.sqltransaction1.commit;
   MainMenuForm.sqltransaction1.action:=caCommit;
   MainMenuForm.sqlquery1.close;

   //////////////////////
   //Initialise the population of the poultrycoop list
   //////////////////////

   MainmenuForm.SQLQuery1.Close;
   MainmenuForm.SQLQuery1.SQL.TEXT:= 'SELECT * FROM PoultryCoop';
   MainmenuForm.SQLQuery1.Active:=true;
   while not MainmenuForm.SQLQuery1.eof do
   begin
        poultrycoop.Add(PoultryCoopObj.create(MainmenuForm.SQLQuery1.Fields[0].AsInteger,MainmenuForm.SQLQuery1.Fields[1].AsInteger,MainmenuForm.SQLQuery1.Fields[2].AsString,MainmenuForm.SQLQuery1.Fields[3].Asstring));
        MainmenuForm.SQLQuery1.next;
   end;
   MainMenuForm.sqlquery1.open;
   MainMenuForm.sqlquery1.execsql;
   MainMenuForm.sqltransaction1.commit;
   MainMenuForm.sqltransaction1.action:=caCommit;
   MainMenuForm.sqlquery1.close;


end;