Search options (Page 2 of 3)

procedure Expand (sender: string; Action: string);
begin
  //copy rich text
  Form2.RichEdit1.text := Form1.RichEdit1.Text;
  //show window
  Form2.ShowModal;
end;

procedure LoadTickets_FROM_SQL (Sender: string; Cancel: string);
var
  Conn, rs : Variant;
  db_settings, FirstName,LastName,Phone: String;
  i: int;
var NxTextColumn: TNxTextColumn;
begin
   {***  create database objects ****  }
   Conn :=createoleobject('ADODB.Connection') ;
   rs := createoleobject('ADODB.recordset');

   {** open database connection ***  }
  db_settings:='Provider=SQLOLEDB;Server=myserver_name;Database=DatabaseName;UID=UserName;PWD=MyPassword';    //connection to database
   Conn.Open(db_settings);    //connection to database

   { query to get data}
   rs.Open  ('SELECT *  FROM Application where  TicketNumber  like ''%'+frm_main.fld_ticketnumber.text+'%''  order by DateTime asc;', Conn);


    //create table information
    frm_main.TableGrid1.Columns.Clear;
    frm_main.TableGrid1.Columns.Add(TNxTextColumn);
    frm_main.TableGrid1.Columns.Add(TNxTextColumn);
    frm_main.TableGrid1.Columns.Add(TNxTextColumn);
    frm_main.TableGrid1.Columns.Add(TNxTextColumn);
    
    //header name
    frm_main.TableGrid1.Columns[0].Header.Caption := 'First Name';    
    frm_main.TableGrid1.Columns[0].Header.Caption := 'Last Name';      
    frm_main.TableGrid1.Columns[0].Header.Caption := 'Phone Number';  
    frm_main.TableGrid1.Columns[0].Header.Caption := 'Date Time';  


   //initialized i
   i:=0;
   //while loop to get data from db
   while not rs.Eof do
    begin

        Application.ProcessMessages;

         //retrieve data and stored them in variables
         FirstName:=trim(rs.Fields['FirstName']);
         LastName:=trim(rs.Fields['LastName']);
         Phone:=trim(rs.Fields['Phone']);
         CDateTime:=trim(rs.Fields['DateTime']);

        //generate the data
        Grid.AddRow(1);
        Grid.Cells[0,i]:=FirstName;
        Grid.Cells[1,i]:=LastName;
        Grid.Cells[2,i]:=Phone;
        Grid.Cells[3,i]:=CDateTime;

        i:=i+1; //increment i
        rs.movenext ;   //next record
    end;


     //close connection
     rs.Close;
     Conn.Close;

end;              

 
   url:=frm_main.Edit1.Text;

     try
         get_url:= HTTPGet(url);
         frm_main.Memo1.Text:= get_url;
    except
        if ExceptionMessage <> 'Socket Error # 10054' then  frm_main.Memo1.Lines.Add('Unknown Error') else frm_main.Memo1.Lines.Add(ExceptionMessage);
    end;