📄 frmtaskedit.frm
字号:
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "输入商业机会编号"
Height = 180
Left = 120
TabIndex = 24
Top = 300
Width = 1440
End
End
Begin MSAdodcLib.Adodc AdoContact
Height = 375
Left = 240
Top = 6120
Visible = 0 'False
Width = 1935
_ExtentX = 3413
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "AdoContact"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc AdoEmps
Height = 330
Left = 4080
Top = 6120
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "FrmTaskEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public OriCustId As Long
Public OriId As Long
Public Modify As Boolean
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub Cmd_OK_Click()
If Len(Trim(txtSaleId)) = 0 Then
MsgBox "请输入商业机会编号"
txtSaleId.SetFocus
Exit Sub
End If
If Len(Trim(dco_Emps.Text)) = 0 Then
MsgBox "请选择销售人员"
ComboName.SetFocus
Exit Sub
End If
If Len(Trim(txtTaskDate)) = 0 Then
MsgBox "请输入拜访日期"
txtTaskDate.SetFocus
Exit Sub
End If
If Len(Trim(ComboBy.Text)) = 0 Then
MsgBox "请选择拜访方式"
ComboBy.SetFocus
Exit Sub
End If
If Len(Trim(dco_Contact.Text)) = 0 Then
MsgBox "请选择拜访人员"
dco_Contact.SetFocus
Exit Sub
End If
If Len(Trim(txtPurpose)) = 0 Then
MsgBox "请输入拜访目的"
txtPurpose.SetFocus
Exit Sub
End If
With MyTask
.EmpId = Val(dco_Emps.BoundText())
.TaskDate = Trim(txtTaskDate)
.TaskBy = Trim(ComboBy.Text)
.CtId = Val(dco_Contact.BoundText)
.Place = Trim(txtPlace)
.Purpose = Trim(txtPurpose)
.StartTime = Trim(txtSTime)
.EndTime = Trim(txtETime)
.Detail = Trim(txtDetail)
.Result = Trim(txtResult)
If Modify = False Then
'判断是否存在此商业机会编号
If MyChance.In_DB(Trim(txtSaleId)) = False Then
MsgBox "不存在此销售编号，请重新输入"
txtSaleId.SetFocus
Exit Sub
End If
.SaleId = Trim(txtSaleId)
.Insert
Else
.Update (OriId)
End If
End With
Unload Me
End Sub
Private Sub Cmd_Search_Click()
If Len(Trim(txtSaleId)) = 0 Then
MsgBox "输入商业机会编号"
Exit Sub
End If
RefreshSale
End Sub
Public Sub RefreshSale()
AdoChance.ConnectionString = Conn
TmpSource = "SELECT s.ProName AS 项目名称," _
+ "c.CustName AS 客户名称,a.CName AS 联系人," _
+ "t.TypeName AS 项目类型,e.EmpName AS 销售人员," _
+ "s.Status AS 状态,s.PPercent AS 目前进度," _
+ "s.SignDate AS 签约日期,s.SignSum AS 签约金额," _
+ "s.Detail AS 其他内容,s.CustId,s.EmpId " _
+ " FROM SaleChance s,Contact a,Customer c,Types t,Employees e " _
+ " WHERE s.CustId=c.CustId AND s.EmpId=e.EmpId AND s.CtId=a.Id" _
+ " AND s.PTypeId=t.Id AND s.Id='" + Trim(txtSaleId) + "'"
AdoChance.RecordSource = TmpSource
AdoChance.Refresh
Set dg_Chance.DataSource = AdoChance
dg_Chance.Columns(0).Width = 1400
dg_Chance.Columns(1).Width = 1400
dg_Chance.Columns(2).Width = 1000
dg_Chance.Columns(3).Width = 1000
dg_Chance.Columns(4).Width = 1000
dg_Chance.Columns(5).Width = 800
dg_Chance.Columns(6).Width = 800
dg_Chance.Columns(7).Width = 1200
dg_Chance.Columns(8).Width = 1200
dg_Chance.Columns(9).Width = 1600
dg_Chance.Columns(10).Width = 0
dg_Chance.Columns(11).Width = 0
LoadSaleContact
End Sub
Private Sub Form_Load()
'读取销售人员数据数据
AdoEmps.ConnectionString = Conn
AdoEmps.RecordSource = "SELECT EmpId,EmpName FROM Employees Order By EmpName"
AdoEmps.Refresh
Set dco_Emps.RowSource = AdoEmps
dco_Emps.ListField = "EmpName"
dco_Emps.BoundColumn = "EmpId"
'载入拜访方式
ComboBy.AddItem "面谈", 0
ComboBy.AddItem "电话", 1
ComboBy.AddItem "电子邮件", 2
End Sub
Private Sub LoadSaleContact()
TmpSource = ""
AdoContact.ConnectionString = Conn
AdoContact.RecordSource = "SELECT c.Id,c.CName " _
+ " FROM SaleChance s,Contact c " _
+ " WHERE s.CustId=c.CustId AND s.Id='" + Trim(txtSaleId) _
+ "' ORDER BY c.CName"
AdoContact.Refresh
Set dco_Contact.RowSource = AdoContact
dco_Contact.ListField = "CName"
dco_Contact.BoundColumn = "Id"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -