版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、<p><b> 數(shù)據(jù)庫系統(tǒng)課程設(shè)計(jì)</b></p><p><b> —— 貨存控制系統(tǒng)</b></p><p><b> 課程設(shè)計(jì)題目:</b></p><p> 貨存管理系統(tǒng) 一個(gè)公司希望為控制它的貨存建立一個(gè)數(shù)據(jù)庫,貨存中的產(chǎn)品被分為幾類,如服裝、食品和文具。當(dāng)產(chǎn)品需
2、要從供應(yīng)商那里重新訂購時(shí),工作人員需要提出一個(gè)購買訂單。跟蹤記錄要提供買進(jìn)、賣出的貨物以及其他的費(fèi)用。</p><p> 實(shí)驗(yàn)課程任務(wù)與要求目的與任務(wù):1.掌握數(shù)據(jù)庫設(shè)計(jì)和實(shí)現(xiàn)的基本過程2.掌握數(shù)據(jù)庫模式設(shè)計(jì)、分析和實(shí)現(xiàn)的方法3.了解數(shù)據(jù)庫應(yīng)用系統(tǒng)軟件開發(fā)的一般過程。</p><p><b> 實(shí)驗(yàn)基本要求: </b></p>&
3、lt;p><b> 學(xué)習(xí)相關(guān)的預(yù)備知識(shí)</b></p><p> 按照數(shù)據(jù)庫設(shè)計(jì)與實(shí)現(xiàn)過程完成數(shù)據(jù)庫的設(shè)計(jì),應(yīng)用程序的開發(fā),上機(jī)調(diào)試、運(yùn)行</p><p><b> 寫出課程設(shè)計(jì)報(bào)告</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è)計(jì):</p><p> 本實(shí)例根據(jù)根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有倉庫實(shí)體、客戶實(shí)體、供應(yīng)商實(shí)體、管理員實(shí)體、貨物實(shí)體、貨物類型實(shí)體、入庫實(shí)體、出庫實(shí)體、庫存實(shí)體。各個(gè)實(shí)體的E-R圖描述如下:</p><p><b> 倉庫實(shí)體E-R圖</b></p><p&
8、gt;<b> 供應(yīng)商實(shí)體E-R圖</b></p><p><b> 客戶實(shí)體E-R圖</b></p><p><b> 管理員實(shí)體E-R圖</b></p><p><b> 貨物實(shí)體E-R圖</b></p><p> 貨物類型實(shí)體E-R圖<
9、;/p><p><b> 入庫實(shí)體E-R圖</b></p><p><b> 出庫實(shí)體E-R圖</b></p><p><b> 庫存實(shí)體E-R圖</b></p><p> 整體E-R圖如下所示:</p><p> 四、數(shù)據(jù)庫邏輯設(shè)計(jì):</p
10、><p> 關(guān)系數(shù)據(jù)庫的數(shù)據(jù)模型(即關(guān)系模型)由一組關(guān)系模式組成,因而ER圖向關(guān)系模型的轉(zhuǎn)換實(shí)際上就是將實(shí)體(包括實(shí)體的屬性)和聯(lián)系轉(zhuǎn)換為關(guān)系模式,一般遵循以下基本原則: 1.一個(gè)實(shí)體型轉(zhuǎn)換為一個(gè)關(guān)系模式。實(shí)體的屬性就是關(guān)系的屬性,實(shí)體的碼就是關(guān)系的碼。 2.一個(gè)1:X(X為1或n)聯(lián)系通常與某一端的關(guān)系模式合并,其中1:n的聯(lián)系需要與n端對應(yīng)的關(guān)系模式合并。需要在合并的關(guān)系模式的屬性中
11、加入另一個(gè)關(guān)系模式的碼和聯(lián)系本身的屬性。 3.一個(gè)m:n聯(lián)系轉(zhuǎn)換為一個(gè)關(guān)系模式。與該關(guān)系相連的各實(shí)體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性,而關(guān)系的碼為各實(shí)體碼的組合。 4.三個(gè)或三個(gè)以上實(shí)體間的一個(gè)多元聯(lián)系可以轉(zhuǎn)換為一個(gè)關(guān)系模式。與該多元聯(lián)系相連的各實(shí)體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性,而關(guān)系的碼為各實(shí)體的碼的組合。 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ù)項(xiàng)描述: Storage</p><p> 2.供應(yīng)商的數(shù)據(jù)項(xiàng)描述:Provider</p><p> 3.客戶的數(shù)據(jù)項(xiàng)描述:
13、Client</p><p> 4.貨物的數(shù)據(jù)項(xiàng)描述:Goods</p><p> 5.貨物類型的數(shù)據(jù)項(xiàng)描述:Type</p><p> 6.管理員的數(shù)據(jù)項(xiàng)描述:Manager</p><p> 7.庫存的數(shù)據(jù)項(xiàng)描述: Stock</p><p> 8.入庫的數(shù)據(jù)項(xiàng)描述:Stock_In</p>
14、<p> 9.出庫的數(shù)據(jù)項(xiàng)描述: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è)計(jì)</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("用戶名或密碼錯(cuò)誤!");</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)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 數(shù)據(jù)庫課程設(shè)計(jì)--- 百貨進(jìn)銷存信息管理系統(tǒng)
- 進(jìn)銷存管理數(shù)據(jù)庫課程設(shè)計(jì)
- 數(shù)據(jù)庫課程設(shè)計(jì)--bbs系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)
- 數(shù)據(jù)庫課程設(shè)計(jì)--商品進(jìn)銷存管理系統(tǒng)
- 數(shù)據(jù)庫課程設(shè)計(jì)--醫(yī)院藥品進(jìn)銷存系統(tǒng)
- 數(shù)據(jù)庫課程設(shè)計(jì)---數(shù)據(jù)庫
- 藥品進(jìn)銷存管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)
- 數(shù)據(jù)庫課程設(shè)計(jì)--醫(yī)院藥品進(jìn)銷存系統(tǒng)
- 數(shù)據(jù)庫課程設(shè)計(jì)--快餐訂餐系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)
- 網(wǎng)站進(jìn)銷存數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告
- 數(shù)據(jù)庫課程設(shè)計(jì)--數(shù)據(jù)庫設(shè)計(jì)
- 數(shù)據(jù)庫課程設(shè)計(jì)--數(shù)據(jù)庫系統(tǒng)原理
- 數(shù)據(jù)庫課程設(shè)計(jì)--數(shù)據(jù)庫設(shè)計(jì)—公司管理系統(tǒng)
- 數(shù)據(jù)庫課程設(shè)計(jì)快餐訂餐系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)
- 數(shù)據(jù)庫課程設(shè)計(jì)--數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計(jì)
- 數(shù)據(jù)庫課程設(shè)計(jì)---機(jī)房管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)
- oracle數(shù)據(jù)庫課程設(shè)計(jì)---在線考試系統(tǒng)數(shù)據(jù)庫
- 數(shù)據(jù)庫課程設(shè)計(jì)--購物系統(tǒng)
- 數(shù)據(jù)庫課程設(shè)計(jì)--工資管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)
- 數(shù)據(jù)庫原理課程設(shè)計(jì)---教室管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)
評(píng)論
0/150
提交評(píng)論