/p>
{$ R * .dfm} TmainDataModule.N8Click (Sender: TObject) ;. Show ;; TmainDataModule.N11Click (Sender: TObject) ;. Terminate ;; TmainDataModule.N12Click (Sender: TObject);.QuickRep1.Preview ;; TmainDataModule.N9Click (Sender: TObject); S: string;: integer; MessageDlg ( Провести резервне копіювання? , mtCustom, mbOKCancel, 0)=1 then:=ExtractFilePath (Application.ExeName) ; (pansichar ( xcopy/Y + S + DB + S + backup ), SW_HIDE); ( Копіювання закінчено ) ;;; TmainDataModule.N5Click (Sender: TObject ); (Application.Handle, open laquo ;, help spravkam , nil, nil, SW_SHOW) ;; TmainDataModule.N6Click (Sender: TObject); (Application.Handle, open laquo ;, help sberm , nil, nil, SW_SHOW) ;; TmainDataModule.N13Click (Sender: TObject) ;. Show ;; TmainDataModule.N14Click (Sender: TObject); S: string;: integer; MessageDlg ( Провести відновлення даних? , mtCustom, mbOKCancel, 0)=1 then:=ExtractFilePath (Application.ExeName); (pansichar ( xcopy/Y + S + backup + S + DB ), SW_HIDE); ( Дані відновлені ) ;;; TmainDataModule.N3Click (Sender: TObject) ;. Show ;;.