*--保存按钮的Click事件:
If Thisform.Tag='Add'
Append Blank
Endif
Replace Name With Alltrim(Thisform.text1.Value)
Replace sex With Alltrim(Thisform.text2.Value)
Replace age With Alltrim(Thisform.text3.Value)
Thisform.text1.Enabled= .F.
Thisform.text2.Enabled= .F.
Thisform.text3.Enabled= .F.
Thisform.grid1.Refresh
Store .F. To Thisform.text1.Enabled,Thisform.text2.Enabled,Thisform.text3.Enabled,Thisform.Command4.Enabled,Thisform.Command5.Enabled
Store .T. To Thisform.Command1.Enabled,Thisform.Command2.Enabled,Thisform.Command3.Enabled,Thisform.Command6.Enabled,Thisform.Grid1.Enabled