摘要：
procedure TMainForm.InputChange(Sender: TObject);var I: Integer; S, Number: string;begin Output.Text := ''; S := Input.Text; if CheckBox.Checked then begin Number := ''; for I := 1 to Length(S) do beg... 阅读全文
摘要：
摘自万一老师的博客：http://www.cnblogs.com/del/archive/2008/01/01/1022539.html 阅读全文
摘要：
procedure TForm1.RzBitBtn1Click(Sender: TObject);var searchrec: TSearchrec; //********************************* path, FileName: string; //最简单的使用(文件) 查找 findresult: integer; //只能搜索指定目录（不包含子文件夹） arr: ar... 阅读全文
摘要：
SELECT *FROM (SELECT DISTINCT yy, mm, Org_id, bus_id FROM Monthorgsell) t1WHERE (NOT EXISTS (SELECT DISTINCT yy, mm, Org_id, bus_id FROM MonthorgPlan AS t2 WHERE t1.yy = t2.yy AND t1.mm = t2.mm AND t1... 阅读全文
摘要：
在sql server 的northwide 中建立主表： create table sell_main( sell_id char(10),cust_name char(10) Primary key(sell_id) ) go 建立从表： create table sell_item( sell_id char(10),inv char(10) ,amt float,qty float Pr... 阅读全文
摘要：
可以在打印前计算出纸张的长度再设置不就可以了,我用过,可以实现的. frm_print.frprint.Pages.Pages[0].pgSize:=256; frm_print.frprint.Pages.Pages[0].pgWidth:=2100; frm_print.frprint.Pages.Pages[0].pgHeight:=(5*dm_xsgl.q_xsdmx.RecordCoun... 阅读全文
摘要：
嘉州影院的网址:v.jiazhou.cn 帐号:ssaakk 密码:111111 阅读全文
摘要：
那一夜，我听了一宿梵唱，不为参悟，只为寻你的一丝气息； 那一天，我闭目在经殿香雾中，蓦然听见你颂经中的真言； 那一月，我摇动所有的经筒，不为超度，只为触摸你的指尖；那一年，磕长头匍匐在山路，不为觐见，只为贴着你的温暖； 那一世，转山转水转佛塔，不为修来世，只为途中与你相见。 在读到这首诗之前， 从不知信仰可以被演绎得如此温情脉脉， 从来不知道虔诚还可以如此细腻温柔。 每每听到这首歌时，都... 阅读全文
摘要：
其实我挺高兴的。下次一定再来你的小店，不是为了惠顾你，而是去感受一个纯粹的人。 这段时间股市跌得多历害，我TM重仓啊，跌得我拉S都比平常臭了。 阅读全文
摘要：
update Table1set Table1.co1=Table2.co1, Table1.co2=Table2.co2from Table2where Table2.id=Table1.id 阅读全文