【導讀】醫(yī)保為人類提供了醫(yī)療保障，使得人們在看病時不會因缺錢而無法醫(yī)治，導致不必要的死亡。不能適應醫(yī)保行業(yè)的發(fā)展。建設標準和統(tǒng)一規(guī)劃，導致國內保險行業(yè)計算機系統(tǒng)建設現(xiàn)在存在很多的的問題。簡單的處理軟件，不僅效率低下，而且準確率低，直接影響到醫(yī)療保險工作的效果。對于參保者的醫(yī)療費用報銷也是醫(yī)療保險管理人員非常頭疼的問題。產業(yè)特別是計算機信息管理為滿足醫(yī)保行業(yè)的需要提供了一個十分便利的工具。系統(tǒng)、定點醫(yī)療機構子系統(tǒng)、系統(tǒng)管理子系統(tǒng)五個子系統(tǒng)的設計與實現(xiàn)。兩層C/S結構，開發(fā)采用原型法。在需求階段，根據(jù)醫(yī)保的現(xiàn)狀及其特點分析從醫(yī)保政策入。網(wǎng)絡結構設計，對其軟硬件進行選擇。法，原型法以及結合面向對象技術提出的面向對象方法。系統(tǒng)開發(fā)主要是使用生命周期法。各階段首尾相連，構成了IMS的生命周期循環(huán)。目前大多數(shù)應用軟件應用的系統(tǒng)都是C/S結構。理數(shù)據(jù)，而計算任務分散在客戶機上，客戶機和服務器之間通過網(wǎng)絡協(xié)議來進行通訊。

　　

【正文】 pTableGerenzhanghuAppend()。 pTableGerenzhanghuFieldByName(身份證號 )AsString = m_ShenFenZheng。 pTableGerenzhanghuFieldByName(自費總額 )AsFloat = m_gerenjine。 pTableGerenzhanghuFieldByName(單位來源 )AsFloat = m_danweijine。 pTableGerenzhanghuPost()。 } pTableGerenzhanghuFiltered = false。 ::MessageBox(NULL,繳費成功 ,提醒 ,MB_OK)。 } 帳戶報帳計算 void __fastcall Tbaozhangjisuan::JiSuanBaoZhangFeiyong() //計算報帳費用 { if( CheckIsJiaofei() ) //有資格報帳再根據(jù)不同的人計算不同的報帳 { if(yiyuanmingchengText !=) { m_YiyuanName = yiyuanmingchengText。 QudeYiyuandengji()。 //現(xiàn)在得到了醫(yī)院等級 m_yiyuanDengji } CheckFeiyongShuru(suohuafeiyongText)。 //現(xiàn)在計算出了m_HuafeiTotal Quderenyuanzhangtai()。 //現(xiàn)在取得人員狀態(tài) TTable *pTableBaozhangfeilv = MainFormBaozhangfeilv。 //得到醫(yī)院表 pTableBaozhangfeilvFiltered = true。 pTableBaozhangfeilvFilter = 醫(yī)院等級 = \39。 +m_yiyuanDengji+ \39。 And 當前狀態(tài) = \39。 + m_Zhuangtai + \39。 if(!pTableBaozhangfeilvEof) //取出計算 { m_Baozhangfeilv = pTableBaozhangfeilvFieldByName(報銷費率)AsString。 m_qibaobiaozhun = pTableBaozhangfeilvFieldByName(起付底數(shù))AsString。 } pTableBaozhangfeilvFiltered = false。 FinalyJisuanShow()。 } void __fastcall Tbaozhangjisuan::shuanfeiClick(TObject *Sender) { m_bHefa = true。 m_KeBaoFeiyong = 0。 m_Gerenzhifufeiyong = 0。 Qingkong()。 m_Baozhangxingming = 。 m_Zhuangtai= 。 m_yiyuanDengji= 。 m_qibaobiaozhun= 。 m_Baozhangfeilv= 。 JiSuanBaoZhangFeiyong()。 //計算報帳現(xiàn)在已經取得了底數(shù)和費率 if(m_bHefa) ShowAllOut()。 //顯示所有 } void __fastcall Tbaozhangjisuan::WriteBaoZhanglishi() //將報帳歷史記錄下來 { FetchDataTime()。 //取得報帳時間 TTable *pTableBaozhangjilu = MainFormBaozhangjilu。 //得到報帳記錄表 pTableBaozhangjiluAppend()。 pTableBaozhangjiluFieldByName(醫(yī)院名稱 )AsString = m_YiyuanName。 pTableBaozhangjiluFieldByName(身份證號 )AsString = m_PostID。 pTableBaozhangjiluFieldByName(報帳時間 )AsString = m_jiaofeiDateTime。 pTableBaozhangjiluFieldByName(自己繳費金額 )AsString = m_Gerenzhifufeiyong。 pTableBaozhangjiluFieldByName(報帳金額 )AsString = m_KeBaoFeiyong。 pTableBaozhangjiluPost()。 } void __fastcall Tbaozhangjisuan::FetchDataTime() //記錄當前的繳費時間 { TDateTime pJiaoFeiShijian = DateTimePicker1Date。 AnsiString Date = ()。 AnsiString Time = ().TimeString()。 //m_jiaofeiDateTime = Date + + Time。 m_jiaofeiDateTime = Date。 } 報帳查詢 void __fastcall TbaozhangchaxunForm::chaxunbaozhang() //查詢個人報帳歷史數(shù)據(jù) { TTable *pTableBaozhangjilu = MainFormBaozhangjilu。 pTableBaozhangjiluFiltered = true。 pTableBaozhangjiluFilter = 身份證號 = \39。 + m_ShenFenZheng + \39。 if(!pTableBaozhangjiluEof) { DataSourcebaozhangDataSet = pTableBaozhangjilu。 //連接表顯示出來 DBGridbaozhangDataSource = DataSourcebaozhang。 } else { DataSourcebaozhangDataSet = NULL。 DBGridbaozhangDataSource = NULL。 pTableBaozhangjiluFiltered = false。 ::MessageBox(NULL,沒有你的報帳記錄 ,提醒 ,MB_OK)。 } 繳費歷史 void __fastcall Tjiaofeilishi::chaxunlishi() //查詢個人繳費歷史數(shù)據(jù) { TTable *pTablejiaofeilishijilu = MainFormjiaofeilishijilu。 pTablejiaofeilishijiluFiltered = true。 pTablejiaofeilishijiluFilter = 身份證號 = \39。 + m_ShenFenZheng + \39。 if(!pTablejiaofeilishijiluEof) { jiaofeilishidsDataSet = pTablejiaofeilishijilu。 //連接表顯示出來 GjiaofeilishiDataSource = jiaofeilishids。 } else { jiaofeilishidsDataSet = NULL。 GjiaofeilishiDataSource = NULL。 pTablejiaofeilishijiluFiltered = false。 ::MessageBox(NULL,沒有你的繳費記錄 ,提醒 ,MB_OK)。 } 帳戶查詢 void __fastcall TZhanghuForm::chaxunlishi() //查詢個人帳戶歷史數(shù)據(jù) { TTable *pTableGerenzhanghu = MainFormGerenzhanghu。 pTableGerenzhanghuFiltered = true。 pTableGerenzhanghuFilter = 身份證號 = \39。 + m_ShenFenZheng + \39。 if(!pTableGerenzhanghuEof) { DataSourcezhanghuDataSet = pTableGerenzhanghu。 //連接表顯示出來 DBGridzhanghuDataSource = DataSourcezhanghu。 } else { DataSourcezhanghuDataSet = NULL。 DBGridzhanghuDataSource = NULL。 pTableGerenzhanghuFiltered = false。 ::MessageBox(NULL,沒有你的個人帳戶記錄 ,提醒 ,MB_OK)。 yiyuansourceDataSet = pTableHospital。 //連接表顯示出來 yiyuangridDataSource = yiyuansource。 } 登錄 void __fastcall TDengluForm::Button1Click(TObject *Sender) //確定 { if( UserNameText == MainFormUserName amp。amp。 PasswordText == MainFormUserPassWord ) { canshuweihuFormisChange = true。 MainFormHospitalClose()。 MainFormHospitalReadOnly = false。 MainFormHospitalOpen()。 }