frmpomodifylogin.frm

这是一个利用VB编写的中小企业ERP。功能比较全

Version 5.00
Begin VB.Form FrmPOModifyLogIn
    Caption = "请选择修改项目"
    ClientHeight = 3075
    ClientLeft = 60
    ClientTop = 510
    ClientWidth = 7605
    Icon = "FrmPOModifyLogIn.frx":0000
    LinkTopic = "Form1"
    ScaleHeight = 3075
    ScaleWidth = 7605
    StartUpPosition = 2 'CenterScreen
    Begin VB.Label LblPOInfo
        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 = 1080
        MouseIcon = "FrmPOModifyLogIn.frx":0CCA
        MousePointer = 99 'Custom
        TabIndex = 3
        Top = 1680
        Width = 6495
    End
    Begin VB.Image Image2
        Height = 300
        Left = 480
        Picture = "FrmPOModifyLogIn.frx":0FD4
        Top = 1680
        Width = 300
    End
    Begin VB.Image Image4
        Height = 300
        Left = 480
        Picture = "FrmPOModifyLogIn.frx":13F0
        Top = 2280
        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 = 1080
        MouseIcon = "FrmPOModifyLogIn.frx":180C
        MousePointer = 99 'Custom
        TabIndex = 2
        Top = 2280
        Width = 1335
    End
    Begin VB.Image Image1
        Height = 300
        Left = 480
        Picture = "FrmPOModifyLogIn.frx":1B16
        Top = 1080
        Width = 300
    End
    Begin VB.Label LblAdd
        BackStyle = 0 'Transparent
        Caption = "添加订单项目到此PO"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 1080
        MouseIcon = "FrmPOModifyLogIn.frx":1F32
        MousePointer = 99 'Custom
        TabIndex = 1
        Top = 1080
        Width = 5655
    End
    Begin VB.Image Image5
        Height = 300
        Left = 480
        Picture = "FrmPOModifyLogIn.frx":223C
        Top = 480
        Width = 300
    End
    Begin VB.Label LblModify
        BackStyle = 0 'Transparent
        Caption = "修改PO订单项目"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 1080
        MouseIcon = "FrmPOModifyLogIn.frx":2658
        MousePointer = 99 'Custom
        TabIndex = 0
        Top = 480
        Width = 5655
    End
End
Attribute VB_Name = "FrmPOModifyLogIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub LblAdd_Click()
    FrmPOPurchaseItemEdit.Modify = False
    FrmPOPurchaseItemEdit.OriPOID = FrmPO.TxtPOID.Text
    FrmPOPurchaseItemEdit.OriPODate = FrmPO.Adodc1.Recordset.Fields(1)
    FrmPOPurchaseItemEdit.OriBusinessmanID = FrmPO.Adodc1.Recordset.Fields(11)
    
    
    FrmPOPurchaseItemEdit.Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
    FrmPOPurchaseItemEdit.Adodc1.RecordSource = "select * from PurchaseItem,Item where PurchaseItem.Item=Item.Item and PurchaseItem.BusinessmanID='" + Trim(FrmPO.Adodc1.Recordset.Fields(11)) + "'"
    Set FrmPOPurchaseItemEdit.DataGrid1.DataSource = FrmPOPurchaseItemEdit.Adodc1
    FrmPOPurchaseItemEdit.Adodc1.Refresh
    
    
    
    FrmPOPurchaseItemEdit.Show 1
    Unload Me
End Sub

Private Sub LblBack_Click()
    Unload Me
End Sub

Private Sub LblModify_Click()
    FrmPOPurchaseItemEdit.Modify = True
    
    '保存待修改记录的原始ID
    FrmPOPurchaseItemEdit.OriPOItemID = Trim(FrmPO.Adodc1.Recordset.Fields(2))
    
    '把待修改信息添加到编辑窗口
    FrmPOPurchaseItemEdit.TxtPOItemID = Trim(FrmPO.Adodc1.Recordset.Fields(2))
    FrmPOPurchaseItemEdit.TxtPurchaseItemID = Trim(FrmPO.Adodc1.Recordset.Fields(12))
    FrmPOPurchaseItemEdit.TxtPOQty = Trim(FrmPO.Adodc1.Recordset.Fields(6))
    FrmPOPurchaseItemEdit.DTConsignmentDate.Value = FrmPO.Adodc1.Recordset.Fields(7)
    FrmPOPurchaseItemEdit.CmbIsComplete.Text = Trim(FrmPO.Adodc1.Recordset.Fields(10))
    FrmPOPurchaseItemEdit.TxtPOItemID.Enabled = False
    FrmPOPurchaseItemEdit.Modify = True
    
    FrmPOPurchaseItemEdit.OriPOID = FrmPO.TxtPOID.Text
    FrmPOPurchaseItemEdit.OriPODate = FrmPO.Adodc1.Recordset.Fields(1)
    FrmPOPurchaseItemEdit.OriBusinessmanID = FrmPO.Adodc1.Recordset.Fields(11)
    FrmPOPurchaseItemEdit.OriPOItemID = FrmPO.Adodc1.Recordset.Fields(2)
    FrmPOPurchaseItemEdit.OriPurchaseItemID = FrmPO.Adodc1.Recordset.Fields(12)
    
    
    FrmPOPurchaseItemEdit.Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
    FrmPOPurchaseItemEdit.Adodc1.RecordSource = "select * from PurchaseItem,Item where PurchaseItem.Item=Item.Item and PurchaseItem.BusinessmanID='" + Trim(FrmPO.Adodc1.Recordset.Fields(11)) + "'"
    Set FrmPOPurchaseItemEdit.DataGrid1.DataSource = FrmPOPurchaseItemEdit.Adodc1
    FrmPOPurchaseItemEdit.Adodc1.Refresh
    
    FrmPOPurchaseItemEdit.Show 1
    Unload Me
End Sub

Private Sub LblPOInfo_Click()
    FrmPOInfo.OriPOID = FrmPO.TxtPOID.Text
    FrmPOInfo.TxtPaymentCondition.Text = Trim(FrmPO.Adodc2.Recordset.Fields(0))
    FrmPOInfo.TxtDeliverDemand.Text = Trim(FrmPO.Adodc2.Recordset.Fields(1))
    FrmPOInfo.TxtOther.Text = Trim(FrmPO.Adodc2.Recordset.Fields(2))
    FrmPOInfo.Show 1
    Unload Me
End Sub