fk_cailiao_caigouwenyuan.vb
来自「本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等」· VB 代码 · 共 1,424 行 · 第 1/4 页
VB
1,424 行
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
Button5.Enabled = False
Button3.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) + "0" + 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
Button5.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) + "0" + 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)
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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If RadioButton1.Checked = False Then
MsgBox("请选择要更新申请单号！", MsgBoxStyle.Information, "提示")
Exit Sub
End If
Dim sssstr As String
If CheckBox1.Checked = True Then
sssstr = ComboBox6.Text.Trim
Else
sssstr = "预付款"
End If
Dim sqlstr As String
sqlstr = "UPDATE fk_cailiao_shenqingdan SET 收货单编号 =" + Chr(39) + Trim(sssstr) + Chr(39) + ",订购单编号 =" + Chr(39) + Trim(ComboBox6.Text.Trim) + Chr(39) + ",发文日期 =" + Chr(39) + Trim(DateTimePicker1.Value.Date) + Chr(39) + ",工程名称 =" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",工程编号 =" + Chr(39) + Trim(ComboBox3.Text) + Chr(39) + ",付款内容 =" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + ",付款日期 =" + Chr(39) + Trim(DateTimePicker2.Value.Date) + Chr(39) + ",收款单位名称 =" + Chr(39) + Trim(TextBox8.Text) + Chr(39) + ",开户银行 =" + Chr(39) + Trim(ComboBox1.Text) + Chr(39) + ",银行帐号 =" + Chr(39) + Trim(TextBox10.Text) + Chr(39) + ",付款依据 =" + Chr(39) + Trim(TextBox11.Text) + Chr(39) + ",付款方式 =" + Chr(39) + Trim(TextBox12.Text) + Chr(39) + ",合同金额 =" + Chr(39) + Trim(TextBox14.Text) + Chr(39) + ",已付金额 =" + Chr(39) + Trim(TextBox15.Text) + Chr(39) + ",本次申请金额 =" + Chr(39) + Trim(TextBox16.Text) + Chr(39) + ",余额 =" + Chr(39) + Trim(TextBox17.Text) + Chr(39) + ",付款说明 =" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + " where 申请单编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
If UpdateData(sqlstr) = True Then
MsgBox("已经成功更新该信息", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "更新")
Else
MsgBox("没有成功更新该信息", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "更新")
Exit Sub
End If
End Sub
'新建，清空编号
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = ""
TextBox17.Text = ""
TextBox16.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
Button1.Enabled = True
End Sub
'删除
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If RadioButton1.Checked = False Then
MsgBox("请选择要删除的项的编号！", MsgBoxStyle.Information, "提示")
RadioButton1.Checked = True
Exit Sub
End If
Dim sqlstr As String
sqlstr = "delete fk_cailiao_shenqingdan where 申请单编号 = " + Chr(39) + ComboBox4.Text.Trim + Chr(39)
If MsgBox("确定要删除吗？", MsgBoxStyle.YesNo, "删除") = MsgBoxResult.No Then
Exit Sub
End If
If UpdateData(sqlstr) = True Then
MsgBox("已经成功删除该信息", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "删除")
Else
MsgBox("没有成功删除该信息", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "删除")
Exit Sub
End If
End Sub
'提交申请单
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If RadioButton1.Checked = False Then
MsgBox("请选择要提交的项的编号！", MsgBoxStyle.Information, "提示")
RadioButton1.Checked = True
Exit Sub
End If
Dim sqlstr As String
sqlstr = "UPDATE fk_cailiao_shenqingdan SET 标志 =" + Chr(39) + "1" + Chr(39) + " where 申请单编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
If UpdateData(sqlstr) = True Then
MsgBox("已经成功提交该信息", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "提交")
RadioButton2.Checked = True
Else
MsgBox("没有成功提交该信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
MsgBoxStyle.Exclamation, "提交")
Exit Sub
End If
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
'在ComboBox6中显示收货单号
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
CheckBox3.Checked = False
ComboBox6.Enabled = True
Dim str As String
Dim mydataset As New DataSet
str = "select 收货单编号 from fk_cailiao_shouhuo_zhudan where 标志 = " + Chr(39) + "2" + Chr(39)
mydataset = GetDataFromDB(str)
Dim sstr As String
Dim i, y As Integer
ComboBox6.Items.Clear()
y = mydataset.Tables(0).Rows.Count
For i = 0 To y - 1
sstr = Trim(mydataset.Tables(0).Rows(i)("收货单编号"))
ComboBox6.Items.Add(sstr)
Next
mydataset.Dispose()
Else
ComboBox6.Enabled = False
CheckBox3.Checked = True
End If
End Sub
'在ComboBox2中显示订购单号
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
ComboBox2.Enabled = True
Dim str As String
Dim mydataset As New DataSet
str = "select 采购单编号 from dinggou_zongbiao where 流程 = " + Chr(39) + "5" + Chr(39)
mydataset = GetDataFromDB(str)
Dim sstr As String
Dim i, y As Integer
ComboBox2.Items.Clear()
y = mydataset.Tables(0).Rows.Count
For i = 0 To y - 1
sstr = mydataset.Tables(0).Rows(i)("采购单编号")
ComboBox2.Items.Add(sstr)
Next
mydataset.Dispose()
Else
ComboBox2.Enabled = False
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox2.Checked = False Then
MsgBox("请先选择订购单号！")
CheckBox1.Checked = True
CheckBox3.Checked = False
Exit Sub
Else
If ComboBox2.Text = "订购单号" Then
MsgBox("您还没有选择订购单号！")
CheckBox1.Checked = False
CheckBox1.Checked = True
CheckBox3.Checked = False
Exit Sub
End If
Dim str As String
str = "select * from fk_cailiao_shenqingdan where 订购单编号 = " + Chr(39) + ComboBox2.Text.Trim + Chr(39) + "and 收货单编号 = " + Chr(39) + "预付款" + Chr(39)
Dim i As Integer
If i = GetDataFromDB(str).Tables(0).Rows.Count > 0 Then
MsgBox("该订购单已经有了预付款，不能再有预付款申请单！", MsgBoxStyle.Information, "提示")
CheckBox3.Checked = True
Exit Sub
End If
CheckBox1.Checked = False
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If CheckBox2.Checked = False Or ComboBox2.Text.Trim = "订购单号" Then
MsgBox("请选择订购单号！", MsgBoxStyle.Information, "提示")
Exit Sub
End If
baobiao_str = ComboBox2.Text.Trim
Dim str As String
str = "select 选择的供应商名称 from dinggou_zongbiao where 采购单编号 =" + Chr(39) + baobiao_str + Chr(39)
Dim mydataset As New DataSet
mydataset = GetDataFromDB(str)
baobiao_str1 = Trim(mydataset.Tables(0).Rows(0)("选择的供应商名称"))
Dim myform As New frm_dg_baobiao
myform.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If CheckBox1.Checked = False Or ComboBox6.Text.Trim = "收货单号" Then
MsgBox("请选择收货单号！", MsgBoxStyle.Information, "提示")
Exit Sub
End If
baobiao_str = ComboBox6.Text.Trim
Dim myform As New Frm_shuohuodan
myform.Show()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.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 + =
减小字号Ctrl + -
显示快捷键?