📄 fk_cailiao_caigoujingli.vb
字号:
yy = yy + 1
If yy = 2 Then
MsgBox("已经有了--.--,不能再输入了！", MsgBoxStyle.Information, "提示")
TextBox1.Focus()
Exit Sub
End If
End If
Else
MsgBox("请输入正确的数字，特别要分清----。----和---.----", MsgBoxStyle.Information, "提示")
TextBox14.Focus()
Exit Sub
End If
Next
If inty = 0 Then
inty = inty + 1
Exit Sub
Else
intz = Convert.ToDecimal(str1)
If intz <> 0 Then
int123 = intf / intz
TextBox4.Text = int123.ToString + "%"
Else
TextBox4.Text = "0%"
End If
End If
End Sub
Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged
Dim str2 As String = TextBox14.Text.Trim
If str2 = "" Then
str2 = "0"
Exit Sub
End If
Dim int1 As Decimal
Dim int2 As Decimal
Dim int3 As Decimal
Dim int As Decimal
int1 = Convert.ToDecimal(str2) '总额
int3 = Convert.ToDecimal(TextBox17.Text.Trim) '剩下金额
int = int3 / int1
int = int * 100
TextBox9.Text = int.ToString + "%"
End Sub
'已经提交工程付款申请单,显示到“已经提交”项中
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
ComboBox5.Enabled = True
Button1.Enabled = False
ComboBox5.Text = "已经提交申请单"
Button1.Enabled = False
Else
ComboBox5.Enabled = False
End If
Dim mydataset As New DataSet
Dim i As Integer
Dim y As Integer
Dim mystr As String
Dim str As String
mystr = "select 申请单编号 from fk_cailiao_shenqingdan where 标志 >" + Chr(39) + "1" + Chr(39)
mydataset = GetDataFromDB(mystr)
y = mydataset.Tables(0).Rows.Count
ComboBox5.Items.Clear()
For i = 0 To y - 1
str = Trim(mydataset.Tables(0).Rows(i)("申请单编号"))
ComboBox5.Items.Add(str)
Next
mydataset.Dispose()
End Sub
'没有提交的工程申请单,显示到“没有提交”项中
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
Button1.Enabled = False
ComboBox4.Enabled = True
Button1.Enabled = True
ComboBox4.Text = "待提交申请单"
Else
ComboBox4.Enabled = False
End If
Dim mydataset As New DataSet
Dim i As Integer
Dim y As Integer
Dim mystr As String
Dim str As String
mystr = "select 申请单编号 from fk_cailiao_shenqingdan where 标志 =" + Chr(39) + "1" + Chr(39)
mydataset = GetDataFromDB(mystr)
y = mydataset.Tables(0).Rows.Count
ComboBox4.Items.Clear()
For i = 0 To y - 1
str = Trim(mydataset.Tables(0).Rows(i)("申请单编号"))
ComboBox4.Items.Add(str)
Next
mydataset.Dispose()
End Sub
'根据工程申请单编号，显示关于该申请单的所有项目于界面上
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
Dim mydataset As New DataSet
Dim i As Integer
Dim y As Integer
Dim mystr As String
Dim str As String
mystr = "select * from fk_cailiao_shenqingdan where 申请单编号 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
mydataset = GetDataFromDB(mystr)
Me.DataGrid1.DataSource = mydataset
TextBox1.Text = Trim(mydataset.Tables(0).Rows(0)("申请单编号"))
ComboBox6.Text = Trim(mydataset.Tables(0).Rows(0)("收货单编号"))
ComboBox2.Text = Trim(mydataset.Tables(0).Rows(0)("订购单编号"))
ComboBox3.Text = Trim(mydataset.Tables(0).Rows(0)("工程编号"))
TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
DateTimePicker1.Value = Trim(mydataset.Tables(0).Rows(0)("发文日期"))
TextBox6.Text = Trim(mydataset.Tables(0).Rows(0)("付款内容"))
DateTimePicker2.Value = Trim(mydataset.Tables(0).Rows(0)("付款日期"))
TextBox8.Text = Trim(mydataset.Tables(0).Rows(0)("收款单位名称"))
ComboBox1.Text = Trim(mydataset.Tables(0).Rows(0)("开户银行"))
TextBox10.Text = Trim(mydataset.Tables(0).Rows(0)("银行帐号"))
TextBox11.Text = Trim(mydataset.Tables(0).Rows(0)("付款依据"))
TextBox12.Text = Trim(mydataset.Tables(0).Rows(0)("付款方式"))
TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("付款说明"))
TextBox14.Text = Trim(mydataset.Tables(0).Rows(0)("合同金额"))
TextBox15.Text = Trim(mydataset.Tables(0).Rows(0)("已付金额"))
TextBox16.Text = Trim(mydataset.Tables(0).Rows(0)("本次申请金额"))
TextBox17.Text = Trim(mydataset.Tables(0).Rows(0)("余额"))
mydataset.Dispose()
End Sub
'根据工程申请单编号，显示关于该申请单的所有项目于界面上
Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
Dim mydataset As New DataSet
Dim i As Integer
Dim y As Integer
Dim mystr As String
Dim str As String
mystr = "select * from fk_cailiao_shenqingdan where 申请单编号 =" + Chr(39) + ComboBox5.Text.Trim + Chr(39)
mydataset = GetDataFromDB(mystr)
DataGrid1.DataSource = mydataset
TextBox1.Text = Trim(mydataset.Tables(0).Rows(0)("申请单编号"))
ComboBox6.Text = Trim(mydataset.Tables(0).Rows(0)("收货单编号"))
ComboBox2.Text = Trim(mydataset.Tables(0).Rows(0)("订购单编号"))
ComboBox3.Text = Trim(mydataset.Tables(0).Rows(0)("工程编号"))
TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
DateTimePicker1.Value = Trim(mydataset.Tables(0).Rows(0)("发文日期"))
TextBox6.Text = Trim(mydataset.Tables(0).Rows(0)("付款内容"))
DateTimePicker2.Value = Trim(mydataset.Tables(0).Rows(0)("付款日期"))
TextBox8.Text = Trim(mydataset.Tables(0).Rows(0)("收款单位名称"))
ComboBox1.Text = Trim(mydataset.Tables(0).Rows(0)("开户银行"))
TextBox10.Text = Trim(mydataset.Tables(0).Rows(0)("银行帐号"))
TextBox11.Text = Trim(mydataset.Tables(0).Rows(0)("付款依据"))
TextBox12.Text = Trim(mydataset.Tables(0).Rows(0)("付款方式"))
TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("付款说明"))
TextBox14.Text = Trim(mydataset.Tables(0).Rows(0)("合同金额"))
TextBox15.Text = Trim(mydataset.Tables(0).Rows(0)("已付金额"))
TextBox16.Text = Trim(mydataset.Tables(0).Rows(0)("本次申请金额"))
TextBox17.Text = Trim(mydataset.Tables(0).Rows(0)("余额"))
mydataset.Dispose()
End Sub
'提交给下面一级操作，或者退回
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'判断用户提交的合法性
Dim mystr As String = TextBox100.Text.Trim
Dim str As String = "select user_pwd from UserInfo where user_id =" + Chr(39) + user_id_yj.Trim + Chr(39) + " and user_pwd =" + Chr(39) + mystr + Chr(39)
If GetDataFromDB(str).Tables(0).Rows.Count = 0 Then
MsgBox("您的密码错误,请重新输入！", MsgBoxStyle.Information, "提示")
TextBox100.Text = ""
TextBox100.Focus()
Exit Sub
End If
If RadioButton1.Checked = False Or ComboBox4.Text.Trim = "待提交申请单" Then
MsgBox("现在不能提交，请选择要提交的申请单编号！", MsgBoxStyle.Information, "提示")
Exit Sub
End If
'提交过程或者退回操作
If ComboBox8.Text.Trim = "同意" Then
If MsgBox("注意：请再好好复查一下，如果确定无误后再提交，提交后您将不能再进行修改了。你确定要提交吗？", MsgBoxStyle.OKCancel, "提示") = MsgBoxResult.OK Then
Dim sqlstr As String
Dim mysqlstr As String
sqlstr = "UPDATE fk_cailiao_shenqingdan SET 采购经理审批时间=" + Chr(39) + Now.Date.ToString + Chr(39) + " , 采购经理 =" + Chr(39) + UserName + Chr(39) + ",采购经理审批意见=" + Chr(39) + TextBox200.Text.Trim + Chr(39) + ",采购经理审批结果=" + Chr(39) + ComboBox8.Text.Trim + Chr(39) + ",标志=" + Chr(39) + "2" + Chr(39) + ",是否为退回=" + Chr(39) + "0" + Chr(39) + "where 申请单编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
If UpdateData(sqlstr) = True Then
MsgBox("已经成功提交了该申请！", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "提示")
Me.RadioButton2.Checked = True
Else
MsgBox("没能成功提交该订购资料，请与管理员联系", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "提示")
Exit Sub
End If
Else
Exit Sub
End If
Else
If MsgBox("您确定不同意该订购单要退回重新处理吗？", MsgBoxStyle.OKCancel, "提示") = MsgBoxResult.OK Then
Dim sqlstr As String
sqlstr = "UPDATE fk_cailiao_shenqingdan SET 采购经理审批时间=" + Chr(39) + Now.Date.ToString + Chr(39) + " , 采购经理 =" + Chr(39) + UserName + Chr(39) + ",采购经理审批意见=" + Chr(39) + TextBox200.Text.Trim + Chr(39) + ",采购经理审批结果=" + Chr(39) + ComboBox8.Text.Trim + Chr(39) + ",标志=" + Chr(39) + "0" + Chr(39) + ", 是否为退回=" + Chr(39) + "1" + Chr(39) + "where 申请单编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
If UpdateData(sqlstr) = True Then
MsgBox("您已经退回了该申请单！", MsgBoxStyle.Information, "提示")
Exit Sub
End If
Else
MsgBox("请确认后重新提交该申请单！", MsgBoxStyle.Information, "提示")
Exit Sub
End If
End If
End Sub
Private Sub ComboBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox8.SelectedIndexChanged
If ComboBox8.Text.Trim = "同意" Then
Button1.Text = "提 交"
Else
Button1.Text = "退 回"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If RadioButton1.Checked = False Or ComboBox4.Text.Trim = "待提交申请单" Then
MsgBox("请选择要预览的申请单号！", MsgBoxStyle.Information, "提示")
Exit Sub
Else
baobiao_str = ComboBox4.Text.Trim
Dim myform As New Frm_cailiaofukuan_baobiao
myform.Show()
End If
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -