VB6.0与SQL Server构建简易医院药品管理

版权申诉
0 下载量 127 浏览量 更新于2024-10-25 收藏 27KB RAR 举报
资源摘要信息:"该项目是一个使用Visual Basic 6.0(VB6.0)和SQL Server 2000数据库系统开发的医院药品存销管理系统。该项目的主要目的是提供一个简洁的平台,用于记录和管理药品的库存,包括药品的入库信息、库存量和药品的出库信息等。以下是该系统的相关知识点介绍:" 1. Visual Basic 6.0(VB6.0): VB6.0是微软公司于1998年推出的编程语言和开发环境,它是基于BASIC语言的一种可视化编程工具。VB6.0拥有丰富的组件库,提供了便捷的事件驱动编程方式,使得开发者能够快速开发Windows平台下的桌面应用程序。虽然VB6.0是一个较为老旧的技术,但因其简单易学,在一些特定的应用场景中仍有应用价值。 2. SQL Server 2000: SQL Server 2000是微软发布的一款关系型数据库管理系统,它是SQL Server系列的一个重要版本。SQL Server 2000提供了数据存储、数据检索、数据备份恢复、数据复制以及数据管理等多种数据库服务。SQL Server 2000拥有较好的性能、稳定性和易用性,非常适合中小型企业的数据管理需求。 3. 医院药品存销管理系统: 这类系统是为医院药品管理而设计的,主要功能包括记录药品的入库、库存量和出库信息等。一个好的药品存销管理系统应该能够提供准确的数据信息,帮助医院合理安排药品采购、防止药品积压,以及快速响应药品销售和分发。 4. 药品入库信息记录: 系统需要提供一个界面,记录药品入库时的相关信息,如药品名称、入库时间、生产厂家、批号、有效期、入库数量、入库价格等。这些信息是药品管理的基础,也是药品存销管理系统中非常重要的一部分。 5. 药品库存管理: 药品库存管理是药品存销系统的核心功能之一,它包括对药品库存量的实时监控、药品过期预警、库存查询等功能。合理的库存管理可以减少库存成本,保证药品供应的及时性和安全性。 6. 药品出库信息资料: 出库管理功能用于记录和管理药品的销售或分发信息,包括出库时间、接收科室或病人信息、出库数量、出库价格等。通过这些信息,医院能够追踪药品去向,确保药品使用的正确性和合法性。 7. 数据库设计: 在本项目中,数据库的设计是关键。合理的数据库设计能够确保数据的准确性和完整性,便于存储和查询药品信息。SQL Server 2000中的表结构应该合理设计,如包含药品信息表、库存表、入库表、出库表等,并确保它们之间通过适当的关系连接。 8. 系统安全与维护: 作为医院信息管理系统的一部分,药品存销管理系统需要注重系统的安全性,包括数据备份、用户权限管理、系统操作日志记录等。此外,系统在使用过程中可能会遇到各种技术问题,因此需要进行定期的维护和更新。 综上所述,该项目使用VB6.0和SQL Server 2000构建了一个实用的医院药品存销管理系统,不仅涵盖了药品管理的基本功能,还通过合理的设计确保了系统在实际应用中的稳定性和可靠性。尽管VB6.0和SQL Server 2000不是最新技术,但在这个项目中,它们足以满足系统需求,并能够保证系统的顺利运行。

优化这条sql 解决bug select a.*,rownum num from ( SELECT t.PROJ_ID,t.PROJ_CODE,t.PROJ_NAME,t.CLIENT_CODE,t.CLIENT_NAME,t.SPEC_CODE,t.SPEC_NAME,t.BUS_UNIT_CODE,t.BUS_UNIT,t.PROJ_DEP_CODE,t.PROJ_DEP,t.PROJECT_MANAGER_CODE,t.PROJECT_MANAGER,t.PROJECT_DEP_MANAGER_CODE,t.PROJECT_DEP_MANAGER,t.IS_SUB_PROJ,t.SUB_PROJ_TYPE_CODE,t.SUB_PROJ_TYPE,t.PARENT_CODE,t.PROJ_GROSS,t.CLIENT_AREA_CODE,t.CLIENT_AREA,t.CLIENT_TYPE_FULL_PATH_CODE,t.CLIENT_TYPE_PULL_PATH,t.BUSINESS_TYPE_CODE,t.BUSINESS_TYPE,t.BUSINESS_LEVEL_CODE,t.BUSINESS_LEVEL,t.BUSINESS_AREA_CODE,t.BUSINESS_AREA_NAME,t.IS_CLOSE,t.IS_IN_COO,t.TAX_RATE,t.IS_AUTHORIZED,t.AUTHORIZED_AMOUNT,t.IS_VIRTUAL,t.INCOME_BUDGET,t.EXPENDITURE_BUDGET,t.P_VALUE,t.CREATE_TIME,t.P_BUD_VALUE,t.P1_BUD_VALUE,t.P2_BUD_VALUE,t.ORG_CODE,t.ORG_NAME,t.PROD_RES_TYPE,t.IS_TECH_COO,t.COO_UNIT_RATIO,t.PROJ_ACHIEVEMENTS_BUD,t.REIMBURSEMENT_COST_BUD,t.COO_COST_BUD,t.MATERIAL_COST_BUD,t.PERFORMANCE_PERCENT,t.SCHE_START_TIME,t.SCHE_END_TIME,t.PROJECT_ACCOUNT_CODE,t.CUSTOMER_TYPE_CODE,t.CUSTOMER_TYPE,t.IS_PURE_OUT_PROJ,t.PROJECT_CREATE_TIME,t.IS_RELATE,t.IS_QUOTA,t.MAIN_PROJECT_CODE,t.PROJ_STATUS,t.IS_LARGE_PROJECT,t.MARKET_DIS_COUNT_RATE,t.PROJECT_CAT,t.MGR_PER_FORMANCE_RATIO,t.P1_VALUE,t.S_VALUE,t.COOP_VALUE,t.H_VALUE,t.DEVICE_BUDGET_COST,t.SUR_FEE_DIS_COUNT_RATE,t.DES_FEE_DIS_COUNT_RATE, (select listagg(p.coo_unit_code, ',') within group(order by p.coo_unit_code) from ( select distinct coo_unit_code from t_spdi_proj where is_sub_proj = 'Y' and sub_proj_type_code = 'wbhz' and PROJ_STATUS != 'P_5' AND PROJ_STATUS != 'P_4' and parent_code = t.proj_code )p ) coo_unit_code, (select listagg(to_char(p.coo_unit), ',') within group(order by p.coo_unit) from ( select distinct coo_unit from t_spdi_proj where is_sub_proj = 'Y' and sub_proj_type_code = 'wbhz' and PROJ_STATUS != 'P_5' AND PROJ_STATUS != 'P_4' and parent_code = t.proj_code )p ) coo_unit from T_SPDI_PROJ t where t.PROJ_STATUS NOT IN ('E','H','W') order by t.proj_id )a

129 浏览量

改为pgsql select c.* from ( select a.* from ( SELECT t.PROJ_ID,t.PROJ_CODE,t.PROJ_NAME,t.CLIENT_CODE,t.CLIENT_NAME,t.SPEC_CODE,t.SPEC_NAME,t.BUS_UNIT_CODE,t.BUS_UNIT,t.PROJ_DEP_CODE,t.PROJ_DEP,t.PROJECT_MANAGER_CODE,t.PROJECT_MANAGER,t.PROJECT_DEP_MANAGER_CODE,t.PROJECT_DEP_MANAGER,t.IS_SUB_PROJ,t.SUB_PROJ_TYPE_CODE,t.SUB_PROJ_TYPE,t.PARENT_CODE,t.PROJ_GROSS,t.CLIENT_AREA_CODE,t.CLIENT_AREA,t.CLIENT_TYPE_FULL_PATH_CODE,t.CLIENT_TYPE_PULL_PATH,t.BUSINESS_TYPE_CODE,t.BUSINESS_TYPE,t.BUSINESS_LEVEL_CODE,t.BUSINESS_LEVEL,t.BUSINESS_AREA_CODE,t.BUSINESS_AREA_NAME,t.IS_CLOSE,t.IS_IN_COO,t.TAX_RATE,t.IS_AUTHORIZED,t.AUTHORIZED_AMOUNT,t.IS_VIRTUAL,t.INCOME_BUDGET,t.EXPENDITURE_BUDGET,t.P_VALUE,t.CREATE_TIME,t.P_BUD_VALUE,t.P1_BUD_VALUE,t.P2_BUD_VALUE,t.ORG_CODE,t.ORG_NAME,t.PROD_RES_TYPE,t.IS_TECH_COO,t.COO_UNIT_RATIO,t.PROJ_ACHIEVEMENTS_BUD,t.REIMBURSEMENT_COST_BUD,t.COO_COST_BUD,t.MATERIAL_COST_BUD,t.PERFORMANCE_PERCENT,t.SCHE_START_TIME,t.SCHE_END_TIME,t.PROJECT_ACCOUNT_CODE,t.CUSTOMER_TYPE_CODE,t.CUSTOMER_TYPE,t.IS_PURE_OUT_PROJ,t.PROJECT_CREATE_TIME,t.IS_RELATE,t.IS_QUOTA,t.MAIN_PROJECT_CODE,t.PROJ_STATUS,t.IS_LARGE_PROJECT,t.MARKET_DIS_COUNT_RATE,t.PROJECT_CAT,t.MGR_PER_FORMANCE_RATIO,t.P1_VALUE,t.S_VALUE,t.COOP_VALUE,t.H_VALUE,t.DEVICE_BUDGET_COST,t.SUR_FEE_DIS_COUNT_RATE,t.DES_FEE_DIS_COUNT_RATE, (select listagg(p.coo_unit_code, ',') within group(order by p.coo_unit_code) from ( select distinct coo_unit_code from t_spdi_proj where is_sub_proj = 'Y' and sub_proj_type_code = 'wbhz' and PROJ_STATUS != 'P_5' AND PROJ_STATUS != 'P_4' and parent_code = t.proj_code )p ) coo_unit_code, (select listagg(to_char(p.coo_unit), ',') within group(order by p.coo_unit) from ( select distinct coo_unit from t_spdi_proj where is_sub_proj = 'Y' and sub_proj_type_code = 'wbhz' and PROJ_STATUS != 'P_5' AND PROJ_STATUS != 'P_4' and parent_code = t.proj_code )p ) coo_unit from T_SPDI_PROJ t where -- and t.PARENT_CODE=#{parentCode:VARCHAR} t.IS_SUB_PROJ='Y' and t.SUB_PROJ_TYPE_CODE='zz' and t.PROJ_STATUS NOT IN ('E','H','W') order by t.proj_id )a )c

134 浏览量