?? frmcedit.frm

?? ERP簡易物料管理系統,主要是學習用VB編寫ERP的例子.
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "用 量："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   120
      MouseIcon       =   "FrmCEdit.frx":52B0
      TabIndex        =   12
      Top             =   5280
      Width           =   1110
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "子項名稱："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   360
      MouseIcon       =   "FrmCEdit.frx":55BA
      TabIndex        =   11
      Top             =   2880
      Width           =   1575
   End
   Begin VB.Image Image2 
      Height          =   300
      Left            =   3240
      Picture         =   "FrmCEdit.frx":58C4
      Top             =   7680
      Width           =   300
   End
   Begin VB.Label LblCancel 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   3840
      MouseIcon       =   "FrmCEdit.frx":5CE0
      MousePointer    =   99  'Custom
      TabIndex        =   9
      Top             =   7680
      Width           =   645
   End
   Begin VB.Image Image1 
      Height          =   300
      Left            =   1680
      Picture         =   "FrmCEdit.frx":5FEA
      Top             =   7680
      Width           =   300
   End
   Begin VB.Label lblOk 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "確 定"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   2280
      MouseIcon       =   "FrmCEdit.frx":6406
      MousePointer    =   99  'Custom
      TabIndex        =   8
      Top             =   7680
      Width           =   645
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "父項名稱："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   360
      MouseIcon       =   "FrmCEdit.frx":6710
      TabIndex        =   10
      Top             =   480
      Width           =   1575
   End
End
Attribute VB_Name = "FrmCEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean
Public OriParentItem As Integer
Public OriChildItem As Integer
Private Sub CmbCName_Click()
    If CmbCName.ListIndex <> 0 Then
        '添加選擇的子項信息
        Adodc2.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
        Adodc2.RecordSource = "select * from Item where Name='" + Trim(CmbCName.Text) + "' "
        Adodc2.Refresh
        '填充子項信息
        Set LblCItem.DataSource = Adodc2
        LblCItem.DataField = "Item"
        Set LblCSpecification.DataSource = Adodc2
        LblCSpecification.DataField = "Specification"
        Set LblCColor.DataSource = Adodc2
        LblCColor.DataField = "Color"
        Set LblCUnit.DataSource = Adodc2
        LblCUnit.DataField = "Unit"
        Set LblCDrawing.DataSource = Adodc2
        LblCDrawing.DataField = "Drawing"
        
        TxtQty.Enabled = True
        CmbQT.Enabled = True
        CmbCT.Enabled = True
        TxtScrap.Enabled = True
        TxtOffset.Enabled = True
        TxtRemark.Enabled = True
    Else
        LblCItem.Caption = ""
        LblCSpecification.Caption = ""
        LblCColor.Caption = ""
        LblCUnit.Caption = ""
        LblCDrawing.Caption = ""
        TxtQty.Text = ""
        CmbQT.Text = ""
        CmbCT.Text = ""
        TxtScrap.Text = ""
        TxtOffset.Text = ""
        TxtRemark.Text = ""
        
        
        TxtQty.Enabled = False
        CmbQT.Enabled = False
        CmbCT.Enabled = False
        TxtScrap.Enabled = False
        TxtOffset.Enabled = False
        TxtRemark.Enabled = False
    End If
End Sub

Private Sub CmbPName_Click()
    If CmbPName.ListIndex <> 0 Then
        '添加選擇的父項信息
        Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
        Adodc1.RecordSource = "select * from Item where Name='" + Trim(CmbPName.Text) + "' "
        Adodc1.Refresh
        '填充父項信息
        Set LblPItem.DataSource = Adodc1
        LblPItem.DataField = "Item"
        Set LblPSpecification.DataSource = Adodc1
        LblPSpecification.DataField = "Specification"
        Set LblPColor.DataSource = Adodc1
        LblPColor.DataField = "Color"
        Set LblPUnit.DataSource = Adodc1
        LblPUnit.DataField = "Unit"
        '激活CmbCName
        CmbCName.Enabled = True
        CmbCName.Clear
        LblCItem.Caption = ""
        LblCSpecification.Caption = ""
        LblCColor.Caption = ""
        LblCUnit.Caption = ""
        LblCDrawing.Caption = ""
        '裝入CmbCName的信息
        CmbCName.AddItem "請選擇子項"
        MyBOM.Load_Child (LblPItem.Caption)
        i = 0
        Do While Arr_Item(i) <> ""
            CmbCName.AddItem Arr_Item(i)
            i = i + 1
        Loop
        CmbCName.ListIndex = 0
    Else
        '父項信息歸位
        LblPItem.Caption = ""
        LblPSpecification.Caption = ""
        LblPColor.Caption = ""
        LblPUnit.Caption = ""
        CmbPName.ListIndex = 0
        '子項信息歸位
        LblCItem.Caption = ""
        LblCSpecification.Caption = ""
        LblCColor.Caption = ""
        LblCUnit.Caption = ""
        LblCDrawing.Caption = ""
        TxtQty.Text = ""
        CmbQT.Text = ""
        CmbCT.Text = ""
        TxtScrap.Text = ""
        TxtOffset.Text = ""
        TxtRemark.Text = ""
        CmbCName.Clear
        CmbCName.Enabled = False
        TxtQty.Enabled = False
        CmbQT.Enabled = False
        CmbCT.Enabled = False
        TxtScrap.Enabled = False
        TxtOffset.Enabled = False
        TxtRemark.Enabled = False
        Exit Sub
    End If
    
End Sub


Private Sub Form_Load()
    If Modify = False Then
        FrmCEdit.Caption = "添加子項"
        '在未選擇父項前不能選擇子項
        CmbCName.Enabled = False
        TxtQty.Enabled = False
        CmbQT.Enabled = False
        CmbCT.Enabled = False
        TxtScrap.Enabled = False
        TxtOffset.Enabled = False
        TxtRemark.Enabled = False
        '裝入CmbPName的信息
        CmbPName.AddItem "請選擇父項"
        MyBOM.Load_Parent_exist
        i = 0
        Do While Arr_Item(i) <> ""
            CmbPName.AddItem Arr_Item(i)
            i = i + 1
        Loop
        CmbPName.ListIndex = 0
    Else
        FrmCEdit.Caption = "修改子項信息"
        LblPName.Visible = True
        LblCName.Visible = True
        CmbPName.Visible = False
        CmbCName.Visible = False
    End If
    '裝入CmbCT信息
    CmbCT.List(0) = "C副 產 品"
    CmbCT.List(1) = "D文    件"
    CmbCT.List(2) = "N普通物料"
    CmbCT.List(3) = "P虛 構 件"
    CmbCT.List(4) = "R可替換件"
    CmbCT.List(5) = "T發出工具"
    CmbCT.List(6) = "U發出返回"
    CmbCT.List(7) = "W工作中心"
    CmbCT.List(8) = "X參    考"
    '裝入CmbQT信息
    CmbQT.List(0) = "I按 貨 號"
    CmbQT.List(1) = "O按 訂 單"
End Sub

Private Sub LblCancel_Click()
    Unload Me
End Sub


Private Function Check() As Boolean
    If LblPItem.Caption = "" Then
        MsgBox "請選擇要添加的父項"
        Check = False
        Exit Function
    End If
    If LblCItem.Caption = "" Then
        MsgBox "請選擇要添加的子項"
        Check = False
        Exit Function
    End If
    Check = True
End Function


Private Sub LblOK_Click()
    '判斷要編輯信息是否完整
    If Check = False Then
        Exit Sub
    End If
    
    With MyBOM
        .ParentItem = LblPItem.Caption
        .CT = CmbCT.Text
        .ChildItem = LblCItem.Caption
        .Qty = TxtQty.Text
        .QT = CmbQT.Text
        .Scrap = TxtScrap.Text
        .Offset = TxtOffset.Text
        .Remark = TxtRemark.Text
        
        
        If Modify = False Then
            If .In_DBC(LblPItem.Caption, LblCItem.Caption) = True Then
                MsgBox "該子項已經屬于此父項，請重新選擇"
                '父項信息歸位
                LblPItem.Caption = ""
                LblPSpecification.Caption = ""
                LblPColor.Caption = ""
                LblPUnit.Caption = ""
                CmbPName.ListIndex = 0
                '子項信息歸位
                LblCItem.Caption = ""
                LblCSpecification.Caption = ""
                LblCColor.Caption = ""
                LblCUnit.Caption = ""
                LblCDrawing.Caption = ""
                TxtQty.Text = ""
                CmbQT.Text = ""
                CmbCT.Text = ""
                TxtScrap.Text = ""
                TxtOffset.Text = ""
                TxtRemark.Text = ""
                CmbCName.Clear
                CmbCName.Enabled = False
                TxtQty.Enabled = False
                CmbQT.Enabled = False
                CmbCT.Enabled = False
                TxtScrap.Enabled = False
                TxtOffset.Enabled = False
                TxtRemark.Enabled = False
                Exit Sub
            Else
                .InsertC '添加
                MsgBox "添加成功"
            End If
        Else
            .Update OriParentItem, OriChildItem
            MsgBox "修改成功"
        End If
    End With
    
    Unload Me
    
End Sub
Private Sub TxtOffset_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
    If In_Single(KeyAscii) = False Then
        KeyAscii = 0
    End If
End Sub

Private Sub TxtQty_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
    If In_Single(KeyAscii) = False Then
        KeyAscii = 0
    End If
End Sub
Private Sub TxtScrap_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
    If In_Single(KeyAscii) = False Then
        KeyAscii = 0
    End If
End Sub
上一頁 1 23
?? 文件大小 1061 K
?? 上傳用戶 tanghui2008
?? 所屬分類書籍源碼
??? 相關標簽

#ERP #物料管理 #編寫
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmcedit.frm

?? 快捷鍵說明
