小型药店药品进销存管理系统(最新整理by阿拉蕾)

小型药店药品进销存管理系统(最新整理by阿拉蕾)内容摘要：

管理药品统计管理药品基本信息供应商信息检验处理采购记录退货管理销售信息记录打印处理销售明细统计进货盘存统计销售盘存统计总盘存药品库存管理检验处理 图 31 功能结构设计 药品进销存管理系统共有 5 个模 块：基本信息管理模块，药品库存管理模块，药品销售管理模块，药品采购管理模块。 13 数据库设计 表 31 药店进销存系统的数据库一览表 序号 数据库名 用途 数据来源 数据去向 1 药品信息表 存放药品代码及基本属性 录入 各种输入、输出、查询、 查询药品基本信息 2 库存盘存表 存放仓库代码及储存数量 录入 查询、统计汇总、库存分析 3 进货情况表 存放进药的代码、名称、数量、单价 录入 统计汇总、消耗分析 4 销售情况表 存放 销售情况 录入 输出单据、统计汇总 各数据表 结构如下： 表 32 进货情况表 序号 字段名 类型 长度 1 进货日期 A 20 2 药品名称 A 20 3 药品代码 A 20 4 进货数量 N 5 进货单价 $ 6 进货金额 $ 7 采购人 A 10 8 验收人 A 10 9 计量单位 A 10 10 规格 A 10 11 缺货单编号 A 10 14 12 进货单编号 A 10 13 合同号 A 10 14 供应商 A 20 表 313 药品信息表 序号 字段名 类型 长度 1 药品代码 A 20 2 药品名称 A 20 3 药品分类 A 20 4 制造商 A 30 5 生产时期 A 20 6 有效期 A 4 7 进货单价 $ 8 销售员 A 10 9 生产地址 A 30 10 联系电话 A 13 11 传真 A 13 表 34 销售情况表 序号 字段名 类型 长度 1 销售日期 A 20 2 药品名称 A 20 3 药品代码 A 20 4 销售数量 N 5 销售单价 $ 6 销售金额 $ 表 35 不合格药品表 15 序号 字段名 类型 长度 1 日期 D 2 药品名称 A 20 3 药品代码 A 10 4 数量 N 5 规格 A 10 6 生产日期 D 7 生产批次 A 10 8 不合格状况 A 10 9 处理措施 A 20 10 管理员 A 10 11 供货商 A 20 12 备注 A 50 表 36 员工信息表 序号 字段名 类型 长度 1 员工编号 A 10 2 姓名 A 10 3 性别 S 4 年龄 A 10 5 住址 A 20 6 职位 A 10 7 联系电话 A 20 16 表 37 库 存盘存表 序号 字段 名 类型 长度 1 药品代码 A 20 2 药品名称 A 20 3 库存量 N 4 进货单价 $ 5 库存金额 $ 代码设计 unit ENTERUnit。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg。 type TForm1 = class(TForm) Image1: TImage。 Image2: TImage。 Image3: TImage。 Label1: TLabel。 Image4: TImage。 procedure Image3Click(Sender: TObject)。 procedure Image2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } 17 end。 var Form1: TForm1。 implementation uses MainUnit。 {$R *.dfm} procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 begin。 end。 end. unit YPJHUnit。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids。 18 type TForm4 = class(TForm) Label1: TLabel。 GroupBox1: TGroupBox。 Table1: TTable。 DataSource1: TDataSource。 Table1BDEDesigner: TStringField。 Table1BDEDesigner2: TStringField。 Table1BDEDesigner3: TStringField。 Table1BDEDesigner4: TFloatField。 Table1BDEDesigner5: TCurrencyField。 Table1BDEDesigner6: TCurrencyField。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 DBEdit1: TDBEdit。 DBEdit2: TDBEdit。 DBEdit3: TDBEdit。 DBEdit4: TDBEdit。 DBEdit5: TDBEdit。 DBEdit6: TDBEdit。 SpeedButton1: TSpeedButton。 SpeedButton2: TSpeedButton。 Image1: TImage。 GroupBox2: TGroupBox。 DBGrid1: TDBGrid。 DBNavigator1: TDBNavigator。 procedure SpeedButton1Click(Sender: TObject)。 procedure SpeedButton2Click(Sender: TObject)。 private { Private declarations } 19 public { Public declarations } end。 var F。