Search options (Page 3 of 14)

var
  apppath : string;
  pb : Tprogressbar;

procedure Form1_TableGrid2_OnChange (Sender: TObject);
begin
  Form1.TableGrid2.BestFitColumns(bfboth);
end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
  t : integer;
  i : integer;
  r : integer;
  c : integer;
  ExcelFile : Variant;
  WorkBook  : Variant;
  WorkSheet : Variant;
  MaxRow : Integer;
  MaxCol : Integer;
  value : String;
  sql_code : string;
  records : integer;
  records_all : integer;
begin
  records_all := 0;
  For t := 0 To Form1.TableGrid1.RowCount - 1 do
  begin
    Form1.Label11.Caption :=  Form1.TableGrid1.Cells[0,t];
    Form1.Label2.Caption := Inttostr(t+1)+'/'+ inttostr(Form1.TableGrid1.RowCount);
    ExcelFile :=  CreateOleObject('Excel.Application');
    WorkBook  :=  ExcelFile.WorkBooks.Open( Form1.TableGrid1.Cells[0,t] );
    WorkSheet :=  WorkBook.WorkSheets.Item['sheet1'];
    MaxRow := WorkSheet.Usedrange.EntireRow.count;
    MaxCol := WorkSheet.Usedrange.EntireColumn.count;

    Form1.Label5.Caption := Formatfloat(',0',Maxrow-1);
    Form1.Label7.Caption := Formatfloat(',0',Maxcol);
    records := 0;
    For r := 2 To MaxRow Do //No Head Column Start At Row 2 Excel
    Begin
      value := '';
      For c := 1 To maxCol Do //Start At Column 1 Excel
      Begin
        value := value +'"'+WorkSheet.Cells[r, c].Value+'",';
      End
      ;
      records := records +1;
      Form1.Label9.caption := Formatfloat(',0',records)+'/'+Formatfloat(',0',Maxrow-1);
      sql_code := 'Insert OR Ignore Into value_excel (long_string) values (''{'+Copy(value,1,Length(value)-1)+'}'');';
      sqlexecute(sql_code);
      pb.position :=  round( (r-1)/(maxRow-1)*100.00 );
      Form1.Label10.Caption := Formatfloat('.00',((r-1)/(maxRow-1)*100.00))+' %';
      records_all := records_all +1;
      application.ProcessMessages;
    End;
    WorkBook.Save;
    WorkBook.Close;
    ExcelFile.Quit;
    sqlexecute(' update file_excel set record = '+IntToStr(records) +' where path = "'+escape_special_characters(Form1.Label11.Caption)+'";');
    Form1.TableGrid1.dbUpdate;
    application.ProcessMessages;
  end;
  showmessage('OK! '+FormatFloat(',0',records_all)+' Records' );
end;

procedure Form1_OnClose (Sender: TObject; Action: string);
begin
  sqlexecute('delete from file_excel;');
end;

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
  Form1.TableGrid1.BestFitColumns(bfboth);
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  s : String;
  sl: Tstringlist;
  i : integer;
begin
  Form1.Label2.Caption := '0/0';
  Form1.Label5.Caption := '0';
  Form1.Label7.Caption := '0';
  Form1.Label9.Caption := '0/0';
  Form1.Label10.Caption := '0 %';


  sqlexecute('delete from file_excel;');
  Form1.TableGrid1.dbUpdate;
  SelectDirectory('Select Folder Excel Files','',s,True,True);
  Form1.Edit1.Text := s;
  sl := Tstringlist.create;
  sl.text := GetFilesList(Form1.Edit1.Text ,'*.xls*',true);
  For i := 0 To sl.count - 1 DO
  sqlexecute('insert into file_excel (path,record) values ("'+
  escape_special_characters(sl[i])+'",0);');
  Form1.TableGrid1.dbUpdate;
  sl.free;
end;

begin
  apppath := ExtractFilePath(Application.ExeName);

  pb := Tprogressbar.Create(Form1);
  pb.parent := Form1.Panel2;
  pb.align := alclient;
  pb.min := 0;
  pb.max := 100;
  pb.barcolor := clRed;
  pb.BackgroundColor := clblack;
  pb.width := form1.Panel2.Width;
  pb.position := 0;

end.

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
i_sql : integer ;
begin
    For i_sql := 0 To Strtoint(Form1.Label1.Caption) -1 Do
    Begin
        SQLExecute(Form1.Memo1.Lines[i_sql]) ;
        Form1.Label2.Caption := IntToStr(i_sql+1) ;
        Form1.Label3.Caption := FormatFloat('0.00',(i_sql+1)/StrTOInt((Form1.Label1.Caption))*100)+' %' ;
        Application.ProcessMessages;
    End;
    Application.ProcessMessages;
    Form1.TableGrid1.dbUpdate ;
end;
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
Excel : Variant ;
Sheet : Variant ;
rows, columns : Integer;
MaxRow : Integer;
MaxCol : Integer;
result_string : string;
sql_string : string ;
irows : integer ;
begin
    Excel:=CreateOleObject('Excel.Application');
    //Excel.Visible:= True;
    Excel.Workbooks.Open(Form1.Edit1.Text) ;
    Sheet := Excel.WorkSheets[1] ;
    MaxRow := Sheet.Usedrange.EntireRow.count ;
    MaxCol := sheet.Usedrange.EntireColumn.count;
    //special excel[row,column]
    irows := 0 ;
    For  rows := 2 To  MaxRow Do
    Begin
        For  columns := 1 To Maxcol Do
        Begin
            result_string := result_string + '"'+Excel.ActiveSheet.Cells[rows,columns].Value+'",'
        End;
        sql_string :=
        'INSERT OR IGNORE INTO import_excel(id,date_text,year_text,month_text,day_text) values ('+
        copy(result_string,1, Length(result_string)-1)+');';
        Form1.Memo1.Lines.Add(sql_string) ;
        irows := irows +1 ;
        result_string := '' ;
        sql_string := '' ;
        Form1.Label1.Caption := IntToStr(irows);
    End;
    Application.ProcessMessages;
    Excel.Workbooks.Close;
    KillTask('EXCEL.EXE');
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
opendialog : Topendialog ;
begin
    opendialog := Topendialog.Create(Form1) ;
    IF opendialog.execute Then
    Form1.Edit1.Text := opendialog.filename ;
    opendialog.free;
end;          
begin
end.

where column regexp '123|456'

procedure Form1_Edit2_OnChange (Sender: TObject);
var
i : Integer ;
original_string : String;
arr_string : Array Of String ;
begin
    Form1.Memo2.Clear ;
    original_string := Trim(Form1.Edit2.Text);
    Form1.Memo2.Lines.add('SELECT * FROM city WHERE 1 = 1');
    arr_string := SplitString(original_string,' ');
    For i := 0 To Length(arr_string) -1
    Do
    Begin
        Form1.Memo2.Lines.add('AND tip LIKE "%'+arr_string[i]+'%"')
    End;
    Form1.TableGrid1.dbSQL := Form1.Memo2.Text ;
    Form1.TableGrid1.dbSQLExecute;
    Form1.TableGrid1.BestFitColumns(bfboth);
end;
begin
end.                 

procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
    Set('S', Sum(<Report."population">));  
end;

procedure Memo5OnBeforePrint(Sender: TfrxComponent);
begin
    if Engine.FinalPass then
    Memo5.Text := FormatFloat('0,000',Get('S'));  
end;

begin

end.