📄 customermodify.frm
字号:
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "联系手机："
Height = 180
Left = 120
TabIndex = 58
Top = 2715
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "联系电话："
Height = 180
Left = 120
TabIndex = 57
Top = 2325
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "信用额度："
Height = 180
Left = 120
TabIndex = 56
Top = 1125
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "备用电话："
Height = 180
Left = 120
TabIndex = 55
Top = 1515
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = " 联系人："
Height = 180
Left = 120
TabIndex = 54
Top = 3120
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "税 号："
Height = 180
Left = 3480
TabIndex = 53
Top = 1200
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "开户银行："
Height = 180
Left = 120
TabIndex = 52
Top = 1920
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "银行帐号："
Height = 180
Left = 120
TabIndex = 51
Top = 3525
Width = 900
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "帐 号："
Height = 180
Left = 3480
TabIndex = 50
Top = 3480
Width = 900
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "记帐地址："
Height = 180
Left = 3480
TabIndex = 49
Top = 2100
Width = 900
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "邮政编码："
Height = 180
Left = 3480
TabIndex = 48
Top = 2565
Width = 900
End
Begin VB.Label Label32
AutoSize = -1 'True
Caption = " 业务员："
Height = 180
Left = 3480
TabIndex = 47
Top = 3015
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "传 真："
Height = 180
Left = 3480
TabIndex = 46
Top = 1635
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "联系地址："
Height = 180
Left = 120
TabIndex = 45
Top = 3960
Width = 900
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "业务来源："
Height = 180
Left = -74880
TabIndex = 44
Top = 4080
Width = 900
End
Begin VB.Label Label31
AutoSize = -1 'True
Caption = "记录时间："
Height = 180
Left = -74880
TabIndex = 43
Top = 2955
Width = 900
End
Begin VB.Label Label30
AutoSize = -1 'True
Caption = "备 注："
Height = 180
Left = -71520
TabIndex = 42
Top = 3480
Width = 900
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "隶 属："
Height = 180
Left = -71520
TabIndex = 41
Top = 720
Width = 900
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "国 家："
Height = 180
Left = -71520
TabIndex = 40
Top = 1845
Width = 900
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "城 市："
Height = 180
Left = -71520
TabIndex = 39
Top = 3000
Width = 900
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "公司名称："
Height = 180
Left = -74880
TabIndex = 38
Top = 720
Width = 900
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "收款期限："
Height = 180
Left = -74880
TabIndex = 37
Top = 3525
Width = 900
End
Begin VB.Label Label28
AutoSize = -1 'True
Caption = "税 票："
Height = 180
Left = -71520
TabIndex = 36
Top = 2400
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "电子邮件："
Height = 180
Left = -74880
TabIndex = 35
Top = 1845
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "网络地址："
Height = 180
Left = -74880
TabIndex = 34
Top = 2400
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "付款期限："
Height = 180
Left = -74880
TabIndex = 33
Top = 1275
Width = 900
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "省 份："
Height = 180
Left = -71520
TabIndex = 32
Top = 1275
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "建档日期："
Height = 180
Left = 3480
TabIndex = 31
Top = 720
Width = 900
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "客户编号："
ForeColor = &H80000001&
Height = 180
Left = 240
TabIndex = 63
Top = 180
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "客户名称："
ForeColor = &H80000001&
Height = 180
Left = 2760
TabIndex = 62
Top = 180
Width = 900
End
End
Attribute VB_Name = "customermodify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :客户档案的添加
'* 功 能 描 述 :设置客户档案的基本信息
'* 程序员姓名 :黄朝和
'* 最后修改人 :
'* 最后修改时间:2005/08/19
'* 备 注:
'*******************************************************
Option Explicit
Private m_customerDAO As CustomerDAO
Private m_recordset As ADODB.Recordset
Private Sub Command1_Click()
Dim ret As Boolean
ret = m_customerDAO.C_modify(m_recordset, Trim(customerid.Text), Trim(customer.Text), Trim(founddate.Text), Trim(creditbrow.Text), Trim(address.Text), Trim(superinrtendent.Text), Trim(taxnum.Text), Trim(bank.Text), Trim(banknum.Text), Trim(phone.Text), Trim(backphone.Text), Trim(mobile.Text), Trim(fax.Text), Trim(email.Text), Trim(http.Text), Trim(accounts.Text), Trim(paymentdate.Text), Trim(gatherdate.Text), Trim(company.Text), Trim(corporation.Text), Trim(accountsaddress.Text), Trim(city.Text), Trim(province.Text), Trim(postcode.Text), Trim(state.Text), Trim(operation.Text), Trim(taxreceipt.Text), Trim(notedate.Text), Trim(counterman.Text), Trim(subjection.Text), Trim(memo.Text))
m_recordset.Fields("customerid") = customerid.Text
m_recordset.Fields("customer") = customer.Text
m_recordset.Fields("founddate") = founddate.Text
m_recordset.Fields("creditbrow") = creditbrow.Text
m_recordset.Fields("address") = address.Text
m_recordset.Fields("superinrtendent") = superinrtendent.Text
m_recordset.Fields("taxnum") = taxnum.Text
m_recordset.Fields("bank") = bank.Text
m_recordset.Fields("banknum") = banknum.Text
m_recordset.Fields("phone") = phone.Text
m_recordset.Fields("backphone") = backphone.Text
m_recordset.Fields("mobile") = mobile.Text
m_recordset.Fields("fax") = fax.Text
m_recordset.Fields("email") = email.Text
m_recordset.Fields("http") = http.Text
m_recordset.Fields("accounts") = accounts.Text
m_recordset.Fields("paymentdate") = paymentdate.Text
m_recordset.Fields("gatherdate") = gatherdate.Text
m_recordset.Fields("company") = company.Text
m_recordset.Fields("corporation") = corporation.Text
m_recordset.Fields("accountsaddress") = accountsaddress.Text
m_recordset.Fields("city") = city.Text
m_recordset.Fields("province") = province.Text
m_recordset.Fields("postcode") = postcode.Text
m_recordset.Fields("state") = state.Text
m_recordset.Fields("operation") = operation.Text
m_recordset.Fields("taxreceipt") = taxreceipt.Text
m_recordset.Fields("notedate") = notedate.Text
m_recordset.Fields("counterman") = counterman.Text
m_recordset.Fields("subjection") = subjection.Text
m_recordset.Fields("memo") = memo.Text
m_recordset.Update
MsgBox "修改成功", , "档案修改"
Unload Me
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set m_customerDAO = New CustomerDAO
Set m_recordset = New ADODB.Recordset
Dim ret As Boolean
Dim w As String
w = CustomerListForm.customer_id
ret = m_customerDAO.C_DanTiao(m_recordset, w)
customerid.Text = Trim(m_recordset.Fields("customerid"))
customer.Text = Trim(m_recordset.Fields("customer"))
founddate.Text = Trim(m_recordset.Fields("founddate"))
creditbrow.Text = Trim(m_recordset.Fields("creditbrow"))
address.Text = Trim(m_recordset.Fields("address"))
superinrtendent.Text = Trim(m_recordset.Fields("superinrtendent"))
taxnum.Text = Trim(m_recordset.Fields("taxnum"))
bank.Text = Trim(m_recordset.Fields("bank"))
banknum.Text = Trim(m_recordset.Fields("banknum"))
phone.Text = Trim(m_recordset.Fields("phone"))
backphone.Text = Trim(m_recordset.Fields("backphone"))
mobile.Text = Trim(m_recordset.Fields("mobile"))
fax.Text = Trim(m_recordset.Fields("fax"))
email.Text = Trim(m_recordset.Fields("email"))
http.Text = Trim(m_recordset.Fields("http"))
accounts.Text = Trim(m_recordset.Fields("accounts"))
paymentdate.Text = Trim(m_recordset.Fields("paymentdate"))
gatherdate.Text = Trim(m_recordset.Fields("gatherdate"))
company.Text = Trim(m_recordset.Fields("company"))
corporation.Text = Trim(m_recordset.Fields("corporation"))
accountsaddress.Text = Trim(m_recordset.Fields("accountsaddress"))
city.Text = Trim(m_recordset.Fields("city"))
province.Text = Trim(m_recordset.Fields("province"))
postcode.Text = Trim(m_recordset.Fields("postcode"))
state.Text = Trim(m_recordset.Fields("state"))
operation.Text = Trim(m_recordset.Fields("operation"))
taxreceipt.Text = Trim(m_recordset.Fields("taxreceipt"))
notedate.Text = Trim(m_recordset.Fields("notedate"))
counterman.Text = Trim(m_recordset.Fields("counterman"))
subjection.Text = Trim(m_recordset.Fields("subjection"))
memo.Text = Trim(m_recordset.Fields("memo"))
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -