摘要： begin ListView1.ViewStyle:=vsSmallIcon; pSql:='select * FROM XMCX WHERE W_XB=''男'''; ADOQ_czxm.close; ADOQ_czxm.sql.clear; ADOQ_czxm.sql.text:=pSQL; ADOQ_czxm.open; for i:=0 to ADOQ_czxm.RecordCount-1 do begin pName:=ADOQ_czxm.FieldByName('w_name').AsString; pTel:=ADO 阅读全文

摘要： var pSql:String; FUserName：String;begin if FUserName='' then begin label名字.visible:=true; 直接用label名字:='用户名不能为空！'; edt_userName.SetFocus; EXIT; end;先把label属性调成false，不让文字显示，然后再加上label名字.visible:=true;（将false在代码里改成true） 阅读全文

摘要： 一、程序的组成：变量 ：必须先定义，后使用。var str:String; //字符串型 值，必须用单引号括起来 str:=’abc’; str:=’12’; num:Integer; //数字值型 num:=123; num:=-5; fat:Boolean;// 布尔型 只有两个值 true真 false假beginend;XX:=StrToInt(‘12’); //将字符串 ‘12’转换成数值型(Integer)方法： Procedure 方法名;控件：属性事件： 单击（onClick） 显示（只有窗体有 onShow） 阅读全文