>LPARAMETERS cName, cClass > >do case > case this.Value = 1 && first button is clicked > > > *CASE COMMAND1 > this.value.enabled=.f. > mdate=ctod(" / / ") > issue.text1.value="" > issue.text2.value="" > issue.text3.value="" > issue.text4.value="" > issue.text1.setfocus > issue.text1.value=mdate > ***************************** > >*========================= >case this.Value = 2 && second button is clicked > > issue.command1.enabled=.f. > insert into chequett(date,acno,cheque,cheque1); > values(val(issue.text1.value),val(issue.text1.value),val(issue.text1.value),val(issue.text1.value)) > > > *---------------------- >case this.Value = 3 && second button is clicked > > close all > quit > endcase >>