數(shù)據(jù)庫原理課程設(shè)計(jì)---醫(yī)院管理系統(tǒng)(更新版)
【正文】 10), ssex varchar(10), day varchar(10), ) 添加記錄 表 drop table now create table now ( snum int primary key, sage int, dnum int, money int, ) select * from sick select *from now delete sick delete now insert into sick values(1,39。 m_pConnectionExecute(bstrSQL,NULL,adCmdText)。 } catch(__error e) { AfxMessageBox(())。 try { ()。 其他類 不再 重復(fù)說明。 // 定義方法 public: ADOConn()。 afx_msg HCURSOR OnQueryDragIcon()。 CString m_day。 enum { IDD = IDD_YY_DIALOG }。 模塊之間的圖共用： 圖一：系統(tǒng)類圖 動(dòng)態(tài)模型主要描述系統(tǒng)的動(dòng)態(tài)行為和控制結(jié)構(gòu) 。使用 醫(yī)院 管理系統(tǒng)系統(tǒng)之后， 有關(guān)人員可以管理 病人掛號(hào)信息 、 職工信息 、 住院信息 等 等 ；還可以查詢某位 病人 、某 職工 的 住院或工作 ，對(duì)當(dāng)前情況給出一些統(tǒng)計(jì)，給出統(tǒng)計(jì)表格，以全面掌握 醫(yī)院的資源運(yùn)用 情況。 醫(yī)院 管理系統(tǒng)的建成無疑會(huì)為管理者對(duì) 醫(yī)院事務(wù)的管理 提供極大的幫助。類和對(duì)象的建模，是 UML 建模的基礎(chǔ)。 CYyDlg(CWnd* pParent = NULL)。 CString m_increassage。 afx_msg void OnPaint()。 //添加一個(gè)指向 Recordset對(duì)象的指針 : _RecordsetPtr m_pRecordset。 }。 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)。 m_pConnectionOpen(strConnect,adModeUnknown)。 數(shù)據(jù)庫原理課程設(shè)計(jì) 9 } BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL) { try { if(m_pConnection == NULL) Open()。 } 數(shù)據(jù)庫原理課程設(shè)計(jì) 10 七 ．功能測試 圖一 進(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ù)庫。小 B39。女 39。2021010439。小 F39。男 39。2021010439。大 D39。 ifdef _AFXDLL 數(shù)據(jù)庫原理課程設(shè)計(jì) 16 Enable3dControls()。 endif class CAboutDlg : public CDialog { public: CAboutDlg()。 m_increassnum = _T()。 DDX_Text(pDX, IDC_EDIT_ssex, m_ssex)。 DDX_Text(pDX, IDC_EDIT_increasmoney, m_money)。 if (!()) { pSysMenuAppendMenu(MF_SEPARATOR)。 } else { CDialog::OnSysCommand(nID, lParam)。 int x = (() cxIcon + 1) / 2。 } CString sql。%s39。 (0,snum, LVCFMT_LEFT,50)。 ADOConn con。 (i,5,(LPCTSTR)(_bstr_t)ptrGetCollect(dnum))。 sql = Select , sname, ssex, day, sage, dnum from yiyuan, now where =
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1