2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩54頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

1、<p><b>  數(shù)據(jù)庫系統(tǒng)課程設(shè)計</b></p><p><b>  —— 貨存控制系統(tǒng)</b></p><p><b>  課程設(shè)計題目:</b></p><p>  貨存管理系統(tǒng) 一個公司希望為控制它的貨存建立一個數(shù)據(jù)庫,貨存中的產(chǎn)品被分為幾類,如服裝、食品和文具。當(dāng)產(chǎn)品需

2、要從供應(yīng)商那里重新訂購時,工作人員需要提出一個購買訂單。跟蹤記錄要提供買進、賣出的貨物以及其他的費用。</p><p>  實驗課程任務(wù)與要求目的與任務(wù):1.掌握數(shù)據(jù)庫設(shè)計和實現(xiàn)的基本過程2.掌握數(shù)據(jù)庫模式設(shè)計、分析和實現(xiàn)的方法3.了解數(shù)據(jù)庫應(yīng)用系統(tǒng)軟件開發(fā)的一般過程。</p><p><b>  實驗基本要求: </b></p>&

3、lt;p><b>  學(xué)習(xí)相關(guān)的預(yù)備知識</b></p><p>  按照數(shù)據(jù)庫設(shè)計與實現(xiàn)過程完成數(shù)據(jù)庫的設(shè)計,應(yīng)用程序的開發(fā),上機調(diào)試、運行</p><p><b>  寫出課程設(shè)計報告</b></p><p><b>  開發(fā)環(huán)境說明:</b></p><p>  處

4、理器:Intel Pentium 4 3.06以上</p><p><b>  內(nèi)存:256M以上</b></p><p>  硬盤空間:40G以上</p><p>  操作系統(tǒng):windows 2000 /XP/win7</p><p>  開發(fā)軟件:C++Builder 6.0</p><p>

5、;  數(shù)據(jù)庫:Microsoft SQL Service 2000</p><p><b>  二、功能需求分析:</b></p><p>  根據(jù)系統(tǒng)要求分析,本系統(tǒng)功能如下:</p><p>  用戶管理:添加用戶,修改用戶密碼。</p><p>  客戶管理:添加客戶,查詢客戶信息。</p><

6、p>  供應(yīng)商管理:添加供應(yīng)商,查詢供應(yīng)商信息。</p><p>  倉庫管理:添加倉庫,查詢倉庫信息。</p><p>  貨物管理:添加物品信息,物品類型信息。</p><p>  入庫管理:貨物的入庫信息的添加和修改。</p><p>  出庫管理:貨物的出庫信息的添加和修改。</p><p>  庫存信息

7、:對貨物的現(xiàn)有信息存量查詢。</p><p>  三、數(shù)據(jù)庫概念設(shè)計:</p><p>  本實例根據(jù)根據(jù)上面的設(shè)計規(guī)劃出的實體有倉庫實體、客戶實體、供應(yīng)商實體、管理員實體、貨物實體、貨物類型實體、入庫實體、出庫實體、庫存實體。各個實體的E-R圖描述如下:</p><p><b>  倉庫實體E-R圖</b></p><p&

8、gt;<b>  供應(yīng)商實體E-R圖</b></p><p><b>  客戶實體E-R圖</b></p><p><b>  管理員實體E-R圖</b></p><p><b>  貨物實體E-R圖</b></p><p>  貨物類型實體E-R圖<

9、;/p><p><b>  入庫實體E-R圖</b></p><p><b>  出庫實體E-R圖</b></p><p><b>  庫存實體E-R圖</b></p><p>  整體E-R圖如下所示:</p><p>  四、數(shù)據(jù)庫邏輯設(shè)計:</p

10、><p>  關(guān)系數(shù)據(jù)庫的數(shù)據(jù)模型(即關(guān)系模型)由一組關(guān)系模式組成,因而ER圖向關(guān)系模型的轉(zhuǎn)換實際上就是將實體(包括實體的屬性)和聯(lián)系轉(zhuǎn)換為關(guān)系模式,一般遵循以下基本原則: 1.一個實體型轉(zhuǎn)換為一個關(guān)系模式。實體的屬性就是關(guān)系的屬性,實體的碼就是關(guān)系的碼。 2.一個1:X(X為1或n)聯(lián)系通常與某一端的關(guān)系模式合并,其中1:n的聯(lián)系需要與n端對應(yīng)的關(guān)系模式合并。需要在合并的關(guān)系模式的屬性中

11、加入另一個關(guān)系模式的碼和聯(lián)系本身的屬性。 3.一個m:n聯(lián)系轉(zhuǎn)換為一個關(guān)系模式。與該關(guān)系相連的各實體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性,而關(guān)系的碼為各實體碼的組合。 4.三個或三個以上實體間的一個多元聯(lián)系可以轉(zhuǎn)換為一個關(guān)系模式。與該多元聯(lián)系相連的各實體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性,而關(guān)系的碼為各實體的碼的組合。 5.具有相同碼的關(guān)系模式可合并。</p><p

12、>  使用SQL server 2000企業(yè)管理器建立數(shù)據(jù)庫和表(也可使用SQL語句建立數(shù)據(jù)庫)。</p><p><b>  數(shù)據(jù)庫包括:</b></p><p>  1.倉庫的數(shù)據(jù)項描述: Storage</p><p>  2.供應(yīng)商的數(shù)據(jù)項描述:Provider</p><p>  3.客戶的數(shù)據(jù)項描述:

13、Client</p><p>  4.貨物的數(shù)據(jù)項描述:Goods</p><p>  5.貨物類型的數(shù)據(jù)項描述:Type</p><p>  6.管理員的數(shù)據(jù)項描述:Manager</p><p>  7.庫存的數(shù)據(jù)項描述: Stock</p><p>  8.入庫的數(shù)據(jù)項描述:Stock_In</p>

14、<p>  9.出庫的數(shù)據(jù)項描述:Stock_Out</p><p><b>  五、系統(tǒng)開發(fā)</b></p><p><b>  1. 數(shù)據(jù)庫建立</b></p><p>  Create database storage_manage;</p><p>  供應(yīng)商 Provider&

15、lt;/p><p>  create table Provider(</p><p>  Pno char(5) primary key,</p><p>  Pname char(20),</p><p>  Padddr char(40),</p><p>  Postcode char(6),</p>

16、<p>  Ptel char(11)</p><p><b>  );</b></p><p><b>  客戶 Client</b></p><p>  create table Client(</p><p>  Cno char(5) primary key,</p>

17、<p>  Cname char(20),</p><p>  Caddr char(40),</p><p>  Ctel char(11)</p><p><b>  );</b></p><p>  貨物類型 Type</p><p>  create table Type(&

18、lt;/p><p>  Tno char(5) primary key,</p><p>  Tname char(20),</p><p>  Tdescription char(50)</p><p><b>  );</b></p><p><b>  貨物 Goods</b&

19、gt;</p><p>  create table Goods(</p><p>  Gno char(5) primary key,</p><p>  Gname char(20),</p><p>  Tno char(5),</p><p>  foreign key(Tno) references Type

20、(Tno)</p><p><b>  );</b></p><p>  管理員 Manager</p><p>  create table Manager(</p><p>  Mno char(5) primary key,</p><p>  Mname char(20),</p&

21、gt;<p>  PW char(6)</p><p><b>  );</b></p><p>  倉庫 Storage</p><p>  create table Storage(</p><p>  Sno char(5) primary key,</p><p>  Sn

22、ame char(20),</p><p>  Saddr char(40),</p><p>  Mno char(5),</p><p>  Ssize int,</p><p>  foreign key(Mno) references Manager(Mno)</p><p><b>  );<

23、/b></p><p>  庫存 Stock</p><p>  create table Stock(</p><p>  Gno char(5),</p><p>  Sno char(5),</p><p>  Gname char(10),</p><p>  Tname ch

24、ar(20),</p><p><b>  Gnum int,</b></p><p>  primary key(Gno),</p><p>  foreign key(Gno) references Goods(Gno),</p><p>  foreign key(Sno) references Storage(S

25、no)</p><p><b>  );</b></p><p>  入庫 Stock_In</p><p>  create table Stock_In(</p><p>  Gno char(5),</p><p>  Pno char(5),</p><p>  

26、Gname char(10),</p><p>  Tname char(20),</p><p>  Ginprice real,</p><p>  Innum int,</p><p>  Inprice real,</p><p>  Indata char(20),</p><p> 

27、 primary key(Gno,Pno),</p><p>  foreign key(Gno) references Goods(Gno),</p><p>  foreign key(Pno) references Provider(Pno)</p><p><b>  );</b></p><p>  出庫 S

28、tock_Out</p><p>  create table Stock_Out(</p><p>  Gno char(5),</p><p>  Cno char(5),</p><p>  Gname char(10),</p><p>  Tname char(20),</p><p>

29、;  Goutprice real,</p><p>  Outnum int,</p><p>  Outprice real,</p><p>  Outdata char(20),</p><p>  primary key(Gno,Cno),</p><p>  foreign key(Gno) referen

30、ces Goods(Gno),</p><p>  foreign key(Cno) references Client(Cno)</p><p><b>  );</b></p><p><b>  2、界面設(shè)計</b></p><p><b>  Form1</b><

31、/p><p>  //---------------------------------------------------------------------------</p><p>  #include <vcl.h></p><p>  #pragma hdrstop</p><p>  #include "Uni

32、t1.h"</p><p>  #include "Unit2.h"</p><p>  //---------------------------------------------------------------------------</p><p>  #pragma package(smart_init)</p>

33、;<p>  #pragma resource "*.dfm"</p><p>  TForm1 *Form1;</p><p>  //---------------------------------------------------------------------------</p><p>  __fastcall T

34、Form1::TForm1(TComponent* Owner)</p><p>  : TForm(Owner)</p><p><b>  {</b></p><p><b>  }</b></p><p>  //----------------------------------------

35、-----------------------------------</p><p>  void __fastcall TForm1::Button1Click(TObject *Sender)</p><p><b>  {</b></p><p>  ADOQuery1->SQL->Clear();</p>&

36、lt;p>  ADOQuery1->SQL->Add("select * from Manager ");</p><p>  ADOQuery1->SQL->Add("where Mname='"+Edit1->Text+"' and PW='"+Edit2->Text+"&#

37、39;");</p><p>  if(ADOQuery1->ExecSQL())</p><p><b>  {</b></p><p>  ShowMessage("登陸成功");</p><p>  Form2->Show();</p><p>&l

38、t;b>  }</b></p><p><b>  else</b></p><p><b>  {</b></p><p>  ShowMessage("用戶名或密碼錯誤!");</p><p><b>  }</b></p>

39、<p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm1::Button2Click(TObject *Sender)</p>

40、<p><b>  {</b></p><p>  Close(); </p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p

41、><p><b>  Form2</b></p><p>  //---------------------------------------------------------------------------</p><p>  #include <vcl.h></p><p>  #pragma hdr

42、stop</p><p>  #include "Unit2.h"</p><p>  #include "Unit1.h"</p><p>  #include "unit3.h"</p><p>  #include "unit4.h"</p>

43、<p>  #include "Unit5.h"</p><p>  #include "Unit6.h"</p><p>  #include "Unit7.h"</p><p>  #include "Unit8.h"</p><p>  #incl

44、ude "Unit9.h"</p><p>  #include "Unit10.h"</p><p>  #include "Unit11.h"</p><p>  #include "Unit12.h"</p><p>  #include "Uni

45、t13.h"</p><p>  #include "Unit14.h"</p><p>  #include "Unit15.h"</p><p>  #include "Unit16.h"</p><p>  //----------------------------

46、-----------------------------------------------</p><p>  #pragma package(smart_init)</p><p>  #pragma resource "*.dfm"</p><p>  TForm2 *Form2;</p><p>  //----

47、-----------------------------------------------------------------------</p><p>  __fastcall TForm2::TForm2(TComponent* Owner)</p><p>  : TForm(Owner)</p><p><b>  {</b>&l

48、t;/p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N5Click(TObject *Sender)</p&g

49、t;<p><b>  {</b></p><p>  Form3->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //------------------------------------

50、---------------------------------------</p><p>  void __fastcall TForm2::N6Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form4->Show();</p><p>  Form

51、2->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N18Click(TObject

52、 *Sender)</p><p><b>  {</b></p><p>  Form1->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //-------------------

53、--------------------------------------------------------</p><p>  void __fastcall TForm2::N8Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form6->Show();</p>

54、<p>  Form2->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm2:

55、:N7Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form5->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //---

56、------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N12Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form10->

57、;Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void

58、__fastcall TForm2::N9Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form7->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p>

59、<p>  //--------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N10Click(TObject *Sender)</p><p><b>  {</b></p><

60、p>  Form8->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p>

61、<p>  void __fastcall TForm2::N16Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form9->Show();</p><p>  Form2->Close();</p><p><b>  }<

62、;/b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N13Click(TObject *Sender)</p><p><b>  {</b&g

63、t;</p><p>  Form12->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //--------------------------------------------------------------------

64、-------</p><p>  void __fastcall TForm2::N14Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form11->Show();</p><p>  Form2->Close();</p><

65、p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N15Click(TObject *Sender)</p><p>

66、<b>  {</b></p><p>  Form14->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //------------------------------------------------

67、---------------------------</p><p>  void __fastcall TForm2::N11Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form9->Show();</p><p>  Form2->Close

68、();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm2::N17Click(TObject *Sender)&l

69、t;/p><p><b>  {</b></p><p>  Form15->Show();</p><p>  Form2->Close();</p><p><b>  }</b></p><p>  //-----------------------------

70、----------------------------------------------</p><p>  void __fastcall TForm2::N19Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form16->Show();</p><p&

71、gt;  Form2->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p><b>  Form3</b></p&

72、gt;<p>  //---------------------------------------------------------------------------</p><p>  #include <vcl.h></p><p>  #pragma hdrstop</p><p>  #include "Unit3.

73、h"</p><p>  #include "Unit2.h"</p><p>  //---------------------------------------------------------------------------</p><p>  #pragma package(smart_init)</p>

74、<p>  #pragma resource "*.dfm"</p><p>  TForm3 *Form3;</p><p>  //---------------------------------------------------------------------------</p><p>  __fastcall TFor

75、m3::TForm3(TComponent* Owner)</p><p>  : TForm(Owner)</p><p><b>  {</b></p><p><b>  }</b></p><p>  //-------------------------------------------

76、--------------------------------</p><p>  void __fastcall TForm3::Button1Click(TObject *Sender)</p><p>  {Form3->ADOTable1->Active=true;</p><p>  Form3->ADOTable1->Appen

77、d();</p><p>  Form3->ADOTable1->FieldByName("Cno")->AsString=Edit1->Text;</p><p>  Form3->ADOTable1->FieldByName("Cname")->AsString=Edit2->Text;</p

78、><p>  Form3->ADOTable1->FieldByName("Caddr")->AsString=Edit3->Text;</p><p>  Form3->ADOTable1->FieldByName("Ctel")->AsString=Edit4->Text;</p><

79、;p>  Form3->ADOTable1->Post();</p><p>  ShowMessage("錄入成功!");</p><p><b>  }</b></p><p>  //-----------------------------------------------------------

80、----------------</p><p>  void __fastcall TForm3::Button2Click(TObject *Sender)</p><p><b>  {</b></p><p>  Edit1->Text=' ';</p><p>  Edit2->Te

81、xt=' ';</p><p>  Edit3->Text=' ';</p><p>  Edit4->Text=' ';</p><p><b>  }</b></p><p>  //-------------------------------------

82、--------------------------------------</p><p>  void __fastcall TForm3::Button3Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form2->Show();</p><p>  

83、Form3->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p><b>  Form4</b></p>

84、<p>  //---------------------------------------------------------------------------</p><p>  #include <vcl.h></p><p>  #pragma hdrstop</p><p>  #include "Unit4.h&quo

85、t;</p><p>  #include "Unit2.h"</p><p>  //---------------------------------------------------------------------------</p><p>  #pragma package(smart_init)</p><p

86、>  #pragma resource "*.dfm"</p><p>  TForm4 *Form4;</p><p>  //---------------------------------------------------------------------------</p><p>  __fastcall TForm4::T

87、Form4(TComponent* Owner)</p><p>  : TForm(Owner)</p><p><b>  {</b></p><p><b>  }</b></p><p>  //------------------------------------------------

88、---------------------------</p><p>  void __fastcall TForm4::Button1Click(TObject *Sender)</p><p><b>  {</b></p><p>  ADOQuery1->Active=false;</p><p>  A

89、DOQuery1->SQL->Clear();</p><p>  ADOQuery1->SQL->Add("Select * From Client");</p><p>  ADOQuery1->SQL->Add("Where Cno like '"+Edit1->Text+"%'

90、;");</p><p>  ADOQuery1->Active=true;</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p&g

91、t;  void __fastcall TForm4::Button2Click(TObject *Sender)</p><p><b>  {</b></p><p>  ADOQuery1->Active=false;</p><p>  ADOQuery1->SQL->Clear();</p><p

92、>  ADOQuery1->SQL->Add("Select * From Client");</p><p>  ADOQuery1->SQL->Add("Where Cname like '"+Edit2->Text+"%'");</p><p>  ADOQuery1-&g

93、t;Active=true;</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm4::Button3Click(TOb

94、ject *Sender)</p><p><b>  {</b></p><p>  Form2->Show();</p><p>  Form4->Close();</p><p><b>  }</b></p><p>  //---------------

95、------------------------------------------------------------</p><p><b>  From5</b></p><p>  //---------------------------------------------------------------------------</p>&

96、lt;p>  #include <vcl.h></p><p>  #pragma hdrstop</p><p>  #include "Unit5.h"</p><p>  #include "Unit2.h"</p><p>  //-----------------------

97、----------------------------------------------------</p><p>  #pragma package(smart_init)</p><p>  #pragma resource "*.dfm"</p><p>  TForm5 *Form5;</p><p>  /

98、/---------------------------------------------------------------------------</p><p>  __fastcall TForm5::TForm5(TComponent* Owner)</p><p>  : TForm(Owner)</p><p><b>  {</b&

99、gt;</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm5::Button1Click(TObject *Sende

100、r)</p><p><b>  {</b></p><p>  Form5->ADOTable1->Active=true;</p><p>  Form5->ADOTable1->Append();</p><p>  Form5->ADOTable1->FieldByName(&

101、quot;Pno")->AsString=Edit1->Text;</p><p>  Form5->ADOTable1->FieldByName("Pname")->AsString=Edit2->Text;</p><p>  Form5->ADOTable1->FieldByName("Paddr

102、")->AsString=Edit3->Text;</p><p>  Form5->ADOTable1->FieldByName("Postcode")->AsString=Edit3->Text;</p><p>  Form5->ADOTable1->FieldByName("Ptel"

103、)->AsString=Edit5->Text;</p><p>  Form5->ADOTable1->FieldByName("Prep")->AsString=Edit6->Text;</p><p>  Form5->ADOTable1->Post();</p><p>  ShowMess

104、age("錄入成功!");</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm5::Button2

105、Click(TObject *Sender)</p><p><b>  {</b></p><p>  Edit1->Text=' ';</p><p>  Edit2->Text=' ';</p><p>  Edit3->Text=' ';</

106、p><p>  Edit4->Text=' ';</p><p>  Edit5->Text=' ';</p><p>  Edit6->Text=' ';</p><p><b>  }</b></p><p>  //-------

107、--------------------------------------------------------------------</p><p>  void __fastcall TForm5::Button3Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form2->

108、Show();</p><p>  Form5->Close();</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p><b>

109、;  Form6</b></p><p>  //---------------------------------------------------------------------------</p><p>  #include <vcl.h></p><p>  #pragma hdrstop</p><p&g

110、t;  #include "Unit6.h"</p><p>  #include "Unit2.h"</p><p>  //---------------------------------------------------------------------------</p><p>  #pragma packag

111、e(smart_init)</p><p>  #pragma resource "*.dfm"</p><p>  TForm6 *Form6;</p><p>  //---------------------------------------------------------------------------</p>&

112、lt;p>  __fastcall TForm6::TForm6(TComponent* Owner)</p><p>  : TForm(Owner)</p><p><b>  {</b></p><p><b>  }</b></p><p>  //------------------

113、---------------------------------------------------------</p><p>  void __fastcall TForm6::Button1Click(TObject *Sender)</p><p><b>  {</b></p><p>  ADOQuery1->Active=

114、false;</p><p>  ADOQuery1->SQL->Clear();</p><p>  ADOQuery1->SQL->Add("Select * From Provider");</p><p>  ADOQuery1->SQL->Add("Where Pno like '&

115、quot;+Edit1->Text+"%'");</p><p>  ADOQuery1->Active=true;</p><p><b>  }</b></p><p>  //--------------------------------------------------------------

116、-------------</p><p>  void __fastcall TForm6::Button2Click(TObject *Sender)</p><p><b>  {</b></p><p>  ADOQuery1->Active=false;</p><p>  ADOQuery1->S

117、QL->Clear();</p><p>  ADOQuery1->SQL->Add("Select * From Provider");</p><p>  ADOQuery1->SQL->Add("Where Pname like '"+Edit2->Text+"%'");&

118、lt;/p><p>  ADOQuery1->Active=true;</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void _

119、_fastcall TForm6::Button3Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form2->Show();</p><p>  Form6->Close();</p><p><b>  }</b></p

120、><p>  //---------------------------------------------------------------------------</p><p><b>  Form7</b></p><p>  //------------------------------------------------------

121、---------------------</p><p>  #include <vcl.h></p><p>  #pragma hdrstop</p><p>  #include "Unit7.h"</p><p>  #include "Unit2.h"</p>&l

122、t;p>  //---------------------------------------------------------------------------</p><p>  #pragma package(smart_init)</p><p>  #pragma resource "*.dfm"</p><p>  TFor

123、m7 *Form7;</p><p>  //---------------------------------------------------------------------------</p><p>  __fastcall TForm7::TForm7(TComponent* Owner)</p><p>  : TForm(Owner)</p

124、><p><b>  {</b></p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall T

125、Form7::Button2Click(TObject *Sender)</p><p><b>  {</b></p><p>  Edit1->Text=' ';</p><p>  Edit2->Text=' ';</p><p>  Edit3->Text=

126、9; ';</p><p>  Edit5->Text=' ';</p><p><b>  }</b></p><p>  //---------------------------------------------------------------------------</p><p&

127、gt;  void __fastcall TForm7::Button3Click(TObject *Sender)</p><p><b>  {</b></p><p>  Form2->Show();</p><p>  Form7->Close();</p><p><b>  }</

128、b></p><p>  //---------------------------------------------------------------------------</p><p>  void __fastcall TForm7::Button1Click(TObject *Sender)</p><p><b>  {</b

129、></p><p>  Form7->ADOTable1->Active=true;</p><p>  Form7->ADOTable1->Append();</p><p>  Form7->ADOTable1->FieldByName("Sno")->AsString=Edit1->Te

130、xt;</p><p>  Form7->ADOTable1->FieldByName("Sname")->AsString=Edit2->Text;</p><p>  Form7->ADOTable1->FieldByName("Saddr")->AsString=Edit3->Text;</

131、p><p>  Form7->ADOTable1->FieldByName("Mno")->AsString=DBComboBox1->Text;</p><p>  Form7->ADOTable1->FieldByName("Ssize")->AsString=Edit5->Text;</p>

132、;<p>  Form7->ADOTable1->Post();</p><p>  ShowMessage("錄入成功!");</p><p><b>  }</b></p><p>  //-----------------------------------------------------

133、----------------------</p><p><b>  Form8</b></p><p>  //---------------------------------------------------------------------------</p><p>  #include <vcl.h></p

134、><p>  #pragma hdrstop</p><p>  #include "Unit8.h"</p><p>  #include "Unit2.h"</p><p>  //-------------------------------------------------------------

溫馨提示

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

最新文檔

評論

0/150

提交評論