Search options (Page 2 of 15)

procedure createf (Sender: TObject; var Cancel: boolean);
var
 frm:TForm;
begin
 //   Frm := TForm.Create(Form1);   // or  
   Frm := TForm.Create(Application);
  Frm.ShowModal;
end;

Procedure something;
var
    
    lngth : integer;
begin

  lngth :=  Length(Form1.Edit1.text); //check how many digits have been entered

  if lngth <> 10 then
   begin
     messageDlg('Personnel Number  must be 10 digits ',mtError, mbCancel, 0); //your choice of message and buttons
     Form1.Edit1.SetFocus; // Make the edit box the focus - so the correct number can be typed in
   end;
   

function CountBackups(dir: string) : string;
var
  fileList : TStringList;
 // count : integer;
begin
   result := '0';
   fileList := TStringList.Create;
   fileList.Text := GetFilesList(dir, '*.db',False);
   result := intToStr(fileList.Count -1);                                                                       

   fileList.Free;

end;

procedure frmMain_OnClose (Sender: TObject; Action: string);
begin
   
     CopyFile('Test.db', 'backup/backup '+ FormatDateTime('dd-mm-yyyy hh-nn-ss', now)+'.db');  
    dbBackup(b);
  
     Timer.Free;
     
end;

procedure OnTimer;
begin

     iSeconds := iSeconds + 1;
     frmMain.lbCounter.Caption := ' '+intToStr(iSeconds);
     AutocloseSet;
     if iSeconds > 30 then // backup every 3.5 hours (14400 seconds)
     begin
         // dbBackup(b);
          dbUpdateTimer;  
          iSeconds := 0;
     end;
end;

procedure dbBackup(d: string);
 var
  z : boolean;
begin

    z := ForceDirectories(d);

    if z then
       CopyFile(dbName, d + '/WOS_backup '+ FormatDateTime('dd-mm-yyyy hh-nn-ss',now)+'.db')
    else
      messageBox('Folder '+d +' does not exist', 'Backup Folder', 0);

   frmMain.lbFileCount.Caption := CountBackups(d);

end;

procedure frmMain_OnShow (Sender: TObject; Action: string);
var
b,y :string;
begin

   b :=  ExtractFilePath(Application.ExeName);
   y :=  b;
   b := b + 'backup\backup ' + dtToday;
   y := y + 'backup\backup ' + dtYesterday;
   //CreateDir(y); // this is required to stop file does not exist message on first open
  { if y < b then
     DeleteDB(y); move this to onClose}

    dbBackup(b);
  

//global code
var
  Timer : TTimer;
  iSeconds : integer;

//Note not tested.

procedure frmYourFormName_Button1_OnAfterClick (filetext : string);
var FileName : string;
begin
  FileName := filetext;
  if FileExists(FileName) then
  begin
     DeleteFile(FileName);
  end
  else
    MessageBox('File ' + FileName + 'does not exist ','Delete Error ' , MB_OK+MB_ICONERROR);
end;

var
 localImagePath : string;
ImageId:string;
begin
ImageId := intToStr(frmYour_form_name.your_component_name.dbItemID);

localImagePath := SQLExecute(' SELECT your_database_field_name FROM your_table_name WHERE id="'+ImageId+'"');
frmEdit.text := localImagePath;

// The above code needs to be called before you delete the database entry if you are using the inbuilt delete function of MVD. If you are writing the code yourself for the complete delete function, you could combine the above code into the button click event. Unless you want a universal function to call for other file deletions.
end;