知识大全 完成明细帐查询功能[2]
Posted 知
篇首语：路曼曼其修远兮，吾将上下而求索。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 完成明细帐查询功能[2]相关的知识，希望对你有一定的参考价值。
// 查询数据并显示
procedure TDetailAccount BitBtn Click(Sender: TObject);
begin
adoquery Close;
adoquery SQL Clear;
adoquery SQL Add( select a * b 科目名称 from 本期明细帐簿 a 科目表 b
where (a 科目代码 like % +edit Text+ % )and );
adoquery SQL Add( (a 科目代码=b 科目代码) );
adoquery Open;
//清除设置的数据过滤器并重新设置列表
datasource DataSet Filtered:=false;
setlist();
end;
// 窗体显示时 向左边列表框中添加科目名称
procedure TDetailAccount FormShow(Sender: TObject);
begin
setlist();
end;
// 将数据集中已有的科目名称添加到列表中
procedure TDetailAccount setlist;
var
name:string;
begin
listbox Clear;
listbox Clear;
while not adoquery Eof do
begin
name:=adoquery fieldbyname( 科目名称 ) AsString;
//如果列表中没有该名称则添加 若已有则不做任何动作
if listbox Items IndexOf(name)= then
listbox Items Insert(listbox Items Count name);
adoquery Next;
end;
end;
//选中一个科目名称并允许将其添加到右边的列表中
procedure TDetailAccount ListBox Click(Sender: TObject);
begin
if listbox Items Count<> then
button Enabled:=true;
end;
//选中一个科目名称 并允许从右边的列表中删除它
procedure TDetailAccount ListBox Click(Sender: TObject);
begin
if listbox Items Count<> then
button Enabled:=true;
end;
// 在右边的列表中添加某一项
procedure TDetailAccount Button Click(Sender: TObject);
var
name:string;
begin
name:=listbox Items Strings[listbox ItemIndex];
//若右边的列表框不存在该项 再向其中添加
if listbox Items IndexOf(name)= then
listbox Items Insert(listbox Items Count name);
//允许在表中根据选择的项进行显示
bitbtn Enabled:=true;
end;
// 在右边的列表中删除某一项
procedure TDetailAccount Button Click(Sender: TObject);
begin
//若不为空 则可以将名称项从列表中删除
if listbox Items Count<> then
listbox Items Delete(listbox ItemIndex);
//若右边列表已空 则将按钮变灰(不可用)
if listbox Items Count= then
begin
button Enabled:=false;
bitbtn Enabled:=false;
end;
end;
// 根据选择的项显示数据
procedure TDetailAccount BitBtn Click(Sender: TObject);
var
filstr:string;
i:integer;
begin
filstr:= ;
//根据列表中内容设置数据集的过滤项并过滤
for i:= to listbox Count do
begin
filstr:=filstr+ 科目名称= +listbox Items Strings[i]+ ;
if i<>listbox Count then
filstr:=filstr+ OR ;
end;
datasource DataSet Filter:=filstr;
datasource DataSet Filtered:=true;
end;
[ ] [ ]
cha138/Article/program/Delphi/201311/25013相关参考
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> ()新建一个窗体将窗体的Name属性设置为TotalAcco
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>>cha138/Article/program/Delp
知识大全 求财务费用利息收入的做帐方法和登明细帐的实例图，谢谢
求财务费用利息收入的做帐方法和登明细帐的实例图，谢谢！下载这个表格，在电脑的网页里（本页）下载。可以参考一下。本月有笔财务费用-利息收入1.2元，为什么我在明细账里查不到？查看银行存款日记账，按凭证号
知识大全 五金建材商品零售行业做手工帐如何建库存商品的明细账
五金建材商品零售行业做手工帐如何建库存商品的明细账？,新人会计，公司是做五金建材商品零售的，库存种类和数目及其庞大，如果做手工帐如何建库存商品的明细账？方法如下：1、首先按商品品名、编号、规格、等级，
一个新工业企业要建明细分类帐怎么建？需要建哪些会计科目的明细账？（手工做账）急！谢谢1、手工帐的明细账很多，基本发生过业务所涉及的会计科目都要有明细账。财务手工明细账主要有：费用明细账、往来账（应收应
所谓平行登记，是指对所发生的每项经济业务，都要以会计凭证为依据，一方面记入有关总分类账户；另一方面记入有关总分类账户所属明细分类账户的方法。 平行登记要点主要包括以下四方面： （1）依据相同。对发
知识大全 我是一个刚刚接触超市行业的新手会计，请问超市会计都需要做凭证，明细账薄、总分类帐薄资产负债表这些吗
我是一个刚刚接触超市行业的新手会计，请问超市会计都需要做凭证，明细账薄、总分类帐薄资产负债表这些吗超市行业也肯定是要做凭证，明细帐，总分类帐及有关报表的。如资产负债表和利润表及现金流量表。这些都是最基
知识大全 朋友们我是新手在一家山珍酒楼做会计，这家酒楼不用报税，每月交定额税，我该报哪些帐及明细给老总呢。
朋友们我是新手在一家山珍酒楼做会计，这家酒楼不用报税，每月交定额税，我该报哪些帐及明细给老总呢。所有涉及酒楼发生的收入、成本、费用都要列支归集，然后做出明细账。酒楼复杂的账务处理就是成本，因为品种繁多
请问下登帐的具体程序应该是怎样的？我是一名新手会计，请各位高手指点一下，小女子将感激不尽！1.编制记帐凭证2.根据记帐凭证顺序登记明细帐3.根据明细帐或科目汇总表登记总帐4.核对总帐与明细帐是否想符5
新接手的一个园林绿化企业的会计，都需要建立什么帐？本人新手请帮帮忙，谢谢！首先肯定要有记账凭证.然后就有总账，现金日记分类账，银行存款日记分类账，三栏式明细分类账，多栏式明细分类账，数量金额式明细分类