數(shù)據(jù)庫原理課程設(shè)計(jì)---醫(yī)院管理系統(tǒng)-預(yù)覽頁
【正文】 六 ．特色算法分析 ADOConn 數(shù)法是本系統(tǒng)的特色算法。 define new DEBUG_NEW endif ADOConn::ADOConn() 開 始 初始化 連接數(shù)據(jù)庫 進(jìn)行數(shù)據(jù)操作 結(jié) 束 捕捉異常 數(shù)據(jù)庫原理課程設(shè)計(jì) 8 { } ADOConn::~ADOConn() { } void ADOConn::Open() { ::CoInitialize(NULL)。Persist Security Info=True。 m_pConnectionOpen(strConnect,adModeUnknown)。 (__uuidof(Recordset))。 數(shù)據(jù)庫原理課程設(shè)計(jì) 9 } BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL) { try { if(m_pConnection == NULL) Open()。 return false。 } 數(shù)據(jù)庫原理課程設(shè)計(jì) 10 七 ．功能測(cè)試 圖一 進(jìn)入的界面 圖二 掛號(hào)失敗 數(shù)據(jù)庫原理課程設(shè)計(jì) 11 圖三 掛號(hào)成功 圖四 添加成功 數(shù)據(jù)庫原理課程設(shè)計(jì) 12 圖五 添加失敗 圖六 單個(gè)查詢 數(shù)據(jù)庫原理課程設(shè)計(jì) 13 圖七 空值查詢所以資料 八 ．存在的不足與對(duì)策 本程序十分簡單，只做成功掛號(hào)，添加與查詢?nèi)糠郑€有很大的發(fā)展空間，離實(shí)際的應(yīng)用需要的整個(gè)醫(yī)院的管理系統(tǒng)還有一大步距離， 還有許多有待開發(fā)的功能，像住院管理，藥品管理等等，而且里面的類型定義還不太嚴(yán)格，導(dǎo)致不同的格 式輸入也能記錄到數(shù)據(jù)庫。女 39。小 B39。2021010339。女 39。小 D39。2021010439。女 39。小 F39。2021010639。男 39。大 B39。2021010439。男 39。大 D39。2021010439。 ifdef _AFXDLL 數(shù)據(jù)庫原理課程設(shè)計(jì) 16 Enable3dControls()。dlg。 endif class CAboutDlg : public CDialog { public: CAboutDlg()。 } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) END_MESSAGE_MAP() CYyDlg::CYyDlg(CWnd* pParent /*=NULL*/) 數(shù)據(jù)庫原理課程設(shè)計(jì) 17 : CDialog(CYyDlg::IDD, pParent) { m_ssex = _T()。 m_increassnum = _T()。 m_money = _T()。 DDX_Text(pDX, IDC_EDIT_ssex, m_ssex)。 DDX_Text(pDX, IDC_EDIT_increassnum, m_increassnum)。 DDX_Text(pDX, IDC_EDIT_increasmoney, m_money)。 ASSERT(IDM_ABOUTBOX 0xF000)。 if (!()) { pSysMenuAppendMenu(MF_SEPARATOR)。 // Set small icon return TRUE。 } else { CDialog::OnSysCommand(nID, lParam)。 int cyIcon = GetSystemMetrics(SM_CYICON)。 int x = (() cxIcon + 1) / 2。 } 數(shù)據(jù)庫原理課程設(shè)計(jì) 19 } HCURSOR CYyDlg::OnQueryDragIcon() { return (HCURSOR) m_hIcon。 } CString sql。%s39。%s39。 else AfxMessageBox(error)。 (0,snum, LVCFMT_LEFT,50)。 (4,sage, LVCFMT_LEFT,80)。 ADOConn con。 (i,1,(LPCTSTR)(_bstr_t)ptrGetCollect(sname))。 (i,5,(LPCTSTR)(_bstr_t)ptrGetCollect(dnum))。 } ptrClose()。 sql = Select , sname, ssex, day, sage, dnum from yiyuan, now where = 。 (Insert into now values(39。,39。), m_increassnum, m_increassage,m_increasdnum,m_mon
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1