軟件課程設(shè)計(jì)報(bào)告---企業(yè)采購(gòu)管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁(yè)數(shù)：67 大?。?.92MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

軟件課程設(shè)計(jì)報(bào)告---企業(yè)采購(gòu)管理系統(tǒng)_第1頁(yè)

已閱讀1頁(yè)，還剩66頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　課程設(shè)計(jì)說(shuō)明書(shū)　　日期：2011年 9月　　目錄　　第一章概述 ············&

2、#183;·······························3

3、 　　1.1項(xiàng)目背景 ·····························&

4、#183;···················3　　1.2編寫(xiě)意義 ···········

5、83;····································&

6、#183;3　　1.3軟件定義 ······························

7、83;··················3　　1.4開(kāi)發(fā)環(huán)境 ·············

8、;····································3&l

9、t;/p>　　第二章需求分析································

10、;·········4　　2.1問(wèn)題的提出 ······················

11、·························4　　2.2系統(tǒng)的業(yè)務(wù)功能分析 ·····

12、83;·································4<p&

13、gt;　　2.3系統(tǒng)需要完成的功能 ·································

14、3;·····4　　2.4系統(tǒng)的業(yè)務(wù)流程分析 ·························&

15、#183;·············5　　2,5數(shù)據(jù)流圖 ·················

16、83;·······························7　　2.6數(shù)據(jù)字典

17、 ····································

18、83;············8　　第三章系統(tǒng)設(shè)計(jì)···················

19、;······················9　　3.1數(shù)據(jù)表 ·········&

20、#183;····································

21、;····9　　3.2數(shù)據(jù)庫(kù)的關(guān)系模式··························

22、3;···············13　　3.3表的設(shè)計(jì)················

23、··································13&l

24、t;p>　　3.3軟件功能表··································

25、;··············15　　第四章系統(tǒng)實(shí)施·················

26、························16　　4.1系統(tǒng)登錄界面 ·······

27、;····································

28、83;·16　　4.2商品信息匯總界面·····························&

29、#183;············25　　4.3采購(gòu)界面 ··················&#

30、183;······························28　　4.4訂購(gòu)信息界面 &

31、#183;····································

32、;········40　　4.5銷(xiāo)售界面·······················&

33、#183;··························42　　4.6客戶訂購(gòu)界面 ····

34、····································

35、3;····48　　第五章系統(tǒng)測(cè)試···························

36、;··············56　　5.1 給出單元測(cè)試的測(cè)試用例 ···············

37、3;···················56　　5.2 給出系統(tǒng)測(cè)試的測(cè)試用例 ··········

38、83;························58　　第六章收獲體會(huì)······

39、3;··································62

40、　　第七章參考文獻(xiàn)·································

41、83;·······64　　概述　　項(xiàng)目背景：　　采購(gòu)是企業(yè)物資供應(yīng)部門(mén)按已確定的物資供應(yīng)計(jì)劃，通過(guò)市場(chǎng)采購(gòu)、加工訂制等各種渠道，取得企業(yè)生產(chǎn)經(jīng)營(yíng)活動(dòng)所需要的各種物資的

42、經(jīng)濟(jì)活動(dòng)。無(wú)論是工業(yè)企業(yè)還是商業(yè)企業(yè)，“采購(gòu)”業(yè)務(wù)的狀況都會(huì)影響到企業(yè)的整體運(yùn)營(yíng)狀況。在日臻完善的現(xiàn)代經(jīng)營(yíng)管理模式中，公司管理者越來(lái)越重視財(cái)務(wù)管理和財(cái)務(wù)運(yùn)作的有效性。　　以往企業(yè)的采購(gòu)采用的是紙質(zhì)文件傳輸，這樣勢(shì)必造成采購(gòu)流程時(shí)間的拉長(zhǎng)和對(duì)采購(gòu)流程監(jiān)控不及時(shí)的問(wèn)題存在，而這些問(wèn)題隨著企業(yè)規(guī)模不斷的擴(kuò)大，以及產(chǎn)能的提高，將不可避免的制約企業(yè)發(fā)展的速度，因此電子商務(wù)的出現(xiàn)為解決這一問(wèn)題提供了途徑。&

43、lt;/p>　　編寫(xiě)目的：　　1）實(shí)用意義：材料采購(gòu)成本在企業(yè)經(jīng)營(yíng)中占了很大比重，且在很多的行業(yè)中均有上升趨勢(shì)；降低原材料成本是增加利潤(rùn)的基本途徑。因此，建立和實(shí)施制度化的采購(gòu)管理程序，是采購(gòu)管理者工作有效進(jìn)行的根本保證。該程序的針對(duì)性和實(shí)用性都比較強(qiáng)。　　2）鍛煉意義：作為網(wǎng)絡(luò)工程專(zhuān)業(yè)的

44、學(xué)生，設(shè)計(jì)與編碼的基本功夯實(shí)打牢，通過(guò)這次軟件課程設(shè)計(jì)，夯實(shí)基礎(chǔ)，發(fā)現(xiàn)問(wèn)題，提高能力并且養(yǎng)成求是作風(fēng)，會(huì)讓我們受益良多。　　軟件定義：　　按照企業(yè)實(shí)際運(yùn)營(yíng)模式來(lái)設(shè)計(jì)一套企業(yè)采購(gòu)管理系統(tǒng)。使這套系統(tǒng)能夠高效完成現(xiàn)代生產(chǎn)型企業(yè)采購(gòu)流程的需求。做到數(shù)據(jù)安全、穩(wěn)定性強(qiáng)、功能清晰。實(shí)現(xiàn)的功能主要圍繞在采購(gòu)過(guò)程中所發(fā)生的訂貨、進(jìn)

45、貨、付款、退貨等行為創(chuàng)建訂單、進(jìn)貨單、退貨單等。使之運(yùn)用到企業(yè)的采購(gòu)流程中去，提高采購(gòu)流程效率，解決傳統(tǒng)采購(gòu)中諸如查詢難，監(jiān)管不力等問(wèn)題。　　開(kāi)發(fā)環(huán)境：　　Windows7　　sql server2008 <

46、p>　　delphi7　　需求分析　　1、問(wèn)題的提出：　　現(xiàn)在我國(guó)大多數(shù)企業(yè)都已經(jīng)在使用采購(gòu)管理系統(tǒng)進(jìn)行采購(gòu)，他們?cè)谑褂弥蠖挤从痴f(shuō)，通過(guò)企業(yè)采購(gòu)管理系統(tǒng)能夠提高貨品的周轉(zhuǎn)速度，縮減企業(yè)的生產(chǎn)周

47、期，提高員工的工作效率，增加企業(yè)的利潤(rùn)。我們?cè)囍鴮⒃撓到y(tǒng)中需要實(shí)現(xiàn)的各個(gè)功能一一體現(xiàn)在本次軟件課程設(shè)計(jì)作品中。　　2、系統(tǒng)的業(yè)務(wù)功能分析：　　企業(yè)為了滿足生產(chǎn)所需和提高生產(chǎn)效率，開(kāi)發(fā)企業(yè)采購(gòu)管理系統(tǒng)。系統(tǒng)要求易于操作，有良好的互動(dòng)性，能為使用者的工作帶來(lái)便利。　　一個(gè)全面的綜合管理系統(tǒng)需要在客觀現(xiàn)實(shí)的基礎(chǔ)上實(shí)現(xiàn)盡

48、可能多的功能。根據(jù)現(xiàn)階段我們了解的企業(yè)需求，可以將系統(tǒng)分為以下幾個(gè)基本功能。　　3、需完成的功能：　　商品采購(gòu)信息管理功能　　1）商品采購(gòu)的基本信息記錄，查詢記錄的相關(guān)條目；　　2）實(shí)現(xiàn)商品采購(gòu)的新增，刪除，提交信息功能；</p

49、>　　3）根據(jù)需要選擇更新制造商和商品信息。　　客戶訂購(gòu)信息管理功能　　客戶訂貨信息記錄（含訂貨單、客戶編號(hào)、商品編號(hào)、訂購(gòu)數(shù)目、訂貨日期以及是否出貨）；　　2）實(shí)現(xiàn)多條件查詢功能（可根據(jù)訂單號(hào)、客戶編號(hào)、訂貨日期查詢訂貨信息）；　　3）根據(jù)需

50、要顯示清空與查詢記錄；　　商品信息匯總功能　　商品記錄與顯示功能，商品信息匯總顯示列表功能；　　實(shí)現(xiàn)多條件查詢功能（可根據(jù)商品編號(hào)、種類(lèi)、名稱(chēng)、產(chǎn)地、制造商查詢商品信息）；　　商品銷(xiāo)售管理功能&l

51、t;/p>　　商品銷(xiāo)售信息記錄功能，查詢記錄相關(guān)條目；　　實(shí)現(xiàn)銷(xiāo)售的新增記錄，刪除，提交等功能；　　客戶訂購(gòu)專(zhuān)用通道功能　　1）實(shí)現(xiàn)商品信息的查看、訂購(gòu)、打印報(bào)表功能；　　2）實(shí)現(xiàn)按條件查詢功能（通過(guò)訂單號(hào)、商品編號(hào)、時(shí)間段查詢商品訂購(gòu)信息）；

52、　　4、系統(tǒng)的業(yè)務(wù)流程分析：　　5、數(shù)據(jù)流圖　　六、數(shù)據(jù)字典　　三、系統(tǒng)設(shè)計(jì)　　1、數(shù)據(jù)表：<

53、;/b>　　(1) E-R圖　　User實(shí)體　　Product實(shí)體　　Inrecord實(shí)體　　Outrecor

54、d實(shí)體　　Bookrecord實(shí)體　　Producer實(shí)體　　2、數(shù)據(jù)庫(kù)的關(guān)系模式：　　User(userID,password,username,userphone,usertype)　　Product(productID,pr

55、oductname,producttype,producerID,inprice,outprice,total)　　Outrecord(outID,bookID,customerID,outnumber,outuserID,productID,date)　　Inrecord(inID,innumber,producerID,inuserID,produc

56、tID,data)　　Bookrecord(bookID,booknumber,customerID,productID,date,Is_sale)　　Producer(producerID,producername,producerphone,address,range)　　3、表的設(shè)計(jì)<

57、;/b>　　User表　　Product表　　Producer表　　Outrecord表

58、Inrecord表　　Bookrecord表　　4、軟件功能表　　四、系統(tǒng)實(shí)施　　系統(tǒng)登錄界面&

59、lt;b>　　★歡迎界面　　主要代碼事件：　　procedure Tform15.Timer1Timer(Sender: TObject);　　begin　　Timer1

60、.Enabled :=false;　　Close;　　end;　　procedure Tform15.FormShow(Sender: TObject);　　begin</

61、b>　　SetWindowPOS(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);　　end;　　procedure Tform15.Timer2Timer(Sender: TObject);

62、;　　begin　　if Label1.Left + Label1.Width > 0 then　　Label1.Left :=Label1.Left - 50　　else<p&

63、gt;　　Label1.Left :=Label1.Width + 350;　　end;　　★啟動(dòng)主界面　　★點(diǎn)擊啟動(dòng)界面中“登錄”按鈕之后，便可進(jìn)入下面登錄界面：　　主要代碼事

64、件：　　●“登錄”代碼部分　　procedure TForm2.SpeedButton1Click(Sender: TObject);　　begin　　if (ComboBox

65、1.Text = '') or (Edit1.Text = '') or (Edit2.Text = '') or　　(Edit1.Text = '請(qǐng)輸入') or (Edit2.Text = '****')or(ComboBox1.Text = '--請(qǐng)選擇--') then

66、　　begin　　showmessage('請(qǐng)輸入完整信息!');　　exit;　　end;　　ADOQuery1.Clos

67、e;　　ADOQuery1.SQL.Text :=　　'select password from Userinfo where usertype=' + quotedstr　　(trim(ComboBox1.Text)) + ' and userID=' + quotedstr(t

68、rim(Edit1.Text));　　ADOQuery1.Open;　　if trim(Edit2.Text) = trim(ADOQuery1.fieldbyname('password').AsString) then　　begin

69、　　showmessage('登陸成功');　　if trim(ComboBox1.Text) = '管理員' then　　begin　　form1.speedbutton3.Enabled := true;

70、;　　form1.speedbutton4.Enabled := true;　　form1.speedbutton5.Enabled := true;　　form1.speedbutton6.Enabled := true;　　form1.SpeedButton3.Visible := tr

71、ue;　　form1.SpeedButton4.Visible := true;　　form1.SpeedButton5.Visible := true;　　form1.SpeedButton6.Visible := true;　　customername:=trim(e

72、dit1.Text);　　inuser:=trim(edit1.Text);　　outuser:=trim(edit1.Text);　　Close;　　end;<p&

73、gt;　　if trim(ComboBox1.Text) = '采購(gòu)員' then　　begin　　form1.speedbutton3.Enabled := true;　　form1.speedbutton6.Enabled := true;</p&g

74、t;　　form1.speedbutton4.Enabled := false;　　form1.speedbutton5.Enabled := true;　　form1.SpeedButton3.Visible := true;　　form1.SpeedButton5.Visible :=

75、true;　　form1.SpeedButton6.Visible := true;　　customername:=trim(edit1.Text);　　inuser:=trim(edit1.Text);　　Close;</p&

76、gt;　　end;　　if trim(ComboBox1.Text) = '銷(xiāo)售員' then　　begin　　form1.speedbutton4.Enabled := true;

77、;　　form1.speedbutton6.Enabled := true;　　form1.speedbutton3.Enabled := false;　　form1.speedbutton5.Enabled := true;　　form1.SpeedButton4.Visible := t

78、rue;　　form1.SpeedButton5.Visible := true;　　form1.SpeedButton6.Visible := true;　　customername:=trim(edit1.Text);　　outuser:=trim(edit1.Tex

79、t);　　Close;　　end;　　if trim(ComboBox1.Text) = '客戶' then　　begin

80、　　form1.speedbutton4.Enabled := false;　　form1.speedbutton6.Enabled := false;　　form1.speedbutton3.Enabled := false;　　form1.speedbutton5.Enabled :=

81、false;　　form1.speedbutton8.Enabled := true;　　form1.SpeedButton8.Visible := true;　　customername:=trim(edit1.Text);　　Close;</b

82、>　　end;　　form1.speedbutton1.Enabled := false;　　form1.speedbutton7.Enabled := true;　　form1.SpeedButton1.Visible:=fa

83、lse;　　form1.SpeedButton7.Visible:=true;　　ComboBox1.Text := '--請(qǐng)選擇--';　　Edit1.Text := '請(qǐng)輸入';　　Edit2.Text := '****'

84、;;　　ComboBox1.SetFocus;　　end　　else　　begin　　showmessage(

85、9;登陸失敗，請(qǐng)重新登陸!');　　ComboBox1.Text := '--請(qǐng)選擇--';　　Edit1.Text := '請(qǐng)輸入';　　Edit2.Text := '****';　　ComboBox1.SetFo

86、cus;　　end;　　end;　　●“重置”代碼部分　　procedure TForm2.SpeedButton2Click(Sender: TObject

87、);　　begin　　ComboBox1.Text := '--請(qǐng)選擇--';　　Edit1.Text := '請(qǐng)輸入';　　Edit2.Text := '****';

88、;　　ComboBox1.SetFocus;　　end;　　●“返回”代碼部分　　procedure TForm2.SpeedButton3Click(Sender: TObject);<

89、;p>　　begin　　ComboBox1.Text := '--請(qǐng)選擇--';　　Edit1.Text := '請(qǐng)輸入';　　Edit2.Text := '****';　　Com

90、boBox1.SetFocus;　　Close;　　end;　　procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);<p

91、>　　begin　　ComboBox1.Text := '--請(qǐng)選擇--';　　Edit1.Text := '請(qǐng)輸入';　　Edit2.Text := '****';　　Combo

92、Box1.SetFocus;　　end;　　end.　　★新用戶注冊(cè)界面　　主要代碼事件<

93、p>　　●“注冊(cè)”部分　　procedure TForm8.SpeedButton1Click(Sender: TObject);　　begin　　if (Edit1.Text = '') or (Edit2.Tex

94、t = '') or (Edit3.Text = '') or　　(Edit2.Text = '請(qǐng)輸入') or (Edit4.Text = '') or (Edit4.Text = '****') or　　(Edit5.Text = '') or (Comb

95、oBox1.Text = '') or (ComboBox1.Text = '--請(qǐng)選擇--')　　then　　begin　　showmessage('為方便公司管理，請(qǐng)輸入完整的信息!')

96、;　　exit;　　end;　　if (Edit4.Text <> Edit5.Text) then　　begin<

97、p>　　showmessage('兩次密碼輸入不一致!');　　Edit5.Clear;　　Edit5.SetFocus;　　exit;　　end;&

98、lt;p>　　with form2.ADOQuery1 do　　begin　　close;　　sql.Text := 'select * from Userinfo';<

99、;b>　　open;　　insert;　　fieldbyname('usertype').AsString := trim(ComboBox1.Text);　　fieldbyname('userID').AsStrin

100、g := trim(Edit1.Text);　　fieldbyname('username').AsString := trim(Edit2.Text);　　fieldbyname('userphone').AsString := trim(Edit3.Text);　　fieldb

101、yname('password').AsString := trim(Edit4.Text);　　post;　　end;　　showmessage('注冊(cè)新用戶成功,請(qǐng)重新登錄');

102、　　close;　　end;　　★更改密碼界面　　主要代碼事件　　●“確認(rèn)”部分&l

103、t;/b>　　procedure TForm9.SpeedButton1Click(Sender: TObject);　　begin　　if (combobox1.Text='')or (combobox1.Text='--請(qǐng)選擇--')

104、or (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit2.Text='****')or(edit3.Text='****')or(edit4.Text='') then　　begin

105、;　　showmessage('請(qǐng)輸入完整信息');　　exit;　　end;　　if edit3.Text<>edit4.Text then&l

106、t;b>　　begin　　showmessage('新密碼輸入不一致，請(qǐng)重新輸入!');　　edit3.Clear;　　edit4.Clear;　　exit;<p

107、>　　end;　　form2.adoquery1.Close;　　form2.adoquery1.SQL.Text:='select password from Userinfo where usertype='+quotedstr(trim(combobox1.Text))+' and

108、 userID='+quotedstr(trim(edit1.Text));　　form2.adoquery1.Open;　　if trim(edit2.Text)=trim(form2.adoquery1.fieldbyname('password').AsString) then<

109、;b>　　begin　　form2.ADOQuery1.Edit;　　form2.ADOQuery1.FieldByName('password').AsString:=trim(edit3.Text);　　form2.ADOQuery1.Post;

110、　　showmessage('修改密碼成功!');　　close;　　end　　else　　begin&

111、lt;/b>　　showmessage('用戶原信息不正確，請(qǐng)重新輸入');　　combobox1.Text:='--請(qǐng)選擇--';　　edit1.Clear;　　edit2.Clear;

112、edit3.Clear;　　edit4.Clear;　　combobox1.SetFocus;　　end;　　end;　　★選擇用戶類(lèi)型，登錄成功后，進(jìn)入

113、下面界面　　右側(cè)為系統(tǒng)實(shí)現(xiàn)的四個(gè)主要功能，它們分別是采購(gòu)、客戶訂購(gòu)信息、商品信息匯總、銷(xiāo)售。　　當(dāng)采用不同身份登錄時(shí)，右側(cè)顯示的功能各不相同。其中，管理員四種功能均可見(jiàn)（如上），銷(xiāo)售功能對(duì)采購(gòu)員不顯示，采購(gòu)功能對(duì)銷(xiāo)售員不顯示，客戶登錄后只顯示歡迎訂購(gòu)界面。　　商品信息匯總界面

114、　　★商品信息記錄與查詢子系統(tǒng)的主界面　　主要事件代碼：　　procedure TForm3.SpeedButton1Click(Sender: TObject);　　begin

115、;　　adoquery1.First;　　end;　　procedure TForm3.SpeedButton2Click(Sender: TObject);　　begin

116、　adoquery1.prior;　　end;　　procedure TForm3.SpeedButton3Click(Sender: TObject);　　begin　　adoquery1.Ne

117、xt;　　end;　　procedure TForm3.SpeedButton4Click(Sender: TObject);　　begin　　adoquery1.Last;

118、　　end;　　procedure TForm3.SpeedButton6Click(Sender: TObject);　　begin　　form3.Hide;　　form10

119、.show;　　end;　　procedure TForm3.SpeedButton7Click(Sender: TObject);　　begin　　Close;</b&g

120、t;　　end;　　procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);　　begin　　form1.Sho

121、w;　　end;　　★商品信息查詢功能的子界面　　主要代碼事件　　procedure TForm10.SpeedButton1Click(Sender: TObject);

122、　　begin　　checkbox1.Checked:=false;　　checkbox2.Checked:=false;　　checkbox3.Checked:=false;　　checkbox4.Checked:

123、=false;　　checkbox5.Checked:=false;　　adoquery1.Close;　　adoquery1.SQL.Text:='select * from Product,Producer where Product.producerID=Producer.producerID

124、9;;　　adoquery1.Open;　　end;　　procedure TForm10.SpeedButton2Click(Sender: TObject);　　var

125、　　TotalSqlStr:string;　　count : integer;　　begin　　TotalSqlStr:='select * from Product,Producer where Product.producerID=Produce

126、r.producerID';　　SqlStr[3]:='producttype='+quotedstr(combobox1.Text);　　SqlStr[4]:='producername='+quotedstr(combobox2.Text);　　SqlStr[5]:=&

127、#39;address='+quotedstr(combobox3.Text);　　SqlStr[1]:='productID='+quotedstr(edit1.Text);　　SqlStr[2]:='productname='+quotedstr(edit2.Text);

128、;　　for count:=1 to 5 do　　begin　　if status[count]=true　　then　　totalsqlstr:=totalsqlstr+' and &#

129、39; + SqlStr[count] ;　　end;　　adoquery1.Close;　　adoquery1.SQL.Text:=totalsqlstr;　　adoquery1.Open;

130、　　end;　　procedure TForm10.SpeedButton3Click(Sender: TObject);　　begin　　close;<

131、;b>　　end;　　end.　　采購(gòu)界面　　★商品采購(gòu)信息管理的主界面　　主要代碼事件：

132、　　procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);　　begin　　form1.Show;　　end;

133、　　procedure TForm4.SpeedButton1Click(Sender: TObject);　　begin　　DBEdit1.Enabled:=true;　　DBEdit2.Enabled:=true;　　DBEdit

134、3.Enabled:=true;　　DBEdit4.Enabled:=true;　　DBEdit1.SetFocus;　　form12.showmodal;　　DBEdit5.Text := FormatDateTime('yyyy-mm-dd',now)

135、;　　DBEdit6.Text := inuser;　　DBEdit1.Enabled:=true;　　DBEdit2.Enabled:=true;　　DBEdit3.Enabled:=true;　　DBEdit4.Enabled

136、:=true;　　DBEdit5.Enabled := false;　　DBEdit6.Enabled := false;　　DBEdit1.SetFocus;　　end;　　procedur

137、e TForm4.SpeedButton2Click(Sender: TObject);　　var　　return: integer;　　begin　　return := MessageDlg(&

138、#39;確定要?jiǎng)h除記錄嗎？', mtWarning, [mbYes, mbNo], 0);　　if return = 6 then　　begin　　if (inuser<>trim(DBEdit6.Text)) and (inuser<>tri

139、m(adoquery1.fieldbyname('inuserID').AsString)) and (inuser<>'boss1') and (inuser<>'boss2') then　　begin　　showmessage('無(wú)權(quán)

140、刪除該條記錄！');　　end　　else　　if ADOQuery1.Eof then　　application.MessageBox('當(dāng)前已無(wú)記錄可刪除！',

141、9;錯(cuò)誤', 0)　　else　　ADOQuery1.Delete;　　end　　end;　　procedu

142、re TForm4.SpeedButton3Click(Sender: TObject);　　begin　　if (ADOQuery1.State = dsedit) or (ADOQuery1.State = dsinsert) then　　begin&l

143、t;/b>　　if (DBEdit1.Text = '') or (DBEdit2.Text = '') or (DBEdit3.Text = '') or　　(DBEdit4.Text = '') or (DBEdit5.Text = '') or (DBEdit6.

144、Text = '') then　　begin　　showmessage('請(qǐng)輸入完整信息!');　　exit;　　end;&l

145、t;/p>　　ADOQuery1.Post;　　adoquery2.Close;　　adoquery2.Parameters[0].Value:=dbedit2.Text;　　adoquery2.Open;　　if adoquery2.Reco

146、rdCount=0 then　　begin　　showmessage('商品編號(hào)出錯(cuò)！請(qǐng)重新輸入');　　dbedit1.SetFocus;　　exit;&

147、lt;p>　　end;　　adoquery2.Edit;　　adoquery2['total']:= adoquery2['total']+dbedit3.Text;　　adoquery2.Post;<p&g

148、t;　　form3.adoquery1.Refresh;　　showmessage('保存成功!');　　end　　else　　showmessage('當(dāng)前沒(méi)有信息可以保

149、存!');　　end;　　procedure TForm4.SpeedButton4Click(Sender: TObject);　　begin　　close;</

150、b>　　end;　　procedure TForm4.SpeedButton5Click(Sender: TObject);　　begin　　ADOQuery1.First;</p&g

151、t;　　end;　　procedure TForm4.SpeedButton6Click(Sender: TObject);　　begin　　ADOQuery1.Prior;

152、　　end;　　procedure TForm4.SpeedButton7Click(Sender: TObject);　　begin　　ADOQuery1.Next;　　end

153、;　　procedure TForm4.SpeedButton8Click(Sender: TObject);　　begin　　ADOQuery1.Last;　　end;<

154、;/p>　　procedure TForm4.FormCreate(Sender: TObject);　　begin　　DBEdit1.Field.Alignment := taLeftJustify;　　DBEdit2.Field.Alignme

155、nt := taLeftJustify;　　DBEdit3.Field.Alignment := taLeftJustify;　　DBEdit4.Field.Alignment := taLeftJustify;　　DBEdit5.Field.Alignment := taLeftJustify;</p&g

156、t;　　DBEdit6.Field.Alignment := taLeftJustify;　　end;　　procedure TForm4.ADOQuery1BeforePost(DataSet: TDataSet);　　begin&l

157、t;/b>　　if adoquery1.Fields[0].IsNull or adoquery1.Fields[1].IsNull or adoquery1.Fields[2].IsNull or adoquery1.Fields[3].IsNull or adoquery1.Fields[4].IsNull or adoquery1.Fields[5].IsNull

158、then　　begin　　showmessage('請(qǐng)輸入完整信息');　　abort;　　end;

159、　　if (adoquery1.State=dsinsert) then　　begin　　adoquery4.Close;　　adoquery4.Parameters[0].Value:=dbedit4.Text;　　adoquery

160、4.Parameters[1].Value:=dbedit2.Text;　　adoquery4.Open;　　if (adoquery4.RecordCount=0) then　　begin　　showmessage('該制造

161、商未生產(chǎn)此商品！');　　abort;　　end;　　with adoquery3 do　　begin<

162、;b>　　close;　　sql.Text:='select * from Inrecord where inID='+DBEdit1.Text;　　open;　　if adoquery3.RecordCount>0 then&

163、lt;/p>　　begin　　showmessage('采購(gòu)單已存在！請(qǐng)檢查采購(gòu)單編號(hào)');　　abort;　　end;<p&

164、gt;　　end;　　end;　　end;　　procedure TForm4.ADOQuery1AfterScroll(DataSet: TDataSet);

165、;　　begin　　if (inuser<>trim(adoquery1.fieldbyname('inuserID').AsString)) and (inuser<>'boss1') and (inuser<>'boss2') then<p&

眾賞文庫(kù)> 全部分類(lèi)> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

軟件課程設(shè)計(jì)報(bào)告---企業(yè)采購(gòu)管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

軟件課程設(shè)計(jì)報(bào)告---企業(yè)采購(gòu)管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載