BOOL CDialogAccountQuery::OnInitDialog()
{
CDialog::OnInitDialog();
CString strSql;
typeArray.RemoveAll();
try{
strSql="select ds1,ds3 from lsq_upgrade where ds2=upper('pay_fee') order by n1";
recSet->Open(_bstr_t(strSql),(IDispatch*)HospitalConnect,adOpenDynamic,adLockOptimistic,adCmdText);
while(!recSet->adoEOF){
strSql=(char*)_bstr_t(recSet->GetCollect("ds1").vt==VT_NULL?" ":recSet->GetCollect("ds1"));
m_type.AddString(strSql);
strSql=(char*)_bstr_t(recSet->GetCollect("ds3").vt==VT_NULL?" ":recSet->GetCollect("ds3"));
typeArray.Add(strSql);
recSet->MoveNext();
}
recSet->Close();
}
catch(_com_error e)
{
AfxMessageBox("³öÏÖ´íÎó,Çë¼ì²éSQLÓï¾ä...");
return false;
}
m_type.SetCurSel(0);
SetGridHead(m_grid);
SetGridHead(m_grid2);
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
int CWorkSpaceBar::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
if (CBCGPDockingControlBar::OnCreate(lpCreateStruct) == -1)
return -1;
CRect rectDummy;
rectDummy.SetRectEmpty ();
// Create tree windows.
// TODO: create your own tab windows here:
// const DWORD dwViewStyle = WS_CHILD | WS_VISIBLE | TVS_HASLINES |
// TVS_LINESATROOT | TVS_HASBUTTONS;
//
// if (!m_wndTree.Create (dwViewStyle, rectDummy, this, 1))
// {
// TRACE0("Failed to create workspace view\n");
// return -1; // fail to create
// }
//
// // Setup trees content:
// HTREEITEM hRoot1 = m_wndTree.InsertItem (_T("Root 1"));
// m_wndTree.InsertItem (_T("Item 1"), hRoot1);
// m_wndTree.InsertItem (_T("Item 2"), hRoot1);
m_pGridView = new CBCGPGridCtrl;
if(!m_pGridView)
return -1;
CRect rect(0,0,300,300);
if (!m_pGridView->Create(WS_CHILD|WS_VISIBLE,rect,this,1))
{
TRACE0("Warning: couldn't create Grid View!\n");
return FALSE;
}
BCGP_GRID_COLOR_DATA clrData;
clrData = m_pGridView->GetColorTheme();
clrData.m_clrBackground = ::GetSysColor(COLOR_3DFACE);
clrData.m_EvenColors.m_clrBackground = RGB(255,192,203); // 奇数行
clrData.m_OddColors.m_clrBackground = RGB(175,238,238); // 偶数行
m_pGridView->SetColorTheme(clrData);
m_pGridView->SetReadOnly();
m_pGridView->SetSingleSel(TRUE);
m_pGridView->SetWholeRowSel(TRUE);
m_pGridView->EnableHeader (TRUE, BCGP_GRID_HEADER_HIDE_ITEMS);
m_pGridView->EnableDragSelection(FALSE);
SetGridHead();
LoadMembers(members);
LoadState (_T("WorkSpaceBar"));
return 0;
}
void CFormRkList::OnInitialUpdate()
{
CFormView::OnInitialUpdate();
theApp.hRkList=GetParentFrame()->m_hWnd;
GetDlgItem(IDC_STATIC_TITLE)->SetFont(&fontTitle);
GetDlgItem(IDC_STATIC_TITLE)->SetWindowText("医院药品采购入库明细表");
GetDocument()->SetTitle("医院药品采购入库列表");
GetParentFrame()->ShowWindow(SW_SHOWMAXIMIZED);
// ResizeParentToFit();
SetGridHead();
}
// CActiveSourceView 消息处理程序
BOOL CActiveSourceView::CreateView(CWnd* pParent, CCreateContext* pContext)
{
CRect rect(0,0,300,300);
if (!Create(NULL, NULL, AFX_WS_DEFAULT_VIEW,
rect, pParent, AFX_IDW_PANE_FIRST, pContext))
{
TRACE0("Warning: couldn't create CMyFormView!\n");
return FALSE;
}
CRect rectGrid;
m_ImageList.Create (IDB_SOURCESTATE,16,0,RGB (255, 0, 255));
m_wndGrid.SetImageList (&m_ImageList);
GetClientRect(&rectGrid);
rectGrid.bottom = rectGrid.bottom -80;
m_wndGrid.Create (WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_BORDER, rectGrid, this, (UINT)-1);
// 禁止列排序
m_wndGrid.EnableHeader (TRUE, BCGP_GRID_HEADER_HIDE_ITEMS);
m_wndGrid.EnableInvertSelOnCtrl (FALSE);
// 设置窗口位置
m_wndGrid.SetWindowPos (&CWnd::wndTop, -1, -1, -1, -1, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);
BCGP_GRID_COLOR_DATA clrData;
clrData = m_wndGrid.GetColorTheme();
clrData.m_clrBackground = globalData.clrBarFace; // ;::GetSysColor(COLOR_3DFACE)
clrData.m_EvenColors.m_clrBackground = RGB(255,255,255);
clrData.m_OddColors.m_clrBackground = RGB(250,253,253);
m_wndGrid.SetColorTheme(clrData);
m_wndGrid.SetReadOnly ();
m_wndGrid.SetSingleSel(TRUE);
m_wndGrid.SetWholeRowSel(TRUE);
m_wndGrid.EnableDragSelection(FALSE);
SetGridHead();
//m_wndGrid.LoadState (_T("ActiveSourceGrid"));
return TRUE;
}
int CActiveAcqBar::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
if (CBCGPDockingControlBar::OnCreate(lpCreateStruct) == -1)
return -1;
// TODO: 在此添加您专用的创建代码
CRect rectDummy;
rectDummy.SetRectEmpty ();
// TODO: create your own tab windows here:
const DWORD dwViewStyle = WS_CHILD | WS_VISIBLE | TVS_HASLINES |
TVS_LINESATROOT | TVS_HASBUTTONS;
if (!m_GridView.Create(dwViewStyle, rectDummy, this, 1))
{
TRACE0("Failed to create Grid View!\n");
return -1;
}
BCGP_GRID_COLOR_DATA clrData;
clrData = m_GridView.GetColorTheme();
clrData.m_clrBackground = ::GetSysColor(COLOR_3DFACE);
clrData.m_EvenColors.m_clrBackground = RGB(255,255,255); // 奇数行
clrData.m_OddColors.m_clrBackground = RGB(250,250,250); // 偶数行
m_GridView.SetColorTheme(clrData);
m_GridView.SetReadOnly();
m_GridView.SetSingleSel(TRUE);
m_GridView.SetWholeRowSel(TRUE);
m_GridView.EnableHeader (TRUE, BCGP_GRID_HEADER_HIDE_ITEMS);
m_GridView.EnableDragSelection(FALSE);
// 设置表头
SetGridHead();
m_ImageList.Create (IDB_BITMAP_ACQ, 16, 0, RGB (255, 0, 255));
m_GridView.SetImageList (&m_ImageList);
SetTimer(AcqReloadTimerID, AcqReloadTime, NULL);
return 0;
}
void CMedRoomCompare::OnOK()
{
SetGridHead();
CString strSql,str1,strtemp;
long cols,row,i,col;
double d1;
long flag;
GetDlgItem(IDC_EDIT1)->GetWindowText(strtemp);
d1=atof(strtemp);
flag=((CComboBox*)GetDlgItem(IDC_COMBO1))->GetCurSel();
for(i=0 ; i < strMc.GetSize() ; i ++ ){
m_grid.SetTextMatrix(0,6+i,strMc.GetAt(i) ); //第六列起为各库房药品
m_grid.SetColWidth(6+i,1300);
}
try{
strSql.Format(" ( SELECT ypbm,SUM( DECODE(kfbm,'%s',sl,0) ) SCURRENT ,",LoginInformation.kfbm );
for( i=0 ;i < strBm.GetSize() ; i++ ){
str1.Format(" SUM( DECODE(kfbm,'%s',sl,0) ) S%d ",strBm.GetAt(i),i );
if( i+1 != strBm.GetSize() ) strSql+=str1+",";
else strSql+=str1;
}
strSql+=" FROM medlie GROUP BY YPBM ) TA,MEDCODE TB WHERE TA.ypbm=TB.bm " ;
str1.Format("SELECT BM,mc,gg,dw,SCURRENT,");
for(i =0 ;i <strBm.GetSize() ; i++ )
{
strtemp.Format("S%d",i);
if ( i +1 == strBm.GetSize() )str1+=strtemp;
else str1+=strtemp+",";
}
str1+=" FROM ";
str1+=strSql;
strtemp.Format("%.2f",d1);
if( flag == 0 ) str1+=" AND SCURRENT < "+strtemp;
else if( flag == 1) str1+=" AND SCURRENT > "+strtemp;
else if ( flag == 2) str1+=" AND SCURRENT = "+strtemp;
str1+=" ORDER BY dlbm,xlbm,mc ";
// AfxMessageBox(str1);
recSet->Open(_bstr_t(str1),(IDispatch*)HospitalConnect,adOpenDynamic,adLockOptimistic,adCmdText);
row=1;
cols=recSet->GetFields()->Count;
double dX;
while(!recSet->adoEOF){
col=0;
str1.Format("%ld",row);
m_grid.SetTextMatrix(row,col++,str1);
m_grid.SetRow(row);
m_grid.SetCol(6);
m_grid.SetCellBackColor(BK1);
m_grid.SetCol(7);
m_grid.SetCellBackColor(BK2);
// m_grid.SetCol(8);
// m_grid.SetCellBackColor(BK3);
for(i=0;i<cols;i++)
{
str1=(char*)_bstr_t(recSet->GetFields()->GetItem(_variant_t(i))->Value.vt==VT_NULL?" ":recSet->GetFields()->GetItem(_variant_t(i))->Value);
m_grid.SetTextMatrix(row,col++,str1);
// if( i>=CALC_START && i<CALC_END )add[i-CALC_START]+=atof(str1); //从药品数量开始到利润共七列
}
row++;
m_grid.AddItem(" ",_variant_t(row));
recSet->MoveNext();
}
recSet->Close();
m_grid.SetRedraw(true);
str1.Format("总计: %ld 条药品",row-1 );
GetDlgItem(IDC_STATIC_NOTIFY)->SetWindowText(str1);
// m_grid.RemoveItem(row);
}
catch(_com_error e)
{
AfxMessageBox(str1);
recSet->Close();
return;
}
}
