📄 formspdj.frm
字号:
Left = 3000
TabIndex = 12
Top = 1440
Width = 975
End
Begin VB.Label Label5
Caption = "增票号码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 9
Top = 1440
Width = 975
End
Begin VB.Label Label4
Caption = "收票日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3000
TabIndex = 7
Top = 960
Width = 1095
End
Begin VB.Label Label3
Caption = "开票日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 5
Top = 960
Width = 975
End
Begin VB.Label Label2
Caption = "单位名称"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3000
TabIndex = 1
Top = 480
Width = 1335
End
Begin VB.Label Label1
Caption = "日 期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 0
Top = 480
Width = 1095
End
End
Attribute VB_Name = "Formspdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And Text5.Text <> "" And Text6.Text <> "" And Formspdj.Combo1.Text <> "" And Text7.Text <> "" And Text8.Text <> "" And Text9.Text <> "" Then
If Formspdj.Label8.Caption = "增票签收登记" Then
Set rst = db.OpenRecordset("zpdj", 2)
je = Text7.Text
n = Mid(Text4.Text, 1, 4)
y = Mid(Text4.Text, 6, 2)
r = Mid(Text4.Text, 9, 2)
If y + 3 > 12 Then
n = n + 1
y = y + 3 - 12
End If
If y < 10 Then y = "0" + y
If r < 10 Then r = "0" + r
sxrq = Str(n) + "-" + Str(y) + "-" + Str(r)
jzrq = ""
If Combo1.Text = "是" Then jzrq = Text1.Text
'MsgBox sxrq
sql = "insert into zpdj values('" + Text1.Text + "','" + Text3.Text + "','" + Text5.Text + "','" + Text4.Text + "'," + Text7.Text + ",'" + sxrq + "','" + Formspdj.Combo1.Text + "','" + Text6.Text + "','" + jzrq + "','" + Text8.Text + "','" + Text9.Text + "','" + Text2.Text + "')"
db.Execute sql
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Formspdj.Combo1.Text = "否"
Else
If Formspdj.Label8.Caption = "登记未记帐增票" Then
'Set rst = db.OpenRecordset("zpdj", 2)
'sql = "update zpdj set zjrq='" + Text1.Text + "',jz='是' where djbh='" + Text6.Text + "' and dw='" + Text3.Text + "'"
'db.Execute sql
rst.MoveFirst
Do While rst.EOF = False
If rst.Fields("dw") = Text3.Text And rst.Fields("djbh") = Text6.Text Then
' MsgBox ""
rst.Edit
rst.Fields("jz") = "是"
rst.Fields("jzrq") = Text1.Text
rst.Update
rst.MoveLast
End If
rst.MoveNext
Loop
Formspdj.Label1.Caption = "日期"
Formspdj.Label8.Caption = "增票签收登记"
Formspdj.Command1.Caption = "增票登记保存'"
Formspdj.Text4.Text = ""
Formspdj.Text5.Text = ""
Formspdj.Text6.Text = ""
Formspdj.Text7.Text = ""
Formspdj.Text8.Text = ""
Formspdj.Text9.Text = ""
Formspdj.Combo1.Text = ""
Formspdj.MSFlexGrid1.Rows = 1
Formspdj.MSFlexGrid1.Cols = 1
End If
End If
Set rst = db.OpenRecordset("zpdj", 2)
'sql = "select * from zpdj where jz='否'"
'rst.Requery
'db.Execute sql
rst.MoveFirst
Formspdj.MSFlexGrid1.Rows = 1
Formspdj.MSFlexGrid1.Cols = 11
Formspdj.MSFlexGrid1.FormatString = " 单 位 名 称 | 收票日期 | 单 据 编 号 | 金 额 | 税 额 | 总 金 额 |||||"
' Formspdj.MSFlexGrid1.Row = 1
' Formspdj.MSFlexGrid1.Col = 0
Do While rst.EOF = False
'If rst.Fields("jz") = "否" And rst.Fields("dw") = Text3.Text Then
Formspdj.MSFlexGrid1.Rows = Formspdj.MSFlexGrid1.Rows + 1
Formspdj.MSFlexGrid1.Row = Formspdj.MSFlexGrid1.Rows - 1
Formspdj.MSFlexGrid1.Col = 0
Formspdj.MSFlexGrid1.Text = rst.Fields("dwmch")
Formspdj.MSFlexGrid1.Col = 1
Formspdj.MSFlexGrid1.Text = rst.Fields("jsrq")
Formspdj.MSFlexGrid1.Col = 2
Formspdj.MSFlexGrid1.Text = rst.Fields("djbh")
Formspdj.MSFlexGrid1.Col = 3
Formspdj.MSFlexGrid1.Text = rst.Fields("je")
Formspdj.MSFlexGrid1.Col = 4
Formspdj.MSFlexGrid1.Text = rst.Fields("se")
Formspdj.MSFlexGrid1.Col = 5
Formspdj.MSFlexGrid1.Text = rst.Fields("zje")
Formspdj.MSFlexGrid1.Col = 6
Formspdj.MSFlexGrid1.Text = rst.Fields("zje")
Formspdj.MSFlexGrid1.Col = 7
Formspdj.MSFlexGrid1.Text = rst.Fields("rq")
Formspdj.MSFlexGrid1.Col = 8
Formspdj.MSFlexGrid1.Text = rst.Fields("dw")
Formspdj.MSFlexGrid1.Col = 9
Formspdj.MSFlexGrid1.Text = rst.Fields("kprq")
Formspdj.MSFlexGrid1.Col = 10
Formspdj.MSFlexGrid1.Text = rst.Fields("dqrq")
'End If
rst.MoveNext
Loop
Else
MsgBox "请完整选择与输入数据!"
End If
End Sub
Private Sub Command2_Click()
If Text2.Text = "" Or Text3.Text = "" Then
MsgBox "请选择单位!"
Else
Set rst = db.OpenRecordset("zpdj", 2)
'sql = "select * from zpdj where jz='否'"
'rst.Requery
'db.Execute sql
rst.MoveFirst
Formspdj.MSFlexGrid1.Rows = 1
Formspdj.MSFlexGrid1.Cols = 10
Formspdj.MSFlexGrid1.FormatString = " 收票日期 | 单 据 编 号 | 金 额 | 税 额 | 总 金 额 |||||"
' Formspdj.MSFlexGrid1.Row = 1
' Formspdj.MSFlexGrid1.Col = 0
Do While rst.EOF = False
If rst.Fields("jz") = "否" And rst.Fields("dw") = Text3.Text Then
Formspdj.MSFlexGrid1.Rows = Formspdj.MSFlexGrid1.Rows + 1
Formspdj.MSFlexGrid1.Row = Formspdj.MSFlexGrid1.Rows - 1
Formspdj.MSFlexGrid1.Col = 0
Formspdj.MSFlexGrid1.Text = rst.Fields("jsrq")
Formspdj.MSFlexGrid1.Col = 1
Formspdj.MSFlexGrid1.Text = rst.Fields("djbh")
Formspdj.MSFlexGrid1.Col = 2
Formspdj.MSFlexGrid1.Text = rst.Fields("je")
Formspdj.MSFlexGrid1.Col = 3
Formspdj.MSFlexGrid1.Text = rst.Fields("se")
Formspdj.MSFlexGrid1.Col = 4
Formspdj.MSFlexGrid1.Text = rst.Fields("zje")
Formspdj.MSFlexGrid1.Col = 5
Formspdj.MSFlexGrid1.Text = rst.Fields("zje")
Formspdj.MSFlexGrid1.Col = 6
Formspdj.MSFlexGrid1.Text = rst.Fields("rq")
Formspdj.MSFlexGrid1.Col = 7
Formspdj.MSFlexGrid1.Text = rst.Fields("dw")
Formspdj.MSFlexGrid1.Col = 8
Formspdj.MSFlexGrid1.Text = rst.Fields("kprq")
Formspdj.MSFlexGrid1.Col = 9
Formspdj.MSFlexGrid1.Text = rst.Fields("dqrq")
End If
rst.MoveNext
Loop
'Formspdj.MSFlexGrid1.Rows = rst.RecordCount + 1
Formspdj.Label8.Caption = "登记未记帐增票"
Formspdj.Label1.Caption = "登记日期"
Formspdj.Command1.Caption = "增票记帐保存"
If Formspdj.MSFlexGrid1.Rows = 1 Then
MsgBox "没有未记帐的数据!"
Else
End If
End If
'MsgBox "找到" + Str(Formspdj.MSFlexGrid1.Rows) + "条记录."
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = Date
Set db = OpenDatabase(App.Path & "\data\cw.mdb", False, False, "ms access;pwd=")
Set rst = db.OpenRecordset("zpdj", 2)
'sql = "select * from zpdj where jz='否'"
'rst.Requery
'db.Execute sql
If rst.EOF = True And rst.BOF = True Then
MsgBox "记录为空!"
Else
rst.MoveFirst
Formspdj.MSFlexGrid1.Rows = 1
Formspdj.MSFlexGrid1.Cols = 11
Formspdj.MSFlexGrid1.FormatString = " 单 位 名 称 | 收票日期 | 单 据 编 号 | 金 额 | 税 额 | 总 金 额 |||||"
' Formspdj.MSFlexGrid1.Row = 1
' Formspdj.MSFlexGrid1.Col = 0
Do While rst.EOF = False
'If rst.Fields("jz") = "否" And rst.Fields("dw") = Text3.Text Then
Formspdj.MSFlexGrid1.Rows = Formspdj.MSFlexGrid1.Rows + 1
Formspdj.MSFlexGrid1.Row = Formspdj.MSFlexGrid1.Rows - 1
Formspdj.MSFlexGrid1.Col = 0
Formspdj.MSFlexGrid1.Text = rst.Fields("dwmch")
Formspdj.MSFlexGrid1.Col = 1
Formspdj.MSFlexGrid1.Text = rst.Fields("jsrq")
Formspdj.MSFlexGrid1.Col = 2
Formspdj.MSFlexGrid1.Text = rst.Fields("djbh")
Formspdj.MSFlexGrid1.Col = 3
Formspdj.MSFlexGrid1.Text = rst.Fields("je")
Formspdj.MSFlexGrid1.Col = 4
Formspdj.MSFlexGrid1.Text = rst.Fields("se")
Formspdj.MSFlexGrid1.Col = 5
Formspdj.MSFlexGrid1.Text = rst.Fields("zje")
Formspdj.MSFlexGrid1.Col = 6
Formspdj.MSFlexGrid1.Text = rst.Fields("zje")
Formspdj.MSFlexGrid1.Col = 7
Formspdj.MSFlexGrid1.Text = rst.Fields("rq")
Formspdj.MSFlexGrid1.Col = 8
Formspdj.MSFlexGrid1.Text = rst.Fields("dw")
Formspdj.MSFlexGrid1.Col = 9
Formspdj.MSFlexGrid1.Text = rst.Fields("kprq")
Formspdj.MSFlexGrid1.Col = 10
Formspdj.MSFlexGrid1.Text = rst.Fields("dqrq")
'End If
rst.MoveNext
Loop
End If
End Sub
Private Sub MSFlexGrid1_DblClick()
Formspdj.MSFlexGrid1.Col = 0
If MsgBox("请问要选择接收日期" + Formspdj.MSFlexGrid1.Text + Text2.Text + "的记录吗?", vbOKCancel, "系统提示") = 1 Then
Text1.Text = Date
Formspdj.MSFlexGrid1.Col = 5
Text4.Text = Formspdj.MSFlexGrid1.Text
Formspdj.MSFlexGrid1.Col = 0
Text5.Text = Formspdj.MSFlexGrid1.Text
Formspdj.MSFlexGrid1.Col = 1
Text6.Text = Formspdj.MSFlexGrid1.Text
Formspdj.MSFlexGrid1.Col = 2
Text7.Text = Formspdj.MSFlexGrid1.Text
Formspdj.Combo1.Text = "否"
Formspdj.MSFlexGrid1.Col = 3
Text8.Text = Formspdj.MSFlexGrid1.Text
Formspdj.MSFlexGrid1.Col = 4
Text9.Text = Formspdj.MSFlexGrid1.Text
'MsgBox ""
End If
End Sub
Private Sub Text2_DblClick()
Formdwzl.Command3.Caption = "选择"
Formdwzl.Show 1
Formdwzl.Command3.Caption = "选择"
End Sub
Private Sub Text4_DblClick()
Formrq.Text1.Text = "4"
Formrq.Show 1
Formrq.Text1.Text = "4"
End Sub
Private Sub Text5_DblClick()
Formrq.Text1.Text = "5"
Formrq.Show 1
Formrq.Text1.Text = "5"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -