|
end; procedure TForm6.Button1Click(Sender: TObject); copyright paper51.com begin http://www.paper51.com form3.dbedit3.Text :=combobox1.Text; http://www.paper51.com close; http://www.paper51.com end; http://www.paper51.com
4． 科目管理 内容来自www.paper51.com 输入财务管理系统的科目基础数据。对基础数据进行增删改。 paper51.com procedure TForm4.FormShow(Sender: TObject); paper51.com
begin http://www.paper51.com adoquery1.Close; http://www.paper51.com adoquery1.SQL.Clear; http://www.paper51.com adoquery1.SQL.Add('select * from km'); 内容来自论文无忧网 www.paper51.com adoquery1.Prepared; 内容来自论文无忧网 www.paper51.com adoquery1.Open; 内容来自论文无忧网 www.paper51.com end; paper51.com
http://www.paper51.com
5． 科目查询模块 paper51.com procedure TForm18.FormShow(Sender: TObject); 内容来自www.paper51.com begin 内容来自论文无忧网 www.paper51.com combobox3.Clear; 内容来自论文无忧网 www.paper51.com form1.ADOQuery1.Close; paper51.com form1.ADOQuery1.SQL.Clear; copyright paper51.com form1.ADOQuery1.SQL.Add('select * fromkm'); 内容来自www.paper51.com form1.ADOQuery1.Prepared; http://www.paper51.com
form1.ADOQuery1.Open; paper51.com while not form1.adoquery1.Eof do 内容来自论文无忧网 www.paper51.com begin copyright paper51.com
combobox3.Items.Add(form1.adoquery1.Fields.fieldbyname('name').Value); http://www.paper51.com form1.adoquery1.Next; copyright paper51.com end; http://www.paper51.com end; http://www.paper51.com procedure TForm18.Button1Click(Sender: TObject); paper51.com begin http://www.paper51.com
adoquery1.Close; http://www.paper51.com adoquery1.SQL.Clear; 内容来自论文无忧网 www.paper51.com adoquery1.SQL.Add('select * from cw where km='+''''+combobox3.Text+''''); http://www.paper51.com
adoquery1.Open; http://www.paper51.com end; 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com |