frmcomodifylogin.frm

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

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