frmbranchmaster.frm
来自「This a complete inventory management sys」· FRM 代码 · 共 1,141 行 · 第 1/3 页
FRM
1,141 行
Width = 765
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "Agent Name"
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 = 3105
TabIndex = 31
Top = 420
Width = 1050
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "Address"
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 = 30
Top = 1020
Width = 690
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "City"
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 = 705
TabIndex = 29
Top = 2700
Width = 345
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "State"
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 = 585
TabIndex = 28
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 = 27
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 = 26
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 = 25
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 = 24
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 = 23
Top = 4350
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 = 20
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 = 19
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 = 18
Top = 2820
Width = 60
End
End
End
Attribute VB_Name = "frmBranchMaster"
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
popBranch.Show vbModal
gBranchid = Trim(popBranch.txtBranchId)
Unload popBranch
If Not Trim(gBranchid) = "" Then
Dim rstEdit As ADODB.Recordset
Set rstEdit = New ADODB.Recordset
rstEdit.Open "select * from aBranchMaster 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")))
txtCst = Null2Blank(Trim(rstEdit("r_cst")))
txtTin = Null2Blank(Trim(rstEdit("r_tin")))
txtcontact_person = Null2Blank(Trim(rstEdit("r_contact_person")))
txtwebsite = Null2Blank(Trim(rstEdit("r_website")))
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 "Agent 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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?