猎人行动

摘要： 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 阅读全文

摘要： 2010年伊始，细数2009： 2009年 市中区36平米小户型一套2009年峨眉山46平米小户型一套 2009年 市中区西式快餐店部分股份 辛苦的2009，经过疯狂的消费，最后的结果是我一无所有。2010，我再次从零开始。 2010年，我满怀信心。我希望能完成新购的三套住房（另一套2008年购）顺利交房；希望协助父母完成90平米的小户型一套（部分出资）；希望再投资一家西式快餐店股份（较大股份）... 阅读全文