影院售票管理系統(tǒng)

1、面向對象程序設計課程設計報告 2006 / 2007學年 第 一 學期項目名稱： 影院售票管理系統(tǒng) 項目負責人：王德才 學號：_0601023230_同 組 者： 李清爽 學號：0601023214指導教師： _潘 俊_ 班級：_06會計_課程設計時間及地點：_實驗樓521_計算機信息工程學院2007年1月15日一系統(tǒng)概述；1項目需求；2需求分析；二項目開發(fā)計劃書；三設計說明書；1分析與創(chuàng)建數據庫； 2創(chuàng)建登陸窗體模塊； 3創(chuàng)建售票窗體模塊4創(chuàng)建檢票界面5創(chuàng)建維護界面1創(chuàng)建影庫界面2創(chuàng)建職工界面 3創(chuàng)建票務界面四用戶操作手冊；五改進意見；六自我評價；七參考資料、書籍；一系統(tǒng)概述；1項目需求；現(xiàn)

2、在中國大部分的家庭都喜歡在家里置辦屬于自己風格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因為家里的氣氛畢竟不如影院好。所以，現(xiàn)代家庭影院的出現(xiàn)并不會讓電影院沒有生路。 每個社會服務系統(tǒng)都有自己的一套管理機制。當然，電影院也不除外。其實電影院的管理系統(tǒng)應該來說比其他的社會服務系統(tǒng)的管理要簡單一點。電影院不外乎是引進電影，制定播放影片的時間表，買票，檢票進場觀看，還有就是一些數據管理方面的事。如工作人員管理，票務管理等等。為了工作機制簡單有序，必然要引進一套管理系統(tǒng)。2需求分析；具體而言，影院售票系統(tǒng)需要實現(xiàn)以下的需求：（1） 能夠對播放電影，工作人員，售票事宜，檢票事宜，無用數據進行處

3、理。（2） 售票管理自然有專人負責，要處理各電影的電影票銷售問題。當然包括退票問題，還有就是預訂電影票其實也就相當于買票。兩者可以當一回事處理。（3） 檢票管理事宜要完成觀眾進場時檢票的事宜。其中包括了電影票的真假檢測問題。（4） 數據管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。二項目開發(fā)計劃書；根據需求分析的結果，本小組成員討論協(xié)商，決定本系統(tǒng)主要劃分為以下三個子模塊：售票管理模塊、檢票管理模塊、數據管理模塊。影院售票管理系統(tǒng)是一個基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權限。主要有三種用戶：1 售票管理人員： 主要負責賣票，訂票及退票事宜；2 檢票

4、管理人員： 主要負責觀眾進場時檢票工作，以及辨認電影票的真假（此工作自然可以由服務系統(tǒng)來完成）；3 數據處理人員： 主要負責播放電影導入數據庫，工作人員的應聘以及開除的數據管理，還有過期電影票的數據處理；以下分別介紹此系統(tǒng)中各個系統(tǒng)（3個子模塊。）：（1）售票系統(tǒng)模塊給觀眾提供售票服務。不同的位置有不同的價格。要選購哪個位置由觀眾決定。工作人員根據觀眾的需要進行操作。系統(tǒng)在購票成功后會產生一個驗證碼，此驗證碼連工作人員都不知道。是隨機生成的。用于對電影票真假的辯識。（2）檢票系統(tǒng)模塊 在觀眾進場時所使用的系統(tǒng)。由掃描儀掃描，取的驗證碼，然后進行辯識，看是不是和數據庫中數據一樣，如果一樣，則電影

5、票為真，否則電影票為假。由此來決定讓不讓觀眾入場。（3）維護系統(tǒng)模塊 此模塊是由電影院的數據庫管理員來管理的。他根據電影院事情的需要對有關數據進行處理。如電影票的管理，工作人員的管理，和電影庫的管理等。整個系統(tǒng)的結構如下圖1所示：影院售票管理系統(tǒng)xiop工作人員登錄維護系統(tǒng)檢票系統(tǒng)售票系統(tǒng)影片播放管理工作人員管理過期票務管理以下分別介紹系統(tǒng)中數據系統(tǒng)3個子模塊。（1）影片播放管理模塊 影片播放管理是對電影院播放的電影的充實，設定電影的播放，以及電影時間的設定。當所設定的電影已經播放完成后，要對其進行刪除。還要對數據庫進行清理，把一些沒用的數據全部清除。（2）工作人員管理： 電影院里當然有工作人

6、員的增加與開除，以及他們的管理權限的變化。這一部分事件的發(fā)生都需要數據庫管理人員將有關數據進行處理。保證數據庫里數據的統(tǒng)一與完整。 其中有他們的共號，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權限。（3）過期票務管理： 電影院里的電影在放過以后，在數據庫的電影票數據就會變成沒有用的數據。通過此管理可以把那些沒用的過期的數據清除。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存不變。小組人員分工情況：王圣武 登陸界面和售票界面、系統(tǒng)轉換界面的程序編寫，整個系統(tǒng)框架的設計，整個系統(tǒng)界面及美化設計，整個系統(tǒng)流程的管理，創(chuàng)建數據庫張潤馳 檢票系統(tǒng)和整個維護系統(tǒng)的程序編寫，局部框架輔助設計，創(chuàng)建數

7、據庫本系統(tǒng)后臺數據庫采用目前比較流行的 Microsoft SQL Sever ,該數據庫系統(tǒng)在安全性、準確性、運行速度方面有絕對的優(yōu)勢，并且處理數據量大、效率高；前臺采用 Microsoft公司的 VB.NET 2003 作為主要的開發(fā)工具，其可與SQL Sever 2000數據庫無縫銜接。三設計說明書；1分析與創(chuàng)建數據庫；根據系統(tǒng)的功能分析結果，影院售票管理系統(tǒng)將會使用Microsoft SQL Sever 2000 作為后臺的數據庫管理系統(tǒng)。本管理系統(tǒng)是應用于電影院中，而且需要和數據庫之間進行頻繁數據交換，所以采用Microsoft SQL Sever 2000 作為后臺的數據庫管理系統(tǒng)

8、。在本管理系統(tǒng)中，需要掌握影庫充實信息，職工管理信息，票務管理信息，此外，由于要進行職工管理，還需要掌握使用本系統(tǒng)的職工。表1存儲硬庫信息列表，表2存儲了電影院座位的相關數據連接關系，表3存儲了電影票銷售情況管理，表4存儲了系統(tǒng)使用者職工的相關情況的管理列表。表1 影庫管理表-MOVIES字段名稱數據類型字段屬性字段大小作用必填字段索引是否主鍵Movie_idsmallint2電影號是有（無重復）是Movie_nameNvarchar50電影名稱是無actorNvarchar50導演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydateda

9、tetime8上映時間是無表2電影院座位管理表-SEATS字段名稱數據類型字段屬性字段大小作用必填字段索引是否主鍵seatidsmallint2座位號是有（無重復）是pricefloat8票價是無soldornotsmallint2是否售出是無表3電影票信息表-TICKETS字段名稱數據類型字段屬性字段大小作用必填字段索引是否主鍵ticketsidsmallint2電影票號是有（無重復）是seatidsmallint2座位號是有Movie_idsmallint2電影號是有Movie_nameNvarchar50電影名否無palydatedatetime8上映時間是無pricefloat8價格是

10、無yanzhengmasmallint2驗證碼是無是表4職工信息表-WORKERS字段名稱數據類型字段屬性字段大小作用必填字段索引是否主鍵workeridsmallint2職工號是無是passwordsmallint2職工密碼是無leibiesmallint2職工類型是無根據規(guī)范化的設計理念，本管理系統(tǒng)的數據分成上面4個表，減少了數據的冗余，同時在這些表之間又存在著一些關聯(lián)關系。這四個表之間的這兩種關系表現(xiàn)在下圖所示的關系： 2創(chuàng)建登陸窗體模塊； （1）窗體模塊的功能 登陸窗體 （2）窗體界面的設計在工程中添加一個窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體。界面 的設計如圖3所示。 （3）

11、窗體代碼ImportsPublicClass Form1InheritsDim navigator As BindingManagerBase '用來對記錄導航Dim mycon AsNew SqlConnection '連接對象Dim mycom AsNew SqlCommand '命令對象Dim mycom1 AsNew SqlCommandDim frm2 AsNew Form2Dim frm3 AsNew Form3Dim frm8 AsNew Form8PrivateSub Timer1_Tick(ByVal sender As System.Object,

12、ByVal e As System.EventArgs) Handles StatusBar1.Panels(1).Text = DateTime.Now.ToString("T")EndSubPrivateSub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesIf RadioButton1.Checked = TrueThen RadioButton2.Checked = False RadioButton3.Checked = FalseElseIf

13、RadioButton2.Checked = TrueThen RadioButton1.Checked = False RadioButton3.Checked = FalseElseIf RadioButton3.Checked = TrueThen RadioButton1.Checked = False RadioButton2.Checked = FalseEndIfEndSubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxShockwave

14、Flash1.Movie = "E:實驗運行場程序設計電影院票務系統(tǒng)image登陸界面1.swf" AxShockwaveFlash1.Playing = False AxShockwaveFlash1.Stop()Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapter AsNew SqlDataAdapterDim myds AsNew DataSetDim i AsIntegerDim j AsInteger tox1 = Val(TextBox1.Text) tox2 = Val(TextBox2.Text) mycon

15、.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom.Connection = mycon '通過 MYCON 連接對象操作數據庫 mycom.CommandType = CommandType.Text '設置命令類型 mycom.CommandText = "select * from workers" '設置要執(zhí)行的命令Try mycon.Open() mydataadapter.SelectCommand = myco

16、mCatch ex As Exception MessageBox.Show("連接失敗")Finally mycon.Close()EndTry mydataadapter.Fill(myds, "workers")For i = 0 To myds.Tables("workers").Rows.Count - 1If tox1 = Val(myds.Tables("workers").Rows(i).ItemArray(0) Then j = 0ExitForElse j = 1EndIfNextFor i =

17、 0 To myds.Tables("workers").Rows.Count - 1If tox2 = Val(myds.Tables("workers").Rows(i).ItemArray(1) Then j = 0ExitForElse j = 1EndIfNextIf j = 1 Then MessageBox.Show("您的工號或者密碼錯誤", "錯誤提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseTry mycom1.Connection

18、= mycon '通過 MYCON 連接對象操作數據庫 mycom1.CommandType = CommandType.Text '設置命令類型 mycom1.CommandText = "select leibie from workers where workerid=" + CStr(tox1) + "and password=" + CStr(tox2) + "" '設置要執(zhí)行的命令Dim mydataadapter1 AsNew SqlDataAdapter mydataadapter1.Selec

19、tCommand = mycom1Dim myds1 AsNew DataSet mydataadapter1.Fill(myds1, "workers")If RadioButton1.Checked = TrueAnd Val(myds1.Tables("workers").Rows(0)("leibie") = 1 Then frm2.Show()Me.Hide()ElseIf RadioButton2.Checked = TrueAnd Val(myds1.Tables("workers").Rows(0)

20、("leibie") = 2 Then frm3.Show()Me.Hide()ElseIf RadioButton3.Checked = TrueAnd Val(myds1.Tables("workers").Rows(0)("leibie") = 3 Then frm8.Show()Me.Hide()Else MessageBox.Show("您超出職責范圍或未選擇服務系統(tǒng)，請重新輸入！", "錯誤提示", MessageBoxButtons.OK, MessageBoxIcon.Warni

21、ng, MessageBoxDefaultButton.Button1)EndIfCatch ex As ExceptionEndTryEndIfEndSubPrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load AxShockwaveFlash1.Movie = "E:實驗運行場程序設計電影院票務系統(tǒng)image登陸界面1.swf" AxShockwaveFlash1.Play()EndSubPrivateSub Button2_

22、Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim exitform AsNew Form7If exitform.ShowDialog = DialogResult.OK Then exitform.Close()Me.Close() Application.Exit()EndIfEndSubEndClass3 創(chuàng)建售票窗體模塊（1） 窗體模塊的功能 為觀眾提供買票服務。在界面上觀眾可以看見座位的情況，根據此來選擇自己喜歡的座位。不同的座位有不同的價格。此窗體還有退票功能。（2） 窗體界面的

23、設計 在工程中添加一個窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。界面 的設計如下圖所示。（3） 代碼編寫ImportsPublicClass Form2InheritsDim navigator As BindingManagerBase '用來對記錄導航Dim mycon AsNew SqlConnection '連接對象Dim mycom AsNew SqlCommand '命令對象PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesM

24、yBase.Load'Me.Show() AxShockwaveFlash1.Movie = "E:實驗運行場程序設計電影院票務系統(tǒng)image銷售界面.swf" AxShockwaveFlash1.Play() AxShockwaveFlash2.Movie = "E:實驗運行場程序設計電影院票務系統(tǒng)image檢票界面下.swf" AxShockwaveFlash2.Play()Dim mydataadapter AsNew SqlDataAdapterDim myds AsNew DataSetDim i AsIntegerDim j AsIn

25、tegerDim strrow AsStringDim dt AsNew DataTable mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom.Connection = mycon '通過 MYCON 連接對象操作數據庫 mycom.CommandType = CommandType.Text '設置命令類型 mycom.CommandText = "select * from Movies" '設置要執(zhí)行的命令

26、"Try mycon.Open() mydataadapter.SelectCommand = mycom mydataadapter.Fill(myds, "Movies")Catch ex As Exception MessageBox.Show("連接失敗")Finally mycon.Close()EndTryTryFor i = 0 To myds.Tables("Movies").Rows.Count - 1 strrow = myds.Tables("Movies").Rows(i)(&qu

27、ot;movie_name") ComboBox1.Items.Add(strrow)NextCatch ex As Exception MessageBox.Show(ex.ToString)EndTryEndSubPrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim i AsIntegerDim tickethao AsIntegerDim moviehao AsIntegerDim suiji AsIntegerDim mydataada

28、pter3 AsNew SqlDataAdapterDim myds3 AsNew DataSetDim dt3 AsNew DataTableDim mycom3 AsNew SqlCommandDim mycon3 AsNew SqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000)Try tickethao = tickets_id() moviehao = movieid() mycon3.ConnectionString = "initial catalog=ticketbooking;user id=sa;pas

29、sword=;" mycom3.Connection = mycon3 '通過 MYCON 連接對象操作數據庫 mycom3.CommandType = CommandType.Text '設置命令類型Catch ex As Exception MessageBox.Show(ex.ToString)EndTryIf tickethao = 0 ThenTry MessageBox.Show("此座位已售出，請重新選擇！", "錯誤") ComboBox1.Text = "" TextBox1.Text =

30、"" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""Catch ex As Exception MessageBox.Show(ex.ToString)EndTryElseTry mycon3.Open() mycom3.CommandText = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,

31、price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox1.Text + "'," + TextBox5.Text + "," + CStr(suiji) + ")"Dim sql AsString sql =

32、"insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox3.Text + "'," + TextBox5.

33、Text + "," + CStr(suiji) + ")" mydataadapter3.InsertCommand = mycom3Try mycom3.ExecuteNonQuery() MessageBox.Show("售票成功！", "謝謝觀看")Catch ex As Exception MsgBox(ex.ToString)EndTryCatch ex As Exception MessageBox.Show(ex.ToString)EndTry mycon3.Close() ComboBox1.Te

34、xt = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""EndIf revoke_seat()EndSubPrivateSub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r

35、evoke_seat()Dim mydataadapter1 AsNew SqlDataAdapterDim mydataadapter11 AsNew SqlDataAdapterDim myds1 AsNew DataSetDim myds11 AsNew DataSetDim dt1 AsNew DataTableDim dt11 AsNew DataTableDim mycom1 AsNew SqlCommandDim mycom11 AsNew SqlCommand mycon.ConnectionString = "initial catalog=ticketbookin

36、g;user id=sa;password=;" mycom1.Connection = mycon '通過 MYCON 連接對象操作數據庫 mycom1.CommandType = CommandType.Text '設置命令類型 mycom11.Connection = myconTry mycon.Open() mycom11.CommandText = "select palydate from Movies where movie_name= '" + ComboBox1.Text + "'" myco

37、m1.CommandText = "select * from tickets where movie_name= '" + ComboBox1.Text + "'" mydataadapter1.SelectCommand = mycom1 mydataadapter11.SelectCommand = mycom11 mydataadapter1.Fill(myds1, "tickets") mydataadapter11.Fill(myds11, "Movies") dt1 = myds1.T

38、ables("tickets") dt11 = myds11.Tables("Movies")Catch ex As Exception MessageBox.Show(ex.ToString)EndTryTryIf dt1.Rows.Count = 0 Then MessageBox.Show("還未出售！") TextBox1.Text = dt11.Rows(0)("palydate") revoke_seat()Else ShowSellInfo(dt1) TextBox1.Text = dt11.Rows

39、(0)("palydate")EndIfCatch ex As ExceptionEndTry mycon.Close()EndSubPrivateSub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim tickethao AsIntegerDim mydataadapter4 AsNew SqlDataAdapterDim myds4 AsNew DataSetDim dt4 AsNew DataTableDim mycom4 AsNew SqlC

40、ommandDim mycon4 AsNew SqlConnectionTry mycon4.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom4.Connection = mycon4 '通過 MYCON 連接對象操作數據庫 mycom4.CommandType = CommandType.Text '設置命令類型 tickethao = tuipiao()Catch ex As Exception MessageBox.Show(ex.ToStrin

41、g)EndTryIf tickethao = 0 Then MessageBox.Show("座位號輸入錯誤，請重新輸入！", "錯誤")ElseTry mycon4.Open() mycom4.CommandText = "delete from tickets where ticketsid=" + CStr(tickethao) + ""Try mycom4.ExecuteNonQuery() MessageBox.Show("退票成功！", "謝謝觀看")Catch

42、ex As Exception MsgBox(ex.ToString)EndTryCatch ex As Exception MsgBox(ex.ToString)EndTryEndIf mycon4.Close() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" ComboBox1.Text = "" revoke_seat()End

43、SubPrivateSub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesIf TextBox4.Text = "" Then MessageBox.Show("請輸入座位號！", "提示")EndIDim mydataadapter2 AsNew SqlDataAdapterDim myds2 AsNew DataSetDim dt2 AsNew DataTableDim mycom2 AsNew SqlComma

44、nd mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom2.Connection = mycon '通過 MYCON 連接對象操作數據庫 mycom2.CommandType = CommandType.Text '設置命令類型Try mycon.Open() mycom2.CommandText = "select * from seats where seatid=" + TextBox4.Text + "&

45、quot; mydataadapter2.SelectCommand = mycom2 mydataadapter2.Fill(myds2, "seats") dt2 = myds2.Tables("seats")Catch ex As Exception MessageBox.Show(ex.ToString)EndTry TextBox5.Text = dt2.Rows(0)("price") mycon.Close()EndSubPrivateSub Button4_Click(ByVal sender As System.Ob

46、ject, ByVal e As System.EventArgs) HandlesDim exitform AsNew Form7If exitform.ShowDialog = DialogResult.OK Then exitform.Close()Me.Close() Application.Exit()EndIfEndSubEndClass4 創(chuàng)建檢票界面（1）創(chuàng)建模塊的功能對進場觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內。（2）創(chuàng)建模塊的窗體 在工程中添加一個窗體，命名為“檢票系統(tǒng)”，用來作為檢票系統(tǒng)窗體。界面 的設計如下圖所示。（3）代碼編寫ImportsPublicClass

47、 Form3InheritsDim ds1 AsNew DataSetDim sqlda1 AsNew SqlDataAdapterDim RecordCount AsIntegerPrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load AxShockwaveFlash1.Movie = "E:實驗運行場程序設計電影院票務系統(tǒng)image檢票界面.swf" AxShockwaveFlash1.Play() AxShockwaveFl

48、ash2.Movie = "E:實驗運行場程序設計電影院票務系統(tǒng)image檢票界面下.swf" AxShockwaveFlash2.Play()Dim sqlcmd1 AsNew SqlCommandDim str1 AsString = "select * from tickets" sqlcmd1.Connection = sqlcn1 sqlcmd1.CommandText = str1 sqlda1.SelectCommand = sqlcmd1Try sqlcn1.Open() sqlcmd1.ExecuteNonQuery()Catch ex

49、 As SqlException MsgBox(ex.Message)Finally sqlcn1.Close()EndTryTry sqlda1.Fill(ds1)Catch ex As SqlException MsgBox(ex.Message)EndTry TextBox6.Text = RecordCountEndSubPrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim i AsIntegerDim flag AsBoolean = Fals

50、eIf TextBox1.Text = "" Then TextBox7.Text = "請認真填寫票號！" TextBox1.Focus()ExitSubEndIfIf TextBox2.Text = "" Then TextBox7.Text = "請?zhí)顚戲炞C碼！" TextBox2.Focus()ExitSubEndIfFor i = 0 To RecordCount - 1If TextBox1.Text = CStr(ds1.Tables(0).Rows(i)("ticketsid")

51、 And TextBox2.Text = CStr(ds1.Tables(0).Rows(i)("yanzhengma") Then flag = TrueExitForEndIfNextIf flag = TrueThenTry TextBox3.Text = ds1.Tables(0).Rows(i)("seatid") TextBox4.Text = ds1.Tables(0).Rows(i)("movie_name") TextBox5.Text = ds1.Tables(0).Rows(i)("price"

52、;)Catch ex As Exception MsgBox(ex.Message)EndTry TextBox7.Text = "此票為真！"Else TextBox7.Text = "此票為假！"EndIf TextBox6.Text = RecordCountEndSubPrivateSub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = &