【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-FrmCOModifyLogIn.frm的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
VERSION 5.00
Begin VB.Form FrmCOModifyLogIn
Caption = "请选择修改项目"
ClientHeight = 2505
ClientLeft = 60
ClientTop = 510
ClientWidth = 7605
Icon = "FrmCOModifyLogIn.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2505
ScaleWidth = 7605
StartUpPosition = 2 'CenterScreen
Begin VB.Image Image4
Height = 300
Left = 480
Picture = "FrmCOModifyLogIn.frx":0CCA
Top = 1680
Width = 300
End
Begin VB.Label LblBack
BackStyle = 0 'Transparent
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
MouseIcon = "FrmCOModifyLogIn.frx":10E6
MousePointer = 99 'Custom
TabIndex = 2
Top = 1680
Width = 1335
End
Begin VB.Image Image1
Height = 300
Left = 480
Picture = "FrmCOModifyLogIn.frx":13F0
Top = 1080
Width = 300
End
Begin VB.Label LblAdd
BackStyle = 0 'Transparent
Caption = "添加订单项目到此CO"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
MouseIcon = "FrmCOModifyLogIn.frx":180C
MousePointer = 99 'Custom
TabIndex = 1
Top = 1080
Width = 5655
End
Begin VB.Image Image5
Height = 300
Left = 480
Picture = "FrmCOModifyLogIn.frx":1B16
Top = 480
Width = 300
End
Begin VB.Label LblModify
BackStyle = 0 'Transparent
Caption = "修改CO订单项目"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
MouseIcon = "FrmCOModifyLogIn.frx":1F32
MousePointer = 99 'Custom
TabIndex = 0
Top = 480
Width = 5655
End
End
Attribute VB_Name = "FrmCOModifyLogIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub LblAdd_Click()
FrmCOSalesItemEdit.Modify = False
FrmCOSalesItemEdit.OriCOID = FrmCO.TxtCOID.Text
FrmCOSalesItemEdit.OriCODate = FrmCO.Adodc1.Recordset.Fields(1)
FrmCOSalesItemEdit.OriCustomerID = FrmCO.Adodc1.Recordset.Fields(15)
FrmCOSalesItemEdit.OriDeliverID = FrmCO.Adodc1.Recordset.Fields(17)
FrmCOSalesItemEdit.Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
FrmCOSalesItemEdit.Adodc1.RecordSource = "select * from SalesItem,Item where SalesItem.Item=Item.Item and SalesItem.CustomerID='" + Trim(FrmCO.Adodc1.Recordset.Fields(15)) + "'"
Set FrmCOSalesItemEdit.DataGrid1.DataSource = FrmCOSalesItemEdit.Adodc1
FrmCOSalesItemEdit.Adodc1.Refresh
FrmCOSalesItemEdit.Show 1
Unload Me
End Sub
Private Sub LblBack_Click()
Unload Me
End Sub
Private Sub LblModify_Click()
FrmCOSalesItemEdit.Modify = True
'保存待修改记录的原始ID
FrmCOSalesItemEdit.OriCOItemID = Trim(FrmCO.Adodc1.Recordset.Fields(6))
'把待修改信息添加到编辑窗口
FrmCOSalesItemEdit.TxtCOItemID = Trim(FrmCO.Adodc1.Recordset.Fields(6))
FrmCOSalesItemEdit.TxtSalesItemID = Trim(FrmCO.Adodc1.Recordset.Fields(16))
FrmCOSalesItemEdit.TxtCOQty = Trim(FrmCO.Adodc1.Recordset.Fields(10))
FrmCOSalesItemEdit.DTConsignmentDate.Value = FrmCO.Adodc1.Recordset.Fields(11)
FrmCOSalesItemEdit.CmbIsComplete.Text = Trim(FrmCO.Adodc1.Recordset.Fields(14))
FrmCOSalesItemEdit.TxtCOItemID.Enabled = False
FrmCOSalesItemEdit.Modify = True
FrmCOSalesItemEdit.OriCOID = FrmCO.TxtCOID.Text
FrmCOSalesItemEdit.OriCODate = FrmCO.Adodc1.Recordset.Fields(1)
FrmCOSalesItemEdit.OriCustomerID = FrmCO.Adodc1.Recordset.Fields(15)
FrmCOSalesItemEdit.OriDeliverID = FrmCO.Adodc1.Recordset.Fields(17)
FrmCOSalesItemEdit.OriCOItemID = FrmCO.Adodc1.Recordset.Fields(6)
FrmCOSalesItemEdit.OriSalesItemID = FrmCO.Adodc1.Recordset.Fields(16)
FrmCOSalesItemEdit.Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
FrmCOSalesItemEdit.Adodc1.RecordSource = "select * from SalesItem,Item where SalesItem.Item=Item.Item and SalesItem.CustomerID='" + Trim(FrmCO.Adodc1.Recordset.Fields(15)) + "'"
Set FrmCOSalesItemEdit.DataGrid1.DataSource = FrmCOSalesItemEdit.Adodc1
FrmCOSalesItemEdit.Adodc1.Refresh
FrmCOSalesItemEdit.Show 1
Unload Me
End Sub
上一篇:
ClientMain_Unit.pas
下一篇:
“政治先于社会”:认同政治学的政治与社会概念