.Find ('', 0); (g == - 1) break; _con=str_con.Mid (g + 1);
}=str_con; .MakeUpper (); _ con=( Provider=Microsoft.Jet.OLEDB.4.0; Data Source=raquo;);_con+=OpenDialog.GetPathName();_con+=laquo;;raquo;;_datagrid.SetRefDataSource(0);
{_ Baza (str_con);
} (_ com_error amp; ce)
{ gt; ErrMessage (ce) ;;
}(IDC_DOHOD_OT_USLUG)-gt;ShowWindow(SW_SHOW);(IDC_DOHOD_PO_DNYAM)-gt;ShowWindow(SW_SHOW);(IDC_DOHOD_SOTR_PODNYAM)-gt;ShowWindow(SW_SHOW);(IDC_ALL_DOHOD_SOTR)-gt;ShowWindow(SW_SHOW);(IDC_ZAPROS_MAKE)-gt;ShowWindow(SW_SHOW);(IDC_ZAPROS_SELECT)-gt;ShowWindow(SW_SHOW);(IDC_Find)-gt;ShowWindow(SW_SHOW);(IDC_Sort)-gt;ShowWindow(SW_SHOW);_BD();//TODO: Add your control notification handler code here
} Dlg :: OnZaprosMake ()
{_ timeb timebuffer; (IDC_GRAF) - gt; ShowWindow (SW_HIDE);
_ ftime ( amp; timebuffer); nach=timebuffer.time + timebuffer.millitm/1000.0; str, str1; kod=0; _editquery.GetWindowText (str) ;. TrimLeft () ;. MakeUpper ( ); (str.Mid (0,3) .Compare ( SEL ) == 0)
{MessageBox ( Команда SELECT неприпустима для цієї кнопки ); return;} (str.Mid (0,3) .Compare ( DEL ) == 0)
{= DELETE FROM lt; таблиця gt; [Where lt; умова gt; ] raquo ;;=1;
} (str.Mid (0,3) .Compare ( UPD ) == 0)
{= UPDATE lt; таблиця gt; SET lt; поле gt;= lt; вираз gt ;, [ lt; поле gt;= lt; вираз gt ;,] ... [where lt; ??????? gt;] raquo ;; =2;
} (str.Mid (0,3) .Compare ( INS ) == 0)
{= INSERT INTO lt; таблиця gt; ( lt; список імен полів gt;) VALUES ( lt; список значень gt;) raquo ;;=3;
} (str.Mid (0,3) .Compare ( CRE ) == 0)
{= CREATE TABLE lt; таблиця gt; ( lt; ім'я поля1 gt; lt; тип gt ;, lt; ім'я поля 2 gt; lt; тип gt; ...) raquo ;;=4;
} (str.Mid (0,3) .Compare ( DRO ) == 0)
{= DROP TABLE lt; Таблиця gt; raquo ;;=5;
}
{ gt; BeginTrans (); gt; Execute ((_ bstr_t) str, 0, adCmdText); gt; CommitTrans ();
} (_ com_error amp; ce)
{ gt; RollbackTrans (); gt; ErrMessage (ce); (kod amp; amp; str.GetLength () lt; 15) m_editquery.SetWindowText (str1); _ editquery.SetFocus (); ;
} (pRecordset- gt; GetState ()) pRecordset- gt; Requery (- 1);
_ ftime ( amp; timebuffer); conec=timebuffer.time + timebuffer.millitm/1000.0; vr_zap; _zap.Format ( Запит виконаний за% f сек , conec - nach); ( vr_zap); _ editquery.SetWindowText ( );//TODO: Add your control notification handler code here
} Dlg :: OnZaprosSelect ()
{(IDC_GRAF)-gt;ShowWindow(SW_HIDE);str_query;_editquery.GetWindowText(str_query);_query.MakeUpper (); (str_query.Mid (0,6) .Compare ( SELECT ))
{( У запиті на вибірку відсутній параметр SELECT , Помилка !!! , MB_ICONINFORMATION); _editquery.SetWindowText ( SELECT lt; * gt; | lt; ім'я поля gt; FROM lt; таблиця gt; ); _ editquery.SetFocus () ;;
}
{_ Baza (str_query); _ datagrid.SetRefDataSource (pRecordset);
} (_ com_error amp; ce)
{( erorrchik ); gt; ErrMessage (ce);
} _ editquery.SetFocus ();//TODO: Add your control notification handler code here
} Dlg :: OnFind ()
{(pRecordset- gt; GetState () == 0) return; (IDC_GRAF) - gt; ShowWindow (SW_HIDE);
_ variant_t bb=0L; str_query; _editquery.GetWindowText (str_query); _ timeb timebuffer;
_ ftime ( amp; timebuffer); nach=timebuffer.time + timebuffer.millitm/1000.0;
{ gt; Find ((_ bstr_t) str_query, 0L, adSearchForward, bb);
_ ftime ( amp; timebuffer); conec=timebuffer.time + timebuffer.millitm/1000.0; vr_zap; _zap.Format ( Пошук виконаний за% f сек , conec - nach); (vr_zap ); (pRecordset- gt; ADO_EOF) ( Значення, не знайдено! Уазатель за кінцем БД (EOF=true) );
} (_ com_error amp; ce)
{ gt; ErrMessage (ce); _ editquery.SetFocus ();
}//TODO: Add your control notification handler code here
} Dlg :: OnGraf ()
{(pRecordset- gt; GetState () == 0) return; kol_zap=pRecordset- gt; GetRecordCount (); (! kol_zap)
{( І що ми зібралися рахувати? !!! , Помилка !!! , MB_ICONINFORMATION) ;;
} i; j;
