ddfin.txt

客户信息管理系统10客户信息管理系统10

Private Sub danxfin_Click()
Text2(20).Locked = False
Text2(21).Locked = True
Text2(22).Locked = True
Text2(23).Locked = True
Text2(20).SetFocus
Text2(20).Text = ""
Text2(21).Text = ""
Text2(22).Text = ""
Text2(23).Text = ""
End Sub
Private Sub duoxfin_Click()
Text2(21).Locked = False
Text2(22).Locked = False
Text2(23).Locked = False
Text2(20).Locked = True
Text2(21).SetFocus
Text2(22).SetFocus
Text2(23).SetFocus
Text2(20).Text = ""
Text2(21).Text = ""
Text2(22).Text = ""
Text2(23).Text = ""
End Sub