Search options (Page 260 of 400)

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
   OpenDialog: TOpenDialog;
   sl: TStringList;
   arrStr: array of string;
   i,c: integer;
   counter: string;
   text: string;
   kategory: string;
   number: string;
begin
     OpenDialog := TOpenDialog.Create(Form1);
     if OpenDialog.Execute then
     begin
          sl := TStringList.Create;
          sl.LoadFromFile (OpenDialog.FileName);
          c := sl.Count - 1;

          for i := 0 to c do
          begin
                  arrStr:= SplitString(sl[i], ',');

                  // Пожелание
                  if  arrStr[0] <> '' then text := '''' + arrStr[0] + '''' else text := 'NULL';

                  // Категория
                  if  arrStr[1] <> '' then kategory := arrStr[1] else kategory := 'NULL';

                  // №
                  if  arrStr[2] <> '' then number := '''' + arrStr[2] + '''' else number := 'NULL';

                  // record_count
                  if  arrStr[3] <> '' then counter := arrStr[3] else counter := 'NULL';

                  SQLExecute ('INSERT INTO pozhelaniya (text, id_pozhelaniyakategoriya, textid, record_count) VALUES ('+ text +','+ kategory +','+ number +','+ counter +');');

                  Form1.Label19.Caption := 'Обработано '+ IntToStr(i)+ ' строк из ' + IntToStr(c);
                  Application.ProcessMessages;
          end;

          sl.Free;
          Form1.TableGrid3.dbUpdate;
          ShowMessage('Импорт завершен');
     end;
     OpenDialog.Free;
end;

SELECT

COUNT(main.date) as qty,
master.master
............

Form1.TableGrid1.SaveToTextFile('файл');

s:= ReplaceStr(s, #13#10, '\crlf\');

s:= ReplaceStr(s, '\crlf\', #13#10);

procedure frmApplication_OnShow (Sender: string; Action: string);
begin
  if Action='NewRecord' then
  begin
      frmApplication.DateTimePicker2.Date := Now+15;
  end;
end;

procedure Form1_CheckBox1_OnClick (Sender: string);
begin
    Form1.CheckBox2.Enabled := not Form1.CheckBox1.Checked;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    OpenFile(ExtractFileDir(Application.ExeName)+'\Pdf_reports');
end;