📄 frmvendormaster.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Left = 585
TabIndex = 24
Top = 2340
Width = 450
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "Pincode"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Left = 300
TabIndex = 23
Top = 3240
Width = 660
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Country"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Left = 345
TabIndex = 22
Top = 1860
Width = 690
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "Phone"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Left = 435
TabIndex = 21
Top = 3600
Width = 525
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "Fax"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Left = 660
TabIndex = 20
Top = 4005
Width = 300
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "Email"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Left = 5235
TabIndex = 19
Top = 3990
Width = 465
End
End
Begin VB.Label lblPIDBName
AutoSize = -1 'True
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 195
Left = 2040
TabIndex = 16
Top = 1380
Width = 60
End
Begin VB.Label lblPIDBMName
AutoSize = -1 'True
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 195
Left = 2040
TabIndex = 15
Top = 1680
Width = 60
End
Begin VB.Label lblBMName
AutoSize = -1 'True
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 195
Left = 2040
TabIndex = 14
Top = 2820
Width = 60
End
End
End
Attribute VB_Name = "frmVendorMaster"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim fs As FileSystemObject
Dim strImg, strImg2
Dim gMod
Dim gTempI
Private Function fn_Edit()
Dim gBranchid
gMod = 1
popVendor.Show vbModal
gBranchid = Trim(popVendor.txtBranchId)
Unload popVendor
If Not Trim(gBranchid) = "" Then
Dim rstEdit As ADODB.Recordset
Set rstEdit = New ADODB.Recordset
rstEdit.Open "select * from aVendorMaster where r_Id='" & gBranchid & "'", CNimanager
If rstEdit.EOF Or rstEdit.BOF Then
MsgBox "Agent Details not found", vbCritical, "iManager"
Unload Me
Else
txtNo = Trim(rstEdit("r_No"))
txtBranchId = Trim(rstEdit("r_Id"))
txtName = Trim(rstEdit("r_Name"))
txtAdd1 = Trim(rstEdit("r_Add1"))
txtAdd2 = Trim(rstEdit("r_Add2"))
txtCountry = Trim(rstEdit("r_country"))
txtState = Trim(rstEdit("r_state"))
txtCity = Trim(rstEdit("r_city"))
txtPincode = Trim(rstEdit("r_Pin"))
txtPhone = Trim(rstEdit("r_Phone"))
txtFax = Trim(rstEdit("r_Fax"))
txtEmail = Trim(rstEdit("r_Email"))
txtPromotingId = Null2Blank(Trim(rstEdit("r_PromotingId")))
txtNotes = Null2Blank(Trim(rstEdit("r_Notes")))
End If
End If
Call FillBM
End Function
Private Function fn_Exit()
Unload Me
End Function
Private Function fn_new()
Unload Me
frmBranchMaster.Show
End Function
Private Sub Check1_Click()
End Sub
Private Sub chkOH_Click()
Select Case chkOH.Value
Case 1
txtOHCom.Enabled = True
Case 0
txtOHCom.Enabled = False
End Select
End Sub
Private Sub cmdBrowse_Click()
CommonDialog1.Filter = "All Images|*.Bmp;*.gif;*.jpg|Bitmaps|*.BMP|Gif Images|*.Gif|Jpeg Images|*.jpg"
CommonDialog1.ShowOpen
If Not Trim(CommonDialog1.FileName) = "" Then
strImg = CommonDialog1.FileName
Image1.Picture = LoadPicture(strImg)
End If
End Sub
Private Sub cmdBrowse2_Click()
CommonDialog1.Filter = "All Images|*.Bmp;*.gif;*.jpg|Bitmaps|*.BMP|Gif Images|*.Gif|Jpeg Images|*.jpg"
CommonDialog1.ShowOpen
If Not Trim(CommonDialog1.FileName) = "" Then
strImg2 = CommonDialog1.FileName
Image2.Picture = LoadPicture(strImg2)
End If
End Sub
Private Sub cmdClear_Click()
Set Image1 = Nothing
strImg = ""
End Sub
Private Sub cmdClear2_Click()
Set Image2 = Nothing
strImg2 = ""
End Sub
Private Sub cmdPromotingId_Click()
Dim gPromotingId
popBranch.Show vbModal
gPromotingId = popBranch.txtBranchId
Unload popBranch
txtPromotingId = gPromotingId
If Not Trim(txtPromotingId) = "" Then
Call FillList(gPromotingId)
MSH.Visible = True
Else
Call FillList(gPromotingId)
End If
End Sub
Private Function fn_Save()
Dim gQuery
Dim gQuery1
Dim gQueryString
Dim gQueryBM1
Dim gQueryBM2
Dim gQueryOH
Dim gMakeOH
Dim strSource, strDest, strImageName
Dim strSource2, strDest2, strImageName2
'gMakeOH = chkMakeOH.Value
If Trim(txtName) = "" Then
MsgBox "Vendor Name can not be left blank", vbCritical, "iManager"
txtName.SetFocus
Exit Function
End If
'*********Image Copy for BM1 Script ******************************************
If Not Trim(strImg) = "" Then
strDest = App.Path & "/Images"
If Not fs.FolderExists(strDest) Then
fs.CreateFolder (strDest)
End If
strDest = strDest & "/BranchManager"
If Not fs.FolderExists(strDest) Then
fs.CreateFolder (strDest)
End If
strDest = strDest & "/" & Trim(txtBranchId) & "-1" & Trim(Right(strImg, 4))
strSource = strImg
strImageName = Trim(txtBranchId) & "-1" & Trim(Right(strImg, 4))
If fs.FileExists(strDest) Then
SetAttr strDest, vbNormal
End If
fs.CopyFile strSource, strDest, True
End If
'*********Image Copy for BM2 Script ******************************************
If Not Trim(strImg2) = "" Then
strDest2 = App.Path & "/Images"
If Not fs.FolderExists(strDest2) Then
fs.CreateFolder (strDest2)
End If
strDest2 = strDest2 & "/BranchManager"
If Not fs.FolderExists(strDest2) Then
fs.CreateFolder (strDest2)
End If
strDest2 = strDest2 & "/" & Trim(txtBranchId) & "-2" & Trim(Right(strImg2, 4))
strSource2 = strImg2
strImageName2 = Trim(txtBranchId) & "-2" & Trim(Right(strImg2, 4))
If fs.FileExists(strDest2) Then
SetAttr strDest2, vbNormal
End If
fs.CopyFile strSource2, strDest2, True
End If
'******************************************************************************
If gMod = 0 Then
gQuery = "insert into aVendorMaster(r_ID, r_No, r_Name, r_PromotingId, r_Add1, r_Add2, r_City, r_State, r_Pin, r_Country, r_Phone, r_Fax, r_Email, r_OH, r_Notes) values " & _
"('" & Trim(txtBranchId) & "'," & txtNo & ",'" & fnEscapeQuote(Trim(txtName)) & _
"','" & fnEscapeQuote(Trim(txtPromotingId)) & "','" & fnEscapeQuote(Trim(txtAdd1)) & _
"','" & fnEscapeQuote(Trim(txtAdd2)) & "','" & fnEscapeQuote(Trim(txtCity)) & _
"','" & fnEscapeQuote(Trim(txtState)) & "','" & fnEscapeQuote(Trim(txtPincode)) & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -