main_xtgl.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:8k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Begin VB.Form main_xtgl 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "数据库备份与恢复"
  7.    ClientHeight    =   4965
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   8655
  11.    Icon            =   "main_xtgl.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4965
  16.    ScaleWidth      =   8655
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  '所有者中心
  19.    Begin VB.Frame Frame2 
  20.       Caption         =   "请选择数据库路径"
  21.       Height          =   3540
  22.       Left            =   4545
  23.       TabIndex        =   6
  24.       Top             =   480
  25.       Width           =   4065
  26.       Begin VB.DriveListBox Drive1 
  27.          Height          =   300
  28.          Left            =   150
  29.          TabIndex        =   9
  30.          Top             =   255
  31.          Width           =   3750
  32.       End
  33.       Begin VB.DirListBox Dir1 
  34.          Height          =   720
  35.          Left            =   150
  36.          TabIndex        =   8
  37.          Top             =   630
  38.          Width           =   3750
  39.       End
  40.       Begin VB.FileListBox File1 
  41.          Height          =   2070
  42.          Left            =   150
  43.          Pattern         =   "*.BAK"
  44.          TabIndex        =   7
  45.          Top             =   1380
  46.          Width           =   3750
  47.       End
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       Caption         =   "备份卡列表"
  51.       Height          =   3540
  52.       Left            =   45
  53.       TabIndex        =   4
  54.       Top             =   480
  55.       Width           =   4350
  56.       Begin MSWinsockLib.Winsock Winsock1 
  57.          Left            =   270
  58.          Top             =   2985
  59.          _ExtentX        =   741
  60.          _ExtentY        =   741
  61.          _Version        =   393216
  62.       End
  63.       Begin MSComctlLib.ListView ListView1 
  64.          Height          =   3180
  65.          Left            =   120
  66.          TabIndex        =   5
  67.          Top             =   240
  68.          Width           =   4050
  69.          _ExtentX        =   7144
  70.          _ExtentY        =   5609
  71.          Sorted          =   -1  'True
  72.          LabelWrap       =   0   'False
  73.          HideSelection   =   -1  'True
  74.          HoverSelection  =   -1  'True
  75.          _Version        =   393217
  76.          Icons           =   "ImageList1"
  77.          SmallIcons      =   "ImageList1"
  78.          ForeColor       =   -2147483640
  79.          BackColor       =   -2147483643
  80.          BorderStyle     =   1
  81.          Appearance      =   1
  82.          NumItems        =   1
  83.          BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  84.             Object.Width           =   2540
  85.          EndProperty
  86.       End
  87.    End
  88.    Begin VB.OptionButton Option2 
  89.       Caption         =   "数据恢复"
  90.       Height          =   300
  91.       Left            =   6360
  92.       TabIndex        =   3
  93.       Top             =   90
  94.       Width           =   1740
  95.    End
  96.    Begin VB.OptionButton Option1 
  97.       Caption         =   "数据备份"
  98.       Height          =   300
  99.       Left            =   4605
  100.       TabIndex        =   2
  101.       Top             =   90
  102.       Width           =   1740
  103.    End
  104.    Begin VB.CommandButton CmdEnd 
  105.       Caption         =   "退出"
  106.       Height          =   420
  107.       Left            =   4350
  108.       TabIndex        =   1
  109.       Top             =   4455
  110.       Width           =   1830
  111.    End
  112.    Begin VB.CommandButton CmdBackup 
  113.       Caption         =   "数据备份或数据恢复"
  114.       Height          =   420
  115.       Left            =   2520
  116.       TabIndex        =   0
  117.       Top             =   4455
  118.       Width           =   1830
  119.    End
  120.    Begin MSComctlLib.ImageList ImageList1 
  121.       Left            =   -135
  122.       Top             =   1560
  123.       _ExtentX        =   1005
  124.       _ExtentY        =   1005
  125.       BackColor       =   -2147483643
  126.       ImageWidth      =   32
  127.       ImageHeight     =   32
  128.       MaskColor       =   12632256
  129.       _Version        =   393216
  130.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  131.          NumListImages   =   2
  132.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "main_xtgl.frx":000C
  134.             Key             =   ""
  135.          EndProperty
  136.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  137.             Picture         =   "main_xtgl.frx":08E8
  138.             Key             =   ""
  139.          EndProperty
  140.       EndProperty
  141.    End
  142.    Begin VB.Label Label2 
  143.       BackStyle       =   0  'Transparent
  144.       Caption         =   "请选择数据备份或数据恢复选项"
  145.       ForeColor       =   &H000000FF&
  146.       Height          =   300
  147.       Left            =   75
  148.       TabIndex        =   11
  149.       Top             =   120
  150.       Width           =   2580
  151.    End
  152.    Begin VB.Label Label1 
  153.       BackStyle       =   0  'Transparent
  154.       ForeColor       =   &H000000FF&
  155.       Height          =   375
  156.       Left            =   60
  157.       TabIndex        =   10
  158.       Top             =   4050
  159.       Width           =   8025
  160.    End
  161. End
  162. Attribute VB_Name = "main_xtgl"
  163. Attribute VB_GlobalNameSpace = False
  164. Attribute VB_Creatable = False
  165. Attribute VB_PredeclaredId = True
  166. Attribute VB_Exposed = False
  167. Dim StrCnn As New Connection     '定义连接
  168. Dim itmX As ListItem     '定义一个ListItem对象
  169. Dim key, list, sql As String     '定义字符串变量
  170. Private Sub Form_Load()
  171.  Option1.Value = True     '设置Option1的值为真
  172.  Dir1_Change
  173. End Sub
  174. Private Sub Dir1_Change()
  175.  File1.Path = Dir1.Path
  176.  '添加数据备份卡到列表中
  177.  ListView1.ListItems.Clear
  178.  If File1.ListCount <> 0 Then
  179.   a = 0     '给变量a设置初值
  180.   Do While File1.ListIndex < File1.ListCount - 1
  181.     File1.ListIndex = a     '赋值给变量a
  182.     key = File1.FileName
  183.     Set itmX = ListView1.ListItems.Add(, , key, 1)
  184.     a = a + 1
  185.   Loop
  186.  End If
  187.  File1_Click
  188. End Sub
  189. Private Sub Drive1_Change()
  190.  Dir1.Path = Drive1.Drive
  191. End Sub
  192. Private Sub File1_Click()
  193.  Label1.Caption = Dir1.Path & "" & File1.FileName     '获得路径
  194. End Sub
  195. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  196.   Shell App.Path & "人力资源管理系统.exe", vbNormalFocus
  197.   End
  198. End Sub
  199. Private Sub ListView1_Click()
  200.  Label1.Caption = Dir1.Path & "" & ListView1.SelectedItem     '获得路径
  201. End Sub
  202. Private Sub CmdBackup_Click()
  203.  Dim S
  204.  If Option1.Value = True Then
  205.  '备份数据库
  206.    S = Dir1.Path & "" & Date & ".BAK"
  207.    If Label1.Caption = S Then
  208.     MsgBox "数据备份卡已存在!", , "提示窗口"
  209.    Else
  210.     StrCnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"
  211.     '备份SQL Server数据库
  212.     sql = "backup DATABASE db_manpowerinfo TO disk='" & S & "'"
  213.     StrCnn.Execute (sql)     '执行SQL语句
  214.     StrCnn.Close
  215.     MsgBox "数据库备份成功!"
  216.     key = Date & ".BAK"
  217.     Set itmX = ListView1.ListItems.Add(, , key, 1)
  218.    End If
  219.  End If
  220.  If Option2.Value = True Then
  221. '恢复指定路径下的数据库
  222.   If File1.ListCount <> 0 Then
  223.    If Label1.Caption <> "" Then
  224.     StrCnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=" & Winsock1.LocalHostName
  225.     '数据恢复语句
  226.     sql = "RESTORE DATABASE db_manpowerinfo from disk='" & Label1.Caption & "'"
  227.     StrCnn.Execute (sql)     '执行SQL语句
  228.     StrCnn.Close
  229.     MsgBox "数据库恢复成功!", , "提示窗口"
  230.    Else
  231.     MsgBox "请选择要恢复的数据备份卡!", , "提示窗口"
  232.    End If
  233.   Else
  234.    MsgBox "请选择要恢复的数据备份卡!", , "提示窗口"
  235.   End If
  236.  End If
  237. End Sub
  238. Private Sub CmdEnd_Click()
  239.   Shell App.Path & "人力资源管理系统.exe", vbNormalFocus
  240.   End
  241. End Sub