圖書管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)設(shè)計(jì)論文-閱讀頁
2025-07-13 17:48本頁面
【正文】 al Basic數(shù)據(jù)庫開發(fā)實(shí)例解析．北京：機(jī)械工業(yè)出版社，[12] 數(shù)據(jù)庫管理系統(tǒng)原理與設(shè)計(jì)(第3版) ．〔美〕羅摩克里希納，〔美〕格爾基 著，周立柱 等譯，清華大學(xué)出版社，2004. 3[13] 高春玲，張文學(xué)．?dāng)?shù)據(jù)庫原理與應(yīng)用．北京：電子工業(yè)出版社，2005[14] 張耀庭．Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析．北京：人民郵電出版社，[15] 周蘇，王文．軟件工程學(xué)教程．北京：科學(xué)出版社，[16] 宋昆，李嚴(yán)．SQL Server數(shù)據(jù)庫開發(fā)實(shí)例解析．北京：機(jī)械工業(yè)出版社，附錄部分程序的源代碼數(shù)據(jù)備份對(duì)于該系統(tǒng)來說可以說是不可或缺的一部分下面將數(shù)據(jù)備份的源代碼附下面數(shù)據(jù)備份的源代碼：（VERSION Object = {831FDD160C5C11D2A9FC0000F8754DA1}0。Fixed Single Caption = 系統(tǒng)維護(hù)【數(shù)據(jù)備份】 ClientHeight = 4950 ClientLeft = 45 ClientTop = 330 ClientWidth = 7995 Icon = :0000 LinkTopic = Form1 MaxButton = 0 39。False Picture = :000C ScaleHeight = 4950 ScaleWidth = 7995 StartUpPosition = 1 39。H0000C000amp。H0000C000amp。True Width = 1935 End Begin Frame2 BackColor = amp。 Caption = 請選擇數(shù)據(jù)庫文件 Height = 3540 Left = 4020 TabIndex = 4 Top = 465 Width = 3915 Begin Drive1 Height = 300 Left = 150 TabIndex = 7 Top = 255 Width = 3615 End Begin Dir1 Height = 720 Left = 150 TabIndex = 6 Top = 630 Width = 3615 End Begin File1 DragIcon = :372B3 Height = 2070 Left = 150 Pattern = *.BAK。H0000C000amp。True LabelWrap = 1 39。True AllowReorder = 1 39。H008080FFamp。E 退出 Height = 420 Left = 3975 Style = 1 39。H008080FFamp。Graphical TabIndex = 0 Top = 4470 Width = 2175 End Begin ImageList1 Left = 135 Top = 1155 _ExtentX = 1005 _ExtentY = 1005 BackColor = 2147483643 ImageWidth = 32 ImageHeight = 32 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25859111D1B16A00C0F0283628} NumListImages = 4 BeginProperty ListImage1 {2C247F27859111D1B16A00C0F0283628} Picture = :376F5 Key = EndProperty BeginProperty ListImage2 {2C247F27859111D1B16A00C0F0283628} Picture = :37FD1 Key = EndProperty BeginProperty ListImage3 {2C247F27859111D1B16A00C0F0283628} Picture = :388AD Key = EndProperty BeginProperty ListImage4 {2C247F27859111D1B16A00C0F0283628} Picture = :39189 Key = EndProperty EndProperty End Begin Label2 BackStyle = 0 39。H000000FFamp。Transparent ForeColor = amp。 Height = 420 Left = 75 TabIndex = 8 Top = 4050 Width = 7890 EndEndAttribute VB_Name = main_xtwh_sjbfAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False39。聲明字符串變量Dim a As Integer 39。添加數(shù)據(jù)備份卡到列表中 If 0 Then a = 0 Do While 1 = a key = If Right(key, 3) mdb Then Set itmX = (, , key, 1) End If a = a + 1 Loop End If End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Dir1_Change() = Form_Load 39。 \ amp。 \ amp。獲取路徑End SubPrivate Sub Command1_Click() If = True Then 39。 備份卡 amp。 BAK If Dir(Mydatabase) Then MsgBox 今天的備份已完成！ Else FileCopy Trim(), Mydatabase MsgBox 數(shù)據(jù)備份成功！ key = Date amp。 Left$(, Len() 3) amp?；謴?fù)數(shù)據(jù)庫 If 0 Then FileCopy , am
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1