|
当然要引入各模块的单元文件名： uses unit2,unit3,unit4,unit5,unit8,unit9,unit10,unit11,unit12,unit13,unit14,unit15,unit16,unit18; 内容来自www.paper51.com 3． 凭证录入模块 内容来自www.paper51.com
进入凭证录入界面如下： 内容来自www.paper51.com
paper51.com 该模块主要是些数据的增删改，采用了DELPHI的数据敏感控件。 内容来自www.paper51.com 点击科目选择按钮： paper51.com
http://www.paper51.com 选择后点击确定返回凭证录入界面，科目自动输入刚才选择的选项。实现代码如下： 内容来自www.paper51.com procedure TForm6.FormShow(Sender: TObject); paper51.com
begin http://www.paper51.com adoquery1.Close; 内容来自论文无忧网 www.paper51.com adoquery1.SQL.Clear; 内容来自论文无忧网 www.paper51.com adoquery1.SQL.Add('select * from km'); 内容来自论文无忧网 www.paper51.com adoquery1.Prepared; paper51.com adoquery1.Open; 内容来自论文无忧网 www.paper51.com combobox1.Clear; 内容来自论文无忧网 www.paper51.com
while not adoquery1.Eof do copyright paper51.com begin http://www.paper51.com combobox1.Items.Add(adoquery1.Fields.fieldbyname('name').Value); 内容来自论文无忧网 www.paper51.com
adoquery1.Next; paper51.com
end; copyright paper51.com end; paper51.com procedure TForm6.Button1Click(Sender: TObject); copyright paper51.com begin 内容来自论文无忧网 www.paper51.com form3.dbedit3.Text :=combobox1.Text; 内容来自www.paper51.com close; copyright paper51.com end; copyright paper51.com
内容来自www.paper51.com |