sql.text:= insert into Rep仓库收付存月_程序员之家(GetPartFilter+SumStocklist )

开发技术指南» 文章正文

引言： sql.text:= insert into Rep仓库收付存月

摘要：unit uswlmselectda; {$s-,w-,r-} {$c preload} interface uses windows,messages,sysutils, types, classes, graphics, controls,stdctrls,forms, strutils,math,adodb,tflatbuttonunit,uswlmstyleedit; type ......

·delphi+mapx5中使用自定义字体符号 »显示摘要«

摘要：mapx5中使用自定义字体符号觉得现在使用自定义字体作为点符号的应用是越来越少了，近段时间在开发gps车辆管理的gis系统的时候要用到动态显示车辆位置，觉得用其他方式在地图上显示车辆可能会对性能有一定的影响，所以就使用的自定义字体。首先是创建自定义的字体。使用了字体编辑软件fontlab.v4.60。其次就是在delphi＋mapx中使用该字体了。 mystyle:=cost......

GetPartFilter+SumStocklist

sql.text:= insert into rep仓库收付存月结报表(mc,ycjcje,bqsrje,bqllje,qmjcje) +

(select sorttype,sum(qc*inprice),sum((rk-rkt)*inprice),sum((ck-ckt)*inprice),sum(jc*inprice) + 【程序编程相关:让Fastreport3.x支持中文PD】

【推荐阅读:我用Delphi实现的Singleton】

from tmpkk2 where 1=1 +sdepot+stmp + group by sorttype ) ; 【扩展信息:拷贝DBGrid当前行】

execsql;

function getpartfilter(aid: string): string;

var

querytemp: toceanquery;

s: string;

lownerids: tstringlist;

procedure getownerids(aid: string);

var lquery: toceanquery;

begin

lquery := toceanquery.create(nil);

try

lquery.close;

lquery.sql.text := select id from partinfo where ownerid= + quotedstr(aid) + and id<> + quotedstr(aid) + and imageindex=0;

lquery.open;

while not lquery.eof do

begin

lownerids.add(lquery.fieldbyname(id).asstring);

getownerids(lquery.fieldbyname(id).asstring);

lquery.next;

end;

finally

lquery.free;

end;

var i: integer;

begin

result := ;

querytemp := toceanquery.create(nil);

lownerids := tstringlist.create;

try

querytemp.close;

querytemp.sql.text := select id,imageindex from partinfo where id= + aid + ;

querytemp.open;

if querytemp.isempty then exit;

... 下一页

·创建photoshop式浮动窗口应用程序 »显示摘要«

摘要：用过photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在photoshop的主窗体上（不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与mdi程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。　　用spy & capture查看一下就不难发现，这些面板窗体的parent ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：