开票情况修改.frm

来自「本软件为咨询公司开发的合同管理软件,运用MDB数据库.」· FRM 代码 · 共 513 行 · 第 1/2 页

 aa = MsgBox("你输入的数据正确吗?, 真的要保存数据吗?", vbYesNo, "保存按是, 否则按否!")

 
 If aa = 6 Then
 
   sqltr = "  编号 = '" & bh & "'" & " AND 票号 = '" & rq & "'"
   Set db1 = New ADODB.Connection
    db1.CursorLocation = adUseClient
    db1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dblj & ";Persist Security Info=False"
    db1.Execute ("UPDATE  开票情况表 SET 编号 = '" & Trim(Text1.Text) _
                               & "' , 部门 = '" & Trim(Text2.Text) _
                               & "' , 开票日期 = '" & CStr(Format(DTP1.Value, "yy-mm-dd")) _
                               & "' , 开票种类 = '" & Trim(Text4.Text) _
                               & "' , 开票金额 = '" & Trim(Text5.Text) _
                               & "' , 票号 = '" & Trim(Text6.Text) _
                               & "' , 开票人 = '" & Trim(Text7.Text) _
                               & "' , 备注 = '" & Trim(Text8.Text) & "'" & " WHERE " & sqltr)
  
db1.Close
 
 sqltr = "  编号 = '" & Trim(Text3.Text) & "'"
     Set db1 = New ADODB.Connection
    db1.CursorLocation = adUseClient
    db1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dblj & ";Persist Security Info=False"
    Set rs1 = New ADODB.Recordset
   sqltr = "select * from 开票情况表  where " & sqltr
   rs1.Open sqltr, db1, adOpenKeyset, adLockOptimistic
   res = rs1.RecordCount
 Grid1.Rows = res + 1
 For i = 0 To res
 If rs1.EOF = False Then
 Grid1.TextMatrix(i + 1, 1) = rs1!编号
 Grid1.TextMatrix(i + 1, 2) = rs1!部门
 Grid1.TextMatrix(i + 1, 3) = Format(rs1!开票日期, "yy-mm-dd")
 Grid1.TextMatrix(i + 1, 4) = rs1!开票种类
 Grid1.TextMatrix(i + 1, 5) = rs1!开票金额
 Grid1.TextMatrix(i + 1, 6) = rs1!票号
 Grid1.TextMatrix(i + 1, 7) = rs1!开票人
 Grid1.TextMatrix(i + 1, 8) = rs1!备注
 rs1.MoveNext
 End If
 Next i

rs1.Close
rs1.ActiveConnection = Nothing
db1.Close
 
 
 
 
 Text1.Text = ""
 Text2.Text = ""
 Text4.Text = ""
 Text5.Text = ""
 Text6.Text = ""
 Text7.Text = ""
 Text8.Text = ""
  End If
End If

End Sub

Private Sub Command2_Click()  '返回
  On Error GoTo ex
rs1.Close
rs1.ActiveConnection = Nothing
Unload Me

ex:
Unload Me


End Sub

Private Sub Command3_Click()  '确定
Dim sqltr As String
sqltr = ""
If Trim(Text3.Text) <> "" Then
 
Set db2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset
db2.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dblj & ";Persist Security Info=False"
sqlcx = "select * from  合同信息表 where 编号 = " & "'" & Trim(Text3.Text) & "'"
rs2.Open sqlcx, db2, adOpenKeyset, adLockBatchOptimistic
If rs2.EOF Then
aa = MsgBox("你输入的合同号不存在, 请重新输入", vbOKOnly)
开票情况修改.Caption = "项目单位名称："
Text3.Text = ""
Text3.SetFocus
Else

开票情况修改.Caption = ""
开票情况修改.Caption = "项目单位名称：" & 开票情况修改.Caption & rs2!单位名称 & "     签约人：" & rs2!签约人
End If

rs2.Close
rs2.ActiveConnection = Nothing
db2.Close
 
 
 sqltr = "  编号 = '" & Trim(Text3.Text) & "'"
     Set db1 = New ADODB.Connection
    db1.CursorLocation = adUseClient
    db1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dblj & ";Persist Security Info=False"
    Set rs1 = New ADODB.Recordset
   sqltr = "select * from 开票情况表  where " & sqltr
   rs1.Open sqltr, db1, adOpenKeyset, adLockOptimistic
   res = rs1.RecordCount
 Grid1.Rows = res + 1
 For i = 0 To res
 If rs1.EOF = False Then
 Grid1.TextMatrix(i + 1, 1) = rs1!编号
 Grid1.TextMatrix(i + 1, 2) = rs1!部门
 Grid1.TextMatrix(i + 1, 3) = Format(rs1!开票日期, "yy-mm-dd")
 Grid1.TextMatrix(i + 1, 4) = rs1!开票种类
 Grid1.TextMatrix(i + 1, 5) = rs1!开票金额
 Grid1.TextMatrix(i + 1, 6) = rs1!票号
 Grid1.TextMatrix(i + 1, 7) = rs1!开票人
 Grid1.TextMatrix(i + 1, 8) = rs1!备注
 rs1.MoveNext
 End If
 Next i
rs1.Close
rs1.ActiveConnection = Nothing
db1.Close
If res = 0 Then
    MsgBox "没有查询到你需要的数据", vbOKOnly, "信息提示!!"
    Text3.SetFocus
    Exit Sub

End If

     Else
    MsgBox "你没有输入需要查询的条件", vbOKOnly, "提示信息!"
    Text3.SetFocus

End If

End Sub

Private Sub Command4_Click() '重置
 Text1.Text = ""
 Text2.Text = ""
 Text4.Text = ""
 Text5.Text = ""
 Text6.Text = ""
 Text7.Text = ""
 Text8.Text = ""
 
 Text3.Text = ""
 Text3.SetFocus
End Sub

Private Sub Command5_Click()
If Trim(Text1.Text = "") Or Trim(Text2.Text = "") Or Trim(Text4.Text = "") Or Trim(Text5.Text = "") Or Trim(Text6.Text = "") Or Trim(Text7.Text = "") Or Trim(Text8.Text = "") Then
 MsgBox "录入的项目不能为空,请检查!!", vbOKOnly, "提示信息!!"
Else
 aa = MsgBox("你真的要删除数据吗?", vbYesNo, "删除按是, 否则按否!")

 
 If aa = 6 Then
 
   sqltr = "  编号 = '" & bh & "'" & " AND 票号 = '" & rq & "'"
   Set db1 = New ADODB.Connection
    db1.CursorLocation = adUseClient
    db1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dblj & ";Persist Security Info=False"
    db1.Execute ("DELETE  from 开票情况表  WHERE " & sqltr)
 End If
 End If
db1.Close

 sqltr = "  编号 = '" & Trim(Text3.Text) & "'"
     Set db1 = New ADODB.Connection
    db1.CursorLocation = adUseClient
    db1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dblj & ";Persist Security Info=False"
    Set rs1 = New ADODB.Recordset
   sqltr = "select * from 开票情况表  where " & sqltr
   rs1.Open sqltr, db1, adOpenKeyset, adLockOptimistic
   res = rs1.RecordCount
 Grid1.Rows = res + 1
 For i = 0 To res
 If rs1.EOF = False Then
 Grid1.TextMatrix(i + 1, 1) = rs1!编号
 Grid1.TextMatrix(i + 1, 2) = rs1!部门
 Grid1.TextMatrix(i + 1, 3) = Format(rs1!开票日期, "yy-mm-dd")
 Grid1.TextMatrix(i + 1, 4) = rs1!开票种类
 Grid1.TextMatrix(i + 1, 5) = rs1!开票金额
 Grid1.TextMatrix(i + 1, 6) = rs1!票号
 Grid1.TextMatrix(i + 1, 7) = rs1!开票人
 Grid1.TextMatrix(i + 1, 8) = rs1!备注
 rs1.MoveNext
 End If
 Next i
rs1.Close
rs1.ActiveConnection = Nothing
db1.Close

 
 Text1.Text = ""
 Text2.Text = ""
 Text4.Text = ""
 Text5.Text = ""
 Text6.Text = ""
 Text7.Text = ""
 Text8.Text = ""

End Sub

Private Sub Form_Activate()
Text3.SetFocus
End Sub

Private Sub Form_Load()
    'dblj = "c:\htgl\data\htxxk.mdb"

    Grid1.ColWidth(0) = 0
    Grid1.ColWidth(1) = 800
    Grid1.ColWidth(2) = 1900
    Grid1.ColWidth(3) = 1200
    Grid1.ColWidth(4) = 1200
    Grid1.ColWidth(5) = 1300
    Grid1.ColWidth(6) = 1200
    Grid1.ColWidth(7) = 1200
    Grid1.ColWidth(8) = 1850
    Grid1.Rows = 2
    Grid1.TextMatrix(0, 1) = "编  号"
    Grid1.TextMatrix(0, 2) = "   部  门"
    Grid1.TextMatrix(0, 3) = " 开票日期"
    Grid1.TextMatrix(0, 4) = " 开票种类"
    Grid1.TextMatrix(0, 5) = " 开票金额"
    Grid1.TextMatrix(0, 6) = " 票  号"
    Grid1.TextMatrix(0, 7) = " 开票人"
    Grid1.TextMatrix(0, 8) = " 备  注"

End Sub

Private Sub Grid1_Click()
    On Error GoTo cc
    If Grid1.Row = 0 Then Exit Sub

    Text1.Text = Trim(Grid1.TextMatrix(Grid1.Row, 1))
    Text2.Text = Trim(Grid1.TextMatrix(Grid1.Row, 2))
    DTP1.Value = CDate(Grid1.TextMatrix(Grid1.Row, 3))
    Text4.Text = Trim(Grid1.TextMatrix(Grid1.Row, 4))
    Text6.Text = Trim(Grid1.TextMatrix(Grid1.Row, 6))
    Text7.Text = Trim(Grid1.TextMatrix(Grid1.Row, 7))
    Text8.Text = Trim(Grid1.TextMatrix(Grid1.Row, 8))
    Text5.Text = Grid1.TextMatrix(Grid1.Row, 5)
    bh = Trim(Grid1.TextMatrix(Grid1.Row, 1))
    rq = Trim(Grid1.TextMatrix(Grid1.Row, 6))
cc:
    
End Sub