时空KSOA之CS表单工具说明

CS表单工具说明 
1、调用： 
1.1、单据事件调用 
runbill_表单sn 调用无窗口表单 
loadbill_表单sn 调用窗口表单 
1.2、功能调用 
功能号：LOADCSBILL 参数表单名称 
1.3、表单中调用表单 
OPENBILL_表单sn

2、对象 
2.1、DJForm: // 特指单据调用表单，此为单据窗体对象 
如果以单据为基础调用表单，则表单中全局对象DJForm <> nil; 
DJForm即为当前单据对象，可以通过此对象与单据进行交互，

2.2、ParentForm: // 上一层调用表单窗体对象 
2.3、SKPrint: 
SKPrint.ShowBillReport; // 打印预览 
SKPrint.PrintBillReport; // 打印 
SKPrint.DesignBillReport; // 打印设计
2.4、PrnValList: // 打印变量列表

3、全局变量 
__dbname 用DatabaseName 
单据变量： 
MX_字段名 
HZ_字段名

4、函数 
4.1、直接使用 
4.1.1、万能打印 
ShowReport // 打印预览 
PrintReport // 打印 
DesignReport // 打印设计 
RUNCALC // 计算器 
SelectDate // 日期选择 
ZL_SELECT_方案号 // 资料选择方案 
Close // 关闭窗口

4.2、在代码中使用 
procedure SetFldDisplay(DataSet: TDataSet); // 翻译中文字段 
procedure OpenBill(Self, 表单SN); // 打开新表单 
procedure Close; // 关闭窗体 
function GetMaxBh(const biaoshi: string; const IsNew: Boolean = True): string; // 得到最大编号，不含分店标识 
procedure SelectDate(Sender: TWinControl; DateStr: string); // 选择日期 
procedure GetTickCount; // 用于计算自windows启动后到现在的毫秒数

如： 
DjForm.djfmxtable.locate('fieldname','gzid',1); 
0: [] 
1: [loCaseInsensitive] 
2: [loPartialKey] 
3: [loCaseInsensitive, loPartialKey]

---------------------------------------------------------------------------------------------------------- 
资料检索方案调用：ZL_SELECT_方案号

代码中调用资料检索方案：zl_select(DsMain, 'pos_pdb', 'amxl'); 
//数据集，方案号，所要传递的参数。 
比如： 
zl_select(DsMain, 'qy', DsMain.FieldByName('hzflbh').AsString); 
这是'qy'的检索方案，其中:v_zjm 可以看成 ‘%所传参数%’

select qyid,qybh,qymch,zjm,qyms from hzfa a(nolock) 
join hzfamx b(nolock) on a.hzcode=b.hzcode 
join spxxqyzl c(nolock) on b.hzflbh=LEFT(c.qybh,LEFT(a.fjrule,1)) 
where a.hzcode='qy_init' and c.beactive='是' 
and LEFT(c.qybh,LEFT(a.fjrule,1)) like :v_zjm

---------------------------------------------------------------------------------------------------------- 
为事件指定方法：SetEvent(Self, SKBILLgrid1, 'OnColEnter', 'Edit2Change', False); 
参数：表单，数据集，自己找delphi事件，自定义事件，不知道 
procedure Edit2Change(Sender: TObject); 
begin 
ShowMessage('a'); 
end; 
-------------------------------------------------------------------------------- 
将当前表单的数据集取出来赋值到另一个数据集里。

单据提取方案 
function DJ_Select(Self: TForm; FAID: string; MainDataSet, SubDataSet: TDataSet): Boolean; 
begin 
Self.ObjList.Clear; 
Self.ObjList.AddObject('HZDataSet', MainDataSet); 
Self.ObjList.AddObject('MXDataSet', SubDataSet); 
Self.ObjList.Add('FAID=' + FAID); 
OpenBill(Self, 'hr_fhl_test1'); 
end;

赋值 
---------------------- 
ParentForm.ObjList.Add('djbh='+dssub1.FieldByName('djbh').AsString); 
self.close; 
--------------------- 
取值 
if self.ObjList.Values['djbh'] = '' then exit;

DJForm.SetDJValue('dwbh',''); 
---------------------------------------------------------------------------------------------------------- 
初始化的时候，需要对主数据集DsMain的值初始化。否则无法操作 
//with DsMain do 
//if Active then Close; 
with DsMain do 
begin 
if Active then Close; 
SQL.Text:='select space(20) as spid,space(20) as spbh,space(20) as spmch,space(20) as dw,space(20) as shpchd,' 
+ 'space(20) as shpgg'; 
Open; 
---------------------------------------------------------------------------------------------------------- 
SKDBTreeView 树控件 
能支持，关键字段code,name,id,sqls,active 
用法： 
SKDBTreeView1.codemode ：='2,2,3';显示格式 
tmp :=' select hzflbh as code,rtrim(hzflbh)+''：''+hzflchina as name,hzflbh as id' 
+' from hzfamx where hzcode = ''qy_init''' 
+' order by hzflbh'; 
SKDBTreeView1.SQLS:=tmp; 
SKDBTreeView1.Active := true; 
---------------------------------------------------------------------------------------------------------

要有写注释的习惯。

注释用 （**）也可用{}以及//

//回写的时候是对编辑的数据写回数据集中，提交是一行写入数据集的时候，但是直接赋值的话不会触发回写， 
------------------------------------------------------------------------------------------- 
异常的使用： 自我感觉是没用，因为是二次开发嘛，错误还是报，最后还是的关了单子，从新打开。 
try //try 保护代码块 
被保护语句
except //异常处理块 
on <异常对象类型 1> do <语句 1> //捕获指定类型的异常对象，进行处理 
on <异常对象类型 n> do <语句 n> //捕获指定类型的异常对象，进行处理 
else
<语句 n+1> //默认的异常处理代码 
end； 
注意：运行时必须先编译生成 exe 文件，然后在 Windows 中运行，否则在发生异常时仍将 出现系统的错误信息。

try....finally...end; 
------------------------------------------------------------------------------------------- 
for i :=LenBH downto 1 do 
嵌套循环的用法，以及数据集取值和赋值的用法。 有时用上dssub1.MoveBy()一起用的话 两个for也能用吧。 
dssub1.First; 
while not dssub1.Eof do 
begin 
for i := 0 to dssub1.FieldCount do 
begin 
dssub1.Fields[i].FieldName; 
dssub1.Field('beactive').Value := '否'; 
end; 
dssub1.Next; 
end; 
因为语法是强数据类型，所以最好知道所取和所设值的类型，以下为string型。 
dssub1.FieldByName('qybh').AsString; 
----------------------------------------------------------------------------------------------- 
列选择和数据集与数据的脱钩与挂钩 书签等。 
--鼠标选择 
SKBILLgrid1.selectedfield.value 此为选中的当前值 
SKBILLgrid1.selectedfield.FieldName 此为选中的当前列 
--指针******自己查找关于Delphi的指针@和Pointer函数等知识 
var p : pointer;

if SKBILLgrid1.selectedfield.FieldName = '类别/区域' then 
begin 
alert('请选择需要选中的列！'); 
exit; 
end; 
try 
p := dssub1.GetBookmark;//取得当前指针 
dssub1.DisableControls;//使当前数据集与数据源切断 
dssub1.First; 
while not dssub1.Eof do 
begin 
dssub1.Edit; 
SKBILLgrid1.selectedfield.value := 'Y'; 
dssub1.Next; 
end; 
finally 
dssub1.GotoBookmark(p);//跳到指针处 
dssub1.EnableControls;//恢复与数据源的联系 
dssub1.FreeBookmark(p);//释放内存 
end; 
程序修改或后台有刷新记录的时候切断数据组件，如果没有切断，数据源中只要一有数据的改动，尤其是批量改动的话，每一笔的改动都会更新窗口中数据浏览组件的显示，这样会急剧减慢处理过程而且浪费时间， 这两个函数主要阻止组件感应显示，以加快语句执行速度。 比如，用大量的循环的时候，最好用他们。 
-------------------------------------------------------------------------------------- 
运算符的优先级

级 别 运 算 符 
第一级 (最高级) .^ 
第二级 @ not 
第三级 * / div mod and as shl shr 
第四级 + － or xor 
第五级(最低级) = <> < > <= >= in is

需要注意的是，在 Object Pascal 中，“and”和“or”运算符的优先级比关系运算符高， 
因此，对于表达式“a<b and c<d”，编译器会首先编译“and”运算符，由此导致编译错误。 
因此，应该把该表达式用小括号括起来，即：(a<b)and(c<d)。 
----------------------------------------------------------------------------------------------------- 
一些经常碰到的函数 
select convert(char(10),getdate(),20) 日期 
inc 应该是自增 
IsSpace(); 
length('abc'); 
strtoint(); 
inttostr(); 
ansilowercase 函数 将字符转换为小写 
ansiuppercase 函数 将字符转换为大写 
SKDBedit5.Text := FormatDateTime('YYYY-MM-DD', Now - 60); 
SKDBedit6.Text := FormatDateTime('YYYY-MM-DD', StrToDate(SKDBedit5.Text) - 60);

copy(a，b，c)字符串处理函数。--->substr 
参数： a 字符串 
b 从第几个字符（从0和1开始算都一样） 
c 取多长字符 （length）

Copy(s + inttostr(Fields[0].AsInteger + 1), length(inttostr(Fields[0].AsInteger + 1))+1, length(s) ) 
---------------------------------------------------------------------------------------------------------- 
临时的查询 
var tmp_qry:TQuery; 声明----？？？？？？

tmp_qry := TQuery.Create(nil); 
with tmp_qry do 
try 
DatabaseName := __dbname;//上行 和 这行 的顺序不能颠倒 
SQL.Text := 'if exists(select top 1 1 from spxxqyzl where qybh like :fangabh)' 
+ ' select substring(max(qybh),'+inttostr(length(fangabh)+1)+',100) as qybh from spxxqyzl c(nolock)' 
+ ' where c.qybh like :fangabh' 
+ ' else ' 
+ ' select qybh from spxxqyzl where 1=2'; 
ParamByName('fangabh').AsString := fangabh+'%'; 
Open; 
finally 
free; 
end; 
返回的是单个值就用Fields[0].AsInteger或Fields[0].AsString 
------------------------------------------------------- 
关于数据集dssub或SK 
-----判断数据集是否为空 
if (dssub1.FieldByName('dj_sn').AsString = '') and (dssub1.RecordCount = 0) 
if dssub1.IsEmpty then

if messagebox('确定删除该记录吗？','系统提示',36) <> 6 then 
begin 
exit; 
end; 
-----清空数据集 
dssub1.close; 
dssub1.open; 
----指针 
dssub1.MoveBy(2); 
dssub1.firset; 
dssub1.last; 
dssub1.next; 
dssub1.eof 
dssub1.bof 
dssub1.append(); 
alert(dssub1.FieldByName('qybh').Value);//返回的是append新增一行的数据，所以一直是空。

----数据集已经查出来，对其中的数据查询，及过滤 
数据集过滤的用法，且K，D 是变量的时候，最后会将数据集过滤。 
dssub2.Filtered:=false; 
dssub2.Filter:='(KH='+ QuotedStr(k) +') and (DH='+QuotedStr(d) + ')';//QUotedStr是单引号的意思，没用过。 
dssub2.Filtered:=true; 
findRowNumR := dssub2.RecordCount; 
返回的是当前过滤完的数据集个数

----数据集返回值 
if dssub2.Active then dssub2.Close; 有时呢如果不关闭数据集，结果程序为了显示结果，将不会退出继续执行。 
dssub1.SQL.text := 'declare @col varchar(100), @sql varchar(8000)' 
+ ' select @col = '' '', @sql = '' ''' 
+ ' select @col = @col + '','''''' '''''' as ['' + dictlist + '']'' ' 
+ ' from (select dictlist from gldict where bianh = ''kehulb'') a' 
+ ' select @sql = @sql + ''select '''''''''' + qyid + '''''''''' as qyid,'''''''''' + qymch + '''''''''' as ''''''区域/类别'''''''''' + @col + '' union all ''' 
+ ' from (select c.qyid,c.qymch from hzfa a(nolock)join hzfamx b(nolock) on a.hzcode=b.hzcode ' 
+ ' join spxxqyzl c(nolock) on b.hzflbh=left(qybh,len(hzflbh)) ' 
+ ' where a.hzcode=''qy_init'' and c.beactive=''是'' and left(qybh,len(hzflbh))= :leib ) a ' 
+ ' set @sql = left(@sql,len(@sql)-10)' 
+ ' exec(@sql)'; 
dssub1.ParamByName('leib').AsString := SKDBTreeView1.id; 
dssub1.Open; 
返回数据用open，不返回光执行用ExecSQL

----数据集中的复选框 
property UnCheckBoxValue: string read FUnCheckBoxValue write FUnCheckBoxValue; 
property CheckBoxValue: string read FCheckBoxValue write FCheckBoxValue; 
property CheckBoxFields: string read FCheckBoxFields write SetCheckBoxFields;

怎么把一个字段的值设置成“复选框”

给这个属性这么赋值就可以了，'spbh,spmch,shpgg'

复选框的用法： 
SKBILLgrid1.UnCheckBoxValue := 'N'; 
SKBILLgrid1.CheckBoxValue := 'Y'; 
SKBILLgrid1.CheckBoxFields := dssub1.Fields[i].FieldName; 
必须注意的是，上面三句不可颠倒。 
类似地 
(* 
SKBILLgrid1.UnCheckBoxValue := '否'; 
SKBILLgrid1.CheckBoxValue := '是'; 
SKBILLgrid1.CheckBoxFields := 'beactive'; 
*) 
-----数据集选中变颜色 
procedure uf_dclick; 
begin 
dssub1.Edit(); 
if dssub1.FieldByName('is_selected').AsString = '是' then 
begin 
dssub1.FieldByName('is_selected').AsString := '否'; 
end 
else 
begin 
dssub1.FieldByName('is_selected').AsString := '是'; 
end; 
end;

procedure DrawDataCell; 
begin 
if dssub1.FieldByName('is_selected').AsString = '是' then 
begin 
SKBILLgrid1.Canvas.Brush.Color := $EFCBA5; 
SKBILLgrid1.Canvas.Font.Color := $000000; 
end; 
end; 
----------------------------------------------------------------------------------------------- 
字符串数组TStringList，该方法是用来分隔字符串的，默认的分隔符是‘，’更多方法看Delphi技巧。 
其中：SKDBTreeView1.codemode=‘2,2,3’ 
分割后在strings中 
数据 序号 个数 
2 0 1 
2 1 2 
3 2 3 
function uf_add():Boolean; 
var 
strlst:TStringList; 
i,l:integer; 
tmp_qry :TQuery; 
begin 
l := 0; 
strlst := TStringList.Create; 
try 
strlst.CommaText := SKDBTreeView1.codemode; 
for i := 0 to strlst.Count - 2 do 
l := l + strtoint(strlst.strings[i]); 
finally 
strlst.Free; 
end; 
---------------------------------------------------------------------------------------------------- 
存盘(&S) uf_save() /bill/userimage/D:/SpaceTime/KSOA_ufida90/wms图标/save.bmp 
新增(&N) uf_add() /bill/userimage/D:/SpaceTime/KSOA_ufida90/wms图标/add.bmp 
删除(&D) uf_del() /bill/userimage/D:/SpaceTime/KSOA_ufida90/wms图标/delete.bmp 
------------------------------------------------------------------------------------------ 
当前登录的用户名与分店标识 
username 
myselfbdbs 
------------------------------------------------------ 
取最大编号 
SQL.Text := 'exec SOF_getmaxbh ''PLA'',1'; 
Open; 
----------------------------------------------------- 
//服务器日期 
SQL.Text := 'select convert(char(10),getdate(),20) as kaiprq'; 
Open; 
//日期，时间 
DsMain.FieldByName('rq').AsString := FormatDateTime('YYYY-MM-DD', Now); 
DsMain.FieldByName('ontime').AsString := FormatDateTime('HH:NN:SS', Now); 
---------------------------------------------------- 
下拉框 
SKComboBox1.Style:=csOwnerDrawVariable; 
SKComboBox4.Enabled := true; 
SKComboBox5.ItemIndex := -1; 
SKComboBox4.text := ''; 
文本框内容 
for i:=0 to SKComboBox4.items.count-1 do 
begin 
if SKComboBox4.items.Strings[i]=SKComboBox4.text then 
begin 
SKComboBox4.ItemIndex :=i; 
right := true; 
end; 
end; 
------------------------------------------------------------- 
事务

Session.FindDatabase(__dbname).StartTransaction; 
try 
tmp_qry := TQuery.Create(nil); 
p := dssub1.GetBookmark;//取得当前指针 
dssub1.DisableControls;//使当前数据集与数据源切断 
with tmp_qry do 
try 
tmp_qry.DatabaseName := __dbname; 
。。。。。。。。。。。。。。。。 
finally 
tmp_qry.free; 
dssub1.GotoBookmark(p);//跳到指针处 
dssub1.EnableControls;//恢复与数据源的联系 
dssub1.FreeBookmark(p);//释放内存 
end; 
Session.FindDatabase(__dbname).Commit; 
alert('保存成功！'); 
uf_clear(); 
except 
Session.FindDatabase(__dbname).Rollback; 
raise; 
end;

--------- 
字符串 
{ 
for i := 0 to Fid_list.Count-1 do 
begin 
//alert(Fid_list[i]); 
//alert(Fid_list.Values[i]); 
//alert(Fid_list.Names[i]); 
alert(Fid_list.Names[Fid_list.Values[i]]); 
//alert(Fid_list.Values[Fid_list.Names[i]]); 
end 
} 
---------- 
treeview 控件 
//alert(TreeNode.level); 
//alert(TreeNode.index); 
//alert(TreeNode.AbsoluteIndex); 
//alert(Fid_list.indexofobject(TreeNode)); 
//alert(Fid_list.Names[Fid_list.indexofobject(TreeNode)]); 
//alert(Fid_list[TreeNode.AbsoluteIndex]); 
//alert(Fid_list.Names[TreeNode.AbsoluteIndex]);

var Fid_list:Tstrings; 
//建树 
procedure create_tree(Node: TTreeNode;level:integer); 
var T_item: TTreeNode ; 
i:integer; 
begin 
//检索level级子项 
dssub2.Filtered:=false; 
dssub2.Filter:='p_id='+inttostr(level); 
dssub2.Filtered:=true; 
//循环构建树结点 
dssub2.First; 
while not dssub2.eof do 
begin 
T_item:=SKDBTreeView1.Items.AddChild(Node,dssub2.Fields[1].AsString); 
T_item.ImageIndex := 0; 
T_item.SelectedIndex := 0; 
Fid_list.AddObject(dssub2.Fields[0].AsString+'='+dssub2.Fields[2].AsString,T_item) ; 
dssub2.next; 
end; 
//循环各自的子结点 
for i := 0 to Node.Count-1 do 
begin 
T_item:=Node.Item[i]; 
T_item.ImageIndex := 1; 
T_item.SelectedIndex := 1; 
create_tree(T_item,strtoint(Fid_list.Names[Fid_list.indexofobject(T_item)])); 
end; 
end; 
//建索引 
procedure create_index; 
var T_root: TTreeNode ; 
aBookmark:TBookmark; 
begin 
// query1.SQL.Strings[3]:='FROM '+ management_table ; 
// query2.SQL.Strings[2]:='FROM '+ management_table ; 
//构建树 
Fid_list:=Tstringlist.Create; 
if dssub2.active then dssub2.close; 
dssub2.open; 
if dssub2.RecordCount=0 then exit; 
dssub2.First;

dssub2.Filtered:=false; 
dssub2.Filter:='p_id=0'; 
dssub2.Filtered:=true; 
dssub2.first; 
while not dssub2.eof do 
begin 
aBookmark:=dssub2.GetBookmark; 
T_root:=SKDBTreeView1.Items.Add(nil,dssub2.Fields[1].AsString); 
Fid_list.AddObject(dssub2.Fields[0].AsString+'='+dssub2.Fields[2].AsString,T_root) ; 
create_tree(T_root,dssub2.Fields[0].AsInteger); 
dssub2.Filtered:=false; 
dssub2.Filter:='p_id=0'; 
dssub2.Filtered:=true; 
dssub2.GotoBookmark(aBookmark); 
dssub2.next; 
end; 
dssub2.Filtered:=false; 
dssub2.Close; 
dssub2.Filter:=''; 
end;

横向移动设置： 
//添加事件 
SetEvent(Self, SKBILLgrid1, 'OnColEnter', 'uf_huoShang', False);

if dssub1.RecordCount =0 then 
begin 
dssub1.Edit(); 
dssub1.ClearFields(); 
end;

tmp_qry := TQuery.Create(nil); 
with tmp_qry do 
try 
tmp_qry.DatabaseName := __dbname; 
// SQL.text := 'select top 3 * from spkfk ';

SQL.Text := 'select a.spid,spbh,b.spmch,a.dj,a.shl,b.shpgg,b.shpchd,b.dw,b.shlv,b.jlgg,b.zjm, ' 
+' a.dj*(1+b.shlv/100) as hshjj,b.lshj, ' 
+' b.zdshj,b.hshjj as zxdj,b.hshjj as htdj,b.shj*(1+b.shlv/100) as hshsj,b.shj*(1+b.shlv/100) as hshj, ' 
+' b.shj,b.jj,b.hshjj,b.zgshj,b.leibie ' 
+' from PackagesMX a(nolock),spkfk b(nolock) ' 
+' where a.spid = b.spid and a.fangabh in (select fangabh from PackagesMX(nolock) where spid ='''+ mx_spid+''')';

//alert(SQL.Text); 
Open; 
DjForm.djmxtable.Edit; 
copydataset(tmp_qry,DjForm.djmxtable,false); 
//DjForm.djmxtable.FieldByName('spbh').AsString := '234'; 
//DjForm.djmxtable.append;

finally 
free; 
end;

最主要的还是要有思路，其他的一切都是方法