管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告-小型藥店藥品進(jìn)銷存管理系統(tǒng)(參考版)
2024-12-19 21:04本頁面
【正文】 總之， 通過這次課程設(shè) 計(jì)，學(xué)到很多知識(shí)，并鞏固了以前學(xué)習(xí)的關(guān)于信息系統(tǒng)分析設(shè)計(jì)和 delphi 的知識(shí)，使我們對(duì)于一個(gè)系統(tǒng)的設(shè)計(jì)與開發(fā)有了切身的感受和深刻的理解 。我們只能再將以前的數(shù)據(jù)庫課本翻出來查找有關(guān)知識(shí)，比如數(shù)據(jù)類型有什么，是怎樣定義的等等。我們終于有了一點(diǎn)自信繼續(xù)做下去了。當(dāng)然在這過程中，我們是獲益匪淺的。 對(duì)于 盧亮 來說，設(shè)計(jì)這個(gè)課題時(shí) 比較難 的部分是數(shù)據(jù)字典的設(shè)計(jì)。總感覺課上學(xué)的東西都沒用上，到真的繪制實(shí)際企業(yè)的業(yè)務(wù)流程時(shí)，無從下手。 我們不僅對(duì)企業(yè)做了很多調(diào)查，還上網(wǎng)搜尋了很多關(guān)于藥品進(jìn)銷存系統(tǒng)的案例和有關(guān)專業(yè)知識(shí)，以加強(qiáng)我們的理解，便于我們進(jìn)行分析和設(shè)計(jì)。 End。)。 if then Showmessage(39。).Asstring:=。 FieldByname(39。 Open。 begin With Table1 do begin Indexname:=39。 end。 procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 27 begin 。 end。 implementation {$R *.dfm} procedure (Sender: TObject)。 private { Private declarations } public { Public declarations } end。 procedure SpeedButton5Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 Table1BDEDesigner11: TStringField。 Table1BDEDesigner9: TStringField。 Table1BDEDesigner7: TCurrencyField。 Table1BDEDesigner5: TStringField。 Table1BDEDesigner3: TStringField。 26 Table1BDEDesigner: TStringField。 SpeedButton5: TSpeedButton。 SpeedButton3: TSpeedButton。 Edit1: TEdit。 DBEdit10: TDBEdit。 DBEdit8: TDBEdit。 DBEdit6: TDBEdit。 DBEdit4: TDBEdit。 DBEdit2: TDBEdit。 Label12: TLabel。 Label10: TLabel。 Label8: TLabel。 Label6: TLabel。 Label4: TLabel。 Label2: TLabel。 Label14: TLabel。 SpeedButton1: TSpeedButton。 type 25 TForm3 = class(TForm) Label1: TLabel。 end. unit YPXXUnit。 end。yyyy 年 mm 月 dd 日 hh:mm:ss 39。 procedure (Sender: TObject)。 。 STR(r1*r2,S3)。 Val(S1,R1,CODE1)。 s1:=。 s3:string。 s1:string。 Code1:Integer。 VAR R1:real。 end。 implementation {$R *.dfm} procedure (Sender: TObject)。 private { Private declarations } public { Public declarations } end。 procedure SpeedButton2Click(Sender: TObject)。 Timer1: TTimer。 SpeedButton3: TSpeedButton。 SpeedButton1: TSpeedButton。 23 DBEdit5: TDBEdit。 DBEdit3: TDBEdit。 DBEdit1: TDBEdit。 Label7: TLabel。 Label5: TLabel。 Label3: TLabel。 Table1BDEDesigner5: TCurrencyField。 Table1BDEDesigner3: TStringField。 Table1BDEDesigner: TStringField。 DBGrid1: TDBGrid。 DataSource1: TDataSource。 Label2: TLabel。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, DBTables, Buttons, Mask, DBCtrls, ComCtrls, ExtCtrls。 var Form6: TForm6。 DataSource4: TDataSource。 SpeedButton3: TSpeedButton。 SpeedButton1: TSpeedButton。 Edit6: TEdit。 Edit4: TEdit。 Table3BDEDesigner4: TCurrencyField。 Table3BDEDesigner2: TStringField。 Edit3: TEdit。 Edit1: TEdit。 Label7: TLabel。 Label5: TLabel。 Label3: TLabel。 DBGrid3: TDBGrid。 Table3: TTable。 DataSource2: TDataSource。 DBGrid1: TDBGrid。 GroupBox2: TGroupBox。 Table1: TTable。 type TForm6 = class(TForm) Label1: TLabel。 20 end. unit YPKCUnit。 。 STR(r1*r2,S3)。 Val(S1,R1,CODE1)。 s1:=。 s3:string。 s1:string。 Code1:Integer。 VAR R1:real。 end。 implementation {$R *.dfm} procedure (Sender: TObject)。 private { Private declarations } 19 public { Public declarations } end。 procedure SpeedButton1Click(Sender: TObject)。 DBGrid1: TDBGrid。 Image1: TImage。 SpeedButton1: TSpeedButton。 DBEdit5: TDBEdit。 DBEdit3: TDBEdit。 DBEdit1: TDBEdit。 Label6: TLabel。 Label4: TLabel。 Label2: TLabel。 Table1BDEDesigner5: TCurrencyField。 Table1BDEDesigner3: TStringField。 Table1BDEDesigner: TStringField。 Table1: TTable。 18 type TForm4 = class(TForm) L
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1