小型藥店藥品進(jìn)銷存管理系統(tǒng)(最新整理by阿拉蕾)-資料下載頁
2024-11-13 03:56本頁面
【導(dǎo)讀】肁蒈蒈羈羇蕆薀螄芆蕆螞羀膂蒆螅螂肈薅蒄羈羄薄薇螁芃薃蠆羆艿薂袁蝿膅薁薁肄肁膈蚃袇羆膇螆肅芅膆蒅袆膁膅薈肁肇芅蝕襖羃芄螂蚇莂芃薂袂羋節(jié)蚄螅膄芁螆羀肀芀蒆螃羆艿薈罿芄荿蟻螂膀莈螃羇肆莇蒃螀莆蚅羅羈蒞螇?mèng)缕P莄蕆肄膃莃蕿袆聿莃螞肂羅蒂螄裊芃蒁蒃蚈腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蕆螞羀膂蒆螅螂肈薅蒄羈羄薄薇螁芃薃蠆羆艿薂袁蝿膅薁薁肄肁膈蚃袇羆膇螆肅芅膆蒅袆膁膅薈肁肇芅蝕襖羃芄螂蚇莂芃薂袂羋節(jié)蚄螅膄芁螆羀肀芀蒆螃羆艿薈罿芄荿蟻螂膀莈螃羇肆莇蒃螀莆蚅羅羈蒞螇?mèng)缕P莄蕆肄膃莃蕿袆聿莃螞肂羅蒂螄裊芃蒁蒃蚈腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蕆螞羀膂蒆螅螂肈薅蒄羈羄薄薇螁芃薃蠆羆艿薂袁蝿膅薁薁肄肁膈蚃袇羆膇螆肅芅膆蒅袆膁膅薈肁肇芅蝕襖羃芄螂蚇莂芃薂袂羋節(jié)蚄螅膄芁螆羀肀芀蒆螃羆艿薈罿芄荿蟻螂膀莈螃羇肆莇蒃螀莆蚅羅羈蒞螇?mèng)缕P莄蕆肄膃莃蕿袆聿莃螞肂羅蒂螄裊芃蒁蒃蚈腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蕆螞羀膂蒆螅螂肈薅蒄
【正文】 unit YPXXUnit。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, Buttons, DB, DBTables, ExtCtrls。 type 25 TForm3 = class(TForm) Label1: TLabel。 DataSource1: TDataSource。 SpeedButton1: TSpeedButton。 Label13: TLabel。 Label14: TLabel。 GroupBox1: TGroupBox。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Label9: TLabel。 Label10: TLabel。 Label11: TLabel。 Label12: TLabel。 DBEdit1: TDBEdit。 DBEdit2: TDBEdit。 DBEdit3: TDBEdit。 DBEdit4: TDBEdit。 DBEdit5: TDBEdit。 DBEdit6: TDBEdit。 DBEdit7: TDBEdit。 DBEdit8: TDBEdit。 DBEdit9: TDBEdit。 DBEdit10: TDBEdit。 DBEdit11: TDBEdit。 Edit1: TEdit。 SpeedButton2: TSpeedButton。 SpeedButton3: TSpeedButton。 SpeedButton4: TSpeedButton。 SpeedButton5: TSpeedButton。 Table1: TTable。 26 Table1BDEDesigner: TStringField。 Table1BDEDesigner2: TStringField。 Table1BDEDesigner3: TStringField。 Table1BDEDesigner4: TStringField。 Table1BDEDesigner5: TStringField。 Table1BDEDesigner6: TStringField。 Table1BDEDesigner7: TCurrencyField。 Table1BDEDesigner8: TStringField。 Table1BDEDesigner9: TStringField。 Table1BDEDesigner10: TStringField。 Table1BDEDesigner11: TStringField。 procedure SpeedButton2Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 procedure SpeedButton4Click(Sender: TObject)。 procedure SpeedButton5Click(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form3: TForm3。 implementation {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 27 begin 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 begin With Table1 do begin Indexname:=39。YPMC39。 Open。 SetKey。 FieldByname(39。藥品名稱 39。).Asstring:=。 GotoNearest。 if then Showmessage(39。沒有該藥品信息！ 39。)。 End。 End。 end. 28 輸入輸出設(shè)計(jì) 表 38 庫存統(tǒng)計(jì)表 （輸出） 庫存統(tǒng)計(jì) 日期 年 月 日 藥品代碼 藥品名稱 規(guī)格 現(xiàn)有庫存 出庫數(shù)目 業(yè)購藥人員 庫存管理員 ： 表 39 藥品缺貨單 （輸出） 藥品缺貨單 日期 年 月 日 編號(hào) No： 藥品代碼 藥品名稱 物料名稱 規(guī)格 供應(yīng)商 需求數(shù)量 需求時(shí)間 現(xiàn)有庫存 合同庫存 采購數(shù)量 采購價(jià) 預(yù)付款 29 購藥人員 （簽名） ： 店長(zhǎng)確認(rèn) : 表 310 藥品訂貨單 (輸入 ) 藥品訂貨單 訂貨單 日期 年 月 日 編號(hào) No： 單位名稱： 合同號(hào)： 地址： 電話： 序號(hào) 品名 規(guī)格 供貨價(jià) 備注： 訂貨人： 說明：僅用于訂貨； 表 311 藥品進(jìn)貨記錄單 （輸入） 藥 品 進(jìn) 貨 記 錄 單 日期 年 月 日 編號(hào) No： 備注： 藥品代碼 藥品名稱 計(jì)量單位 規(guī)格 數(shù)量 進(jìn)貨價(jià) 實(shí)際單價(jià) 供應(yīng)商 30
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1