form1.frm

VB编写的退税管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   BackColor       =   &H00FFC0C0&
   Caption         =   "退税管理系统"
   ClientHeight    =   7500
   ClientLeft      =   2535
   ClientTop       =   1575
   ClientWidth     =   12840
   FillColor       =   &H00FFFFFF&
   FontTransparent =   0   'False
   ForeColor       =   &H00C00000&
   LinkTopic       =   "Form1"
   ScaleHeight     =   7500
   ScaleWidth      =   12840
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   240
      Top             =   1080
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483630
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   255
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   16
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":0502
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":0A06
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":0F0A
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":140E
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1912
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1EA4
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":23E2
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":28E4
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":2F0E
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":3538
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":3B62
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":40F4
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":471E
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":4B30
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":5032
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   12840
      _ExtentX        =   22648
      _ExtentY        =   1085
      ButtonWidth     =   2725
      ButtonHeight    =   926
      Wrappable       =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "出口退税数据录入"
            Key             =   "modipwd"
            Object.ToolTipText     =   "出口退税数据录入"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "用户管理"
            Key             =   "guanli"
            Object.ToolTipText     =   "用户管理"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "出口免税数据录入"
            Key             =   "add_user"
            Object.ToolTipText     =   "出口免税数据录入"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "进料免税数据录入"
            Key             =   "bar_backup"
            Object.ToolTipText     =   "进料免税数据录入"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "整体界面浏览"
            Key             =   "zhengti"
            Object.ToolTipText     =   "整体界面浏览"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "报表打印"
            Key             =   "report"
            Object.ToolTipText     =   "报表打印"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "使用说明"
            Key             =   "bar_auto"
            Object.ToolTipText     =   "使用说明"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "版本信息"
            Key             =   "bar_hand"
            Object.ToolTipText     =   "版本信息"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出系统"
            Key             =   "bar_close"
            Object.ToolTipText     =   "退出系统"
            ImageIndex      =   8
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "完成日期：2004/5/30"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   5280
      TabIndex        =   2
      Top             =   5640
      Width           =   2655
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "制作人："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   5280
      TabIndex        =   1
      Top             =   5040
      Width           =   3135
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "对外贸易公司退税管理系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   4080
      TabIndex        =   0
      Top             =   3120
      Width           =   5895
   End
   Begin VB.Menu xitong 
      Caption         =   "系统管理(&X)"
      Begin VB.Menu yongfu 
         Caption         =   "用户管理(&G)"
      End
   End
   Begin VB.Menu mnufile 
      Caption         =   "数据库数据管理(&F)"
      Begin VB.Menu centerfile 
         Caption         =   "出口货物退税申报数据录入(&C)"
      End
      Begin VB.Menu shengfile 
         Caption         =   "出口货物免税申报数据录入(&S)"
      End
      Begin VB.Menu taifile 
         Caption         =   "进料加工复出口贸易免税数据录入(&T)"
      End
      Begin VB.Menu zt 
         Caption         =   "整体界面浏览模式"
      End
      Begin VB.Menu a1 
         Caption         =   "-"
      End
      Begin VB.Menu report 
         Caption         =   "数据报表打印(&R)"
      End
   End
   Begin VB.Menu explain 
      Caption         =   "使用说明(&S)"
   End
   Begin VB.Menu info 
      Caption         =   "版本信息(&X)"
   End
   Begin VB.Menu exit 
      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub back_Click()

End Sub

Private Sub centerfile_Click()
'Form1.Hide    '隐藏窗体1
Load Form2    '加载窗体2
Form2.Show    '显示窗体2
End Sub

Private Sub exit_Click()
prompt$ = "真的要退出本程序吗?"
rc = MsgBox(prompt$, vbOKCancel + vbQuestion, "退出")  'msgbox弹出询问对话框，问用户是不是确实要退出，并把用户的反应值送给变量rs
If rc = vbOK Then  '如果按下了"确定"按钮
End     '退出本程序
End If
End Sub

Private Sub explain_Click()
Shell "notepad.exe text1.txt", vbNormalFocus
'调用函数shell打开文本文件text1.text
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End   '退出本程序
End Sub

Private Sub haf_Click()
Form1.Hide     '隐藏窗体1
Load Form9     '加载窗体5
Form9.Show     '显示窗体5
End Sub

Private Sub info_Click()
Load frmAbout        '加载about窗体
frmAbout.Show        '显示about窗体
End Sub

Private Sub qitafile_Click()  '点击子菜单""触发的事件
'Form1.Hide     '隐藏窗体1
Load Form4     '加载窗体5
Form4.Show     '显示窗体5
End Sub

Private Sub report_Click()
Form5.Show
End Sub

Private Sub shengfile_Click()  '点击子菜单""触发的事件
'Form1.Hide     '隐藏窗体1
Load Form3     '加载窗体3
Form3.Show     '显示窗体3
End Sub

Private Sub taifile_Click()     '点击子菜单""触发的事件
'Form1.Hide     '隐藏窗体1
Load Form4     '加载窗体4
Form4.Show     '显示窗体4
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "modipwd"
        centerfile_Click
    Case "guanli"
        yongfu_Click
    Case "add_user"
        shengfile_Click
    Case "bar_backup"
        taifile_Click
    Case "zhengti"
        zt_Click
    Case "report"
       report_Click
    Case "bar_auto"
        explain_Click
    Case "bar_hand"
        info_Click
    Case "bar_close"
        exit_Click
  End Select
End Sub

Private Sub yongfu_Click()
Form9.Show
End Sub

Private Sub zt_Click()
Form6.Show     '显示窗体6
End Sub