📄 form2.frm

📁 VB编写的退税管理系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   7560
      Width           =   1815
   End
   Begin VB.CommandButton Command8 
      Caption         =   "最后一条记录(&L)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6120
      TabIndex        =   5
      Top             =   7560
      Width           =   1695
   End
   Begin VB.CommandButton Command6 
      Caption         =   "后一条记录(&S)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4080
      TabIndex        =   4
      Top             =   7560
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "前一条记录(&P)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2160
      TabIndex        =   3
      Top             =   7560
      Width           =   1695
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   2160
      Top             =   7800
      Visible         =   0   'False
      Width           =   6375
      _ExtentX        =   11245
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   2
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   2
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zlgl.mdb;Persist Security Info=False"
      OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zlgl.mdb;Persist Security Info=False"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "出口货物退税申报数据"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.CommandButton Command5 
      Caption         =   "删除本记录(&D)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4080
      TabIndex        =   2
      Top             =   8160
      Width           =   1815
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00E0E0E0&
      Caption         =   "保存修改(&U)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6120
      TabIndex        =   1
      Top             =   8160
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "添加记录(&A)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2160
      TabIndex        =   0
      Top             =   8160
      Width           =   1695
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
On Error GoTo AddErr
    Adodc1.Recordset.MoveLast
     Adodc1.Recordset.AddNew
    'TDBGrid1.Row = TDBGrid1.Row + 1
    'TDBGrid1.SetFocus
  Exit Sub
AddErr:
  MsgBox Err.Description
End Sub

Private Sub Command10_Click()
Unload Me
'Form1.Show
End Sub

Private Sub Command11_Click()
Dim strQuery As String
Dim i As String
i = InputBox("请输入要查询的出口商品名称", "出口商品名称查询")
strQuery = "SELECT * FROM 出口货物退税申报数据 where 出口商品名称 = '" & i & "'"

Dim str As String '定义
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zlgl.mdb;Persist Security Info=False"
'注意上句是动态的数据库配置，而str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\hbj\zlgl.mdb;Persist Security Info=False"则是静态配置
Form8.Adodc1.ConnectionString = str
Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = strQuery
Form8.Adodc1.Refresh
Set Form8.DataGrid1.DataSource = Form8.Adodc1
Form8.Label1.Caption = "共为您查到了 " & Form8.Adodc1.Recordset.RecordCount & " 条记录"
Form8.Show
End Sub

Private Sub Command12_Click()
 
 
 Adodc1.Recordset("人民币金额") = Adodc1.Recordset("外币汇率") * Adodc1.Recordset("外币金额")
     Adodc1.Recordset.Update
     Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!征退税差额 = Adodc1.Recordset!人民币金额 * (Adodc1.Recordset!征税税率 - Adodc1.Recordset!退税率)
     Adodc1.Recordset.Update
      Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!应免抵退税额 = Adodc1.Recordset!人民币金额 * Adodc1.Recordset!退税率
     Adodc1.Recordset.Update
      Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!组成计税价格 = Adodc1.Recordset!人民币金额 * Adodc1.Recordset!计划分配率
    Adodc1.Recordset.Update
     Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!免抵退税扣减额 = Adodc1.Recordset!组成计税价格 * Adodc1.Recordset!退税率
    Adodc1.Recordset.Update
     Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
    Adodc1.Recordset!不予抵扣税额抵减额 = Adodc1.Recordset!组成计税价格 * (Adodc1.Recordset!征税税率 - Adodc1.Recordset!退税率)
  Adodc1.Recordset.Update
   Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
  Adodc1.Recordset!实际免抵退税额 = Adodc1.Recordset!应免抵退税额 - Adodc1.Recordset!免抵退税扣减额
  Adodc1.Recordset.Update
   Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext

'Adodc1.Recordset!人民币金额 = Adodc1.Recordset!外币汇率 * Adodc1.Recordset!外币金额
'注意上面的语句虽然可以得到正确的值，并能够显示出来，但不能存到数据库里，需要再加上update语句才能加到数据库中。
End Sub

Private Sub Command13_Click()
Dim strQuery As String
Dim i As String
i = InputBox("请输入要查询的公司名称", "公司名称查询")
strQuery = "SELECT * FROM 出口货物退税申报数据 where 公司名称 = '" & i & "'"

Dim str As String '定义
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zlgl.mdb;Persist Security Info=False"
'注意上句是动态的数据库配置，而str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\hbj\zlgl.mdb;Persist Security Info=False"则是静态配置
Form8.Adodc1.ConnectionString = str
Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = strQuery
Form8.Adodc1.Refresh
Set Form8.DataGrid1.DataSource = Form8.Adodc1
Form8.Label1.Caption = "共为您查到了 " & Form8.Adodc1.Recordset.RecordCount & " 条记录"
Form8.Show
End Sub

Private Sub Command2_Click()
If Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MovePrevious
End If
End Sub

Private Sub Command3_Click()
 On Error GoTo UpdateErr
      Adodc1.Recordset.CancelUpdate
    'TDBGrid1.SetFocus
    Exit Sub
UpdateErr:
  MsgBox Err.Description

End Sub

Private Sub Command4_Click()
 On Error GoTo UpdateErr
    Adodc1.Recordset.Update
    
     
 Adodc1.Recordset("人民币金额") = Adodc1.Recordset("外币汇率") * Adodc1.Recordset("外币金额")
     Adodc1.Recordset.Update
     Adodc1.Recordset.MovePrevious  '这句和下一句也很重要，去掉就不行
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!征退税差额 = Adodc1.Recordset!人民币金额 * (Adodc1.Recordset!征税税率 - Adodc1.Recordset!退税率)
     Adodc1.Recordset.Update
      Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!应免抵退税额 = Adodc1.Recordset!人民币金额 * Adodc1.Recordset!退税率
     Adodc1.Recordset.Update
      Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!组成计税价格 = Adodc1.Recordset!人民币金额 * Adodc1.Recordset!计划分配率
    Adodc1.Recordset.Update
     Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
     Adodc1.Recordset!免抵退税扣减额 = Adodc1.Recordset!组成计税价格 * Adodc1.Recordset!退税率
    Adodc1.Recordset.Update
     Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
    Adodc1.Recordset!不予抵扣税额抵减额 = Adodc1.Recordset!组成计税价格 * (Adodc1.Recordset!征税税率 - Adodc1.Recordset!退税率)
  Adodc1.Recordset.Update
   Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
  Adodc1.Recordset!实际免抵退税额 = Adodc1.Recordset!应免抵退税额 - Adodc1.Recordset!免抵退税扣减额
  Adodc1.Recordset.Update
   Adodc1.Recordset.MovePrevious
     Adodc1.Recordset.MoveNext
    'TDBGrid1.SetFocus
    Exit Sub
UpdateErr:
  MsgBox Err.Description
End Sub

Private Sub Command5_Click()
   prompt$ = "真的要删除本记录吗?"
rc = MsgBox(prompt$, vbOKCancel + vbQuestion, "删除本记录")
If rc = vbOK Then
    Adodc1.Recordset.Delete
    Adodc1.Recordset.MoveNext
    If Adodc1.Recordset.EOF = True Then
    Adodc1.Recordset.MoveLast
    End If

End If
    
End Sub

Private Sub Command6_Click()
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Command7_Click()
Dim strQuery As String
Dim i As String
i = InputBox("请输入要查询的出口日期", "出口日期查询")
strQuery = "SELECT * FROM 出口货物退税申报数据 where 出口日期 ='" & i & "'"
Dim str As String '定义
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zlgl.mdb;Persist Security Info=False"
Form8.Adodc1.ConnectionString = str
Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = strQuery
Form8.Adodc1.Refresh
Set Form8.DataGrid1.DataSource = Form8.Adodc1
Form8.Label1.Caption = "共为您查到了 " & Form8.Adodc1.Recordset.RecordCount & " 条记录"
Form8.Show
End Sub

Private Sub Command8_Click()
Adodc1.Recordset.MoveLast
End Sub

Private Sub Command9_Click()
Adodc1.Recordset.MoveFirst
End Sub

Private Sub Form_Load()
Form2.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zlgl.mdb;Persist Security Info=False"
Form2.Adodc1.CommandType = adCmdTable
Form2.Adodc1.RecordSource = "出口货物退税申报数据"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me

Form1.Show


End Sub
上一页 1 2 34
💿 文件大小 245 K
👤 上传用户 z3021440
📂 所属分类其他数据库
🏷️ 相关标签

#编写 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -