tify"> _ bstr_t zn;
_ variant_t pol, vr;=(long) 0; str= raquo ;; buf [100]; {_ datagrid.SetRefDataSource (0); sum=0; kol=0;=0; (i=0; i lt; kol_zap; i ++)
{= fields- gt; GetItem (0L) - gt; GetValue ();= NULL raquo ;; (vr.vt!=VT_NULL) zn=vr;+=zn;gt;ms[j]=str;=laquo;raquo;;=fields-gt;GetItem(1L)-gt;GetValue();gt;mas[j]=atoi((_bstr_t)vr);gt;MoveNext();++;
} gt; n=j; rect; ( amp; rect) ;. OffsetRect (20,80);=new Grafik;
//graf- gt; mf=mfr;gt;Doc=this-gt;Doc;gt;CreateEx(NULL,NULL,laquo;Grafikraquo;,WS_VISIBLE|WS_OVERLAPPEDWINDOW,rect,AfxGetMainWnd(), 0);
} (_ com_error amp; ce)
{ gt; ErrMessage (ce);
}//TODO: Add your control notification handler code here
} Dlg :: OnDohodOtUslug ()
{str_query; _query= SELECT Услугі.Tip, Sum (Услугі.Stoimost) AS [Sum-Stoimost] FROM Співробітники INNER JOIN (Послуги INNER JOIN Замовлення ON Услугі.IDy=Закази.IDy) ON Сотруднікі.IDsotr=Закази.IDsotr GROUP BY Услугі.Tip ORDER BY Услугі.Tip, Sum (Услугі.Stoimost) raquo ;; _ Baza (str_query); _ datagrid.SetRefDataSource (pRecordset);//TODO: Add your control notification handler code here (IDC_GRAF) - gt; ShowWindow (SW_HIDE);
} Dlg :: OnDohodPoDnyam ()
{str_query; _query= SELECT Закази.Datazak, Sum (Услугі.Stoimost) AS [Sum-Stoimost] FROM Співробітники INNER JOIN (Послуги INNER JOIN Замовлення ON Услугі.IDy=Закази.IDy) ON Сотруднікі.IDsotr=Закази.IDsotr GROUP BY Закази.Datazak ORDER BY Заказы.Datazakraquo;;_Baza(str_query);_datagrid.SetRefDataSource(pRecordset);(IDC_GRAF)-gt;ShowWindow(SW_HIDE);
} Dlg :: OnDohodSotrPodnyam ()
{str_query; _query= SELECT Закази.Datazak, Сотруднікі.Fam, Sum (Услугі.Stoimost) AS [Sum-Stoimost] FROM Співробітники INNER JOIN (Послуги INNER JOIN Замовлення ON Услугі.IDy= Закази.IDy) ON Сотруднікі.IDsotr=Закази.IDsotr GROUP BY Закази.Datazak, Сотруднікі.Fam ORDER BY Закази.Datazak, Sum (Услугі.Stoimost) DESCraquo;;_Baza(str_query);_datagrid.SetRefDataSource(pRecordset);(IDC_GRAF)-gt;ShowWindow(SW_HIDE);
} Dlg :: OnAllDohodSotr ()
{str_query; _query= SELECT Сотруднікі.Fam, Sum (Услугі.Stoimost) AS [Sum-Stoimost] FROM Послуги INNER JOIN (Співробітники INNER JOIN Замовлення ON Сотруднікі.IDsotr=Закази.IDsotr) ON Услугі.IDy=Закази.IDy GROUP BY Сотруднікі.Fam ORDER BY Sum (Услугі.Stoimost) DESCraquo;;_Baza(str_query);_datagrid.SetRefDataSource(pRecordset);(IDC_GRAF)-gt;ShowWindow(SW_SHOW);
} Dlg :: OnSelchangeTable ()
{str; (IDC_GRAF) - gt; ShowWindow (SW_HIDE); _ pol.ResetContent (); (m_tab.GetCurSel () lt; 0)
{MessageBox ( Ололо вибери таблицю ) ;;
} _ tab.GetText (m_tab.GetCurSel (), str);=str; .MakeUpper ();= ` + str + ` raquo ;;
_ RecordsetPtr pRec;
pRec=pConn- gt; Execute ((_ bstr_t) str, 0, adCmdTable); (long i=0; i lt; pRec- gt; GetFields () - gt; GetCount (); i ++)
{= (char *) (_ bstr_t) pRec- gt; GetFields () - gt; GetItem (i) - gt; GetName (); _ pol.AddString (str);
} gt; Close ();= SELECT * FROM raquo ;;=str+laquo;`raquo;+table+laquo;`raquo;;_editquery.SetWindowText(str);();(IDC_STATIC2)-gt;SetWindowText(laquo;Работа з таблицею + table);//TODO: Add your control notification handler code here
} Dlg :: OnSelchangePolya ()
{
//TODO: Add your control notification handler code here
} Dlg :: OnFirst ()
{
if (pRecordset- gt; GetState () == 0) return; (! pRecordset- gt; GetRecordCount ()) return;
{ gt; MoveFirst ();
} (_ com_error amp; ce)
{ gt; ErrMessage (ce);
}
} Dlg :: OnLeft ()
{(pRecordset- gt; GetState () == 0) return; (! pRecordset- gt; GetRecordCount ()) return;
{(! pRecordset- gt; BOF)
{ gt; MovePrevious (); (pRecordset- gt; BOF) pRecordset- gt; MoveFirst ();
} pRecordset- gt; MoveFirst ();
} (_ com_error amp; ce)
{ gt; ErrMessage (ce);
}
} Dlg :: OnRight ()
{(pRecordset- gt; GetState () == 0) return; (! pRecordset- gt; GetRecordCount ()) return;
{(! pRecordset- gt; ADO_EOF)
{ gt; MoveNext (); (pRecordset- gt; ADO_EOF) pRecordset- gt; ...
