管理信息系統(tǒng)課程設(shè)計報告-小型藥店藥品進銷存管理系統(tǒng)(編輯修改稿)
2025-01-20 21:04 本頁面
【文章內(nèi)容簡介】 藥品名稱 A 20 3 藥品代碼 A 20 4 進貨數(shù)量 N 5 進貨單價 $ 6 進貨金額 $ 7 采購人 A 10 8 驗收人 A 10 9 計量單位 A 10 10 規(guī)格 A 10 11 缺貨單編號 A 10 14 12 進貨單編號 A 10 13 合同號 A 10 14 供應(yīng)商 A 20 表 313 藥品信息表 序號 字段名 類型 長度 1 藥品代碼 A 20 2 藥品名稱 A 20 3 藥品分類 A 20 4 制造商 A 30 5 生產(chǎn)時期 A 20 6 有效期 A 4 7 進貨單價 $ 8 銷售員 A 10 9 生產(chǎn)地址 A 30 10 聯(lián)系電話 A 13 11 傳真 A 13 表 34 銷售情況表 序號 字段名 類型 長度 1 銷售日期 A 20 2 藥品名稱 A 20 3 藥品代碼 A 20 4 銷售數(shù)量 N 5 銷售單價 $ 6 銷售金額 $ 表 35 不合格藥品表 15 序號 字段名 類型 長度 1 日期 D 2 藥品名稱 A 20 3 藥品代碼 A 10 4 數(shù)量 N 5 規(guī)格 A 10 6 生產(chǎn)日期 D 7 生產(chǎn)批次 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 聯(lián)系電話 A 20 16 表 37 庫 存盤存表 序號 字段名 類型 長度 1 藥品代碼 A 20 2 藥品名稱 A 20 3 庫存量 N 4 進貨單價 $ 5 庫存金額 $ 代碼設(shè)計 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 Form4: TForm4。 implementation {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 VAR R1:real。 R2:real。 Code1:Integer。 Code2:Integer。 s1:string。 s2:string。 s3:string。 begin 。 s1:=。 S2:=。 Val(S1,R1,CODE1)。 Val(s2,R2,CODE2)。 STR(r1*r2,S3)。 :=S3。 。 end。 20 end. unit YPKCUnit。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, Grids, DBGrids, DBTables, Buttons。 type TForm6 = class(TForm) Label1: TLabel。 GroupBox1: TGroupBox。 Table1: TTable。 DataSource1: TDataSource。 GroupBox2: TGroupBox。 GroupBox3: TGroupBox。 DBGrid1: TDBGrid。 Table2: TTable。 DataSource2: TDataSource。 DBGrid2: TDBGrid。 Table3: TTable。 DataSource3: TDataSource。 DBGrid3: TDBGrid。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1