计算器在线使用计算（SDO100怎样使用）

导读大家好，我是小小根，我来为大家解答以上问题。计算器在线使用计算，SDO100怎样使用很多人还不知道，现在让我们一起来看看吧！1、用ADOQUER

大家好，我是小小根，我来为大家解答以上问题。计算器在线使用计算，SDO100怎样使用很多人还不知道，现在让我们一起来看看吧！

1、用ADOQUERY，如果您在Windows下使用（一般多数都使用windows，也用Unix等其它操作系统），建议使用ADOQUERY.因为ADO是微软的为开发数据连接而设定的一套协议。

2、以下是本人使用ADO的部分小片段（《建筑材料管理系统》软件）： procedure TFormsdl513.BitBtn1Click(Sender: TObject); var Date1,Date2:TDateTime; StrSQl,StrCllb,StrClbm,sTempX:String; Ldate,Lstr,FileEXit,YesNo:Boolean; SL:TStrings; i:integer; begin Ldate:=False; Lstr:=False; Date1:=date; Date2:=date; YesNo:=False; if CheckBox1.Checked and (not CheckBox2.Checked) then //如果仅仅考虑日期 begin WIth dm.ADOTable_ChaXun do begin Date1:=FieldValues['D1']; Date2:=FieldValues['D2']+1;//含这一天，故加1 end; Ldate:=True; Lstr:=False; end; if (not CheckBox1.Checked) and CheckBox2.Checked then //如果仅仅考虑科目 begin StrCllb:=Leftstr(ComboBox1.Text,2); StrClbm:=Midstr(comboBox1.Text,4,2); Ldate:=False; Lstr:=True; end; if CheckBox1.Checked and CheckBox2.Checked then //考虑科目和日期 begin With dm.ADOTable_ChaXun do begin Date1:=FieldValues['D1']; Date2:=FieldValues['D2']+1;//含这一天，故加1 end;//With dm.ADOTable_ChaXun do StrCllb:=Leftstr(ComboBox1.Text,2); StrClbm:=Midstr(comboBox1.Text,4,2); Ldate:=True; Lstr:=True; end; //end if CheckBox1.Checked and CheckBox2.Checked then //考虑科目和日期 {开始具体处理} {首先，删除Temp513,并建立表的所有数据} FileExit:=False;//判断Temp513表是否存在 SL:=TStringList.Create; dm.ADOConnection1.GetTableNames(SL,false); for i := 0 to SL.Count-1 do if pos('Temp513',Sl.Strings[i])>0 then begin FileExit:=True;//表Temp513存在 break; end; SL.Free;//释放 SL if FileExit then //如果表temp存在，先删除它，再新建 with dm.ADOQuery_Public do begin if Active then Active:=False; SQL.Clear; SQL.Add('DROP Table Temp513'); ExecSQL; end; {以下16-17行是建立一个临时表Temp} strSQL:='Create Table Temp513(bm1 character(2),bm2 character(2),' +'mc character(16),sr double,zc double)'; {bm1,bm2,mc,sr,zc 分别是编码1，编码2，名称，收入，支出} with dm.ADOQuery_Public do begin if Active then Active:=False; SQL.Clear; SQL.Add(strSQl); ExecSQL; end; if CheckBox3.Checked and (LeftStr(ComboBox2.Text,4)<>'NoNo') then begin YesNo:=True; sTempX:=LeftStr(ComboBox2.Text,4); end; {仅仅考虑日期范围} if LDate and (not LStr) then //仅仅考虑日期范围 begin strSql:='Insert into Temp513(bm1,bm2,mc,sr,zc) ' +'Select bm1,bm2,mc,sum(sr) as sr,sum(zc) as zc' +' From srzc WHERE rq>=:Date1_0 and rq<:Date2_0'; if YesNo then strSql:=strSql+' and xmbm=:xmbm_0'; strSql:=strSql+' Group By bm1,bm2,mc'; With dm.ADOQuery_Public do begin if Active then Active:=False; SQL.Clear; SQL.Add(strSql); Parameters[0].Value :=Date1; Parameters[1].Value :=Date2; if YesNo then Parameters[2].Value :=sTempX; ExecSQL; end; // end With dm.ADOQuery_Public do With dm.ADOTable_ChaXun do begin Active:=True; Edit; FieldByName('T2').AsString := '考虑自'+DateTimeTostr(Date1)+'至'+DateTimeTostr(Date2-1) +'止期间的数据('+MidStr(ComboBox2.Text,6,16)+')'; Post; end; end; //end if LDate and (not LStr) then //仅仅考虑日期范围 {仅仅考虑科目} if (not LDate) and LStr then //仅仅考虑科目 begin strSql:='Insert into Temp513(bm1,bm2,mc,sr,zc) ' +'Select bm1,bm2,mc,sum(sr) as sr,sum(zc) as zc' +' From srzc WHERE bm1=:strcllb_0 and bm2=:strclbm_0'; if YesNo then strSql:=strSql+' and xmbm=:xmbm_0'; strSql:=strSql+' Group By bm1,bm2,mc'; With dm.ADOQuery_Public do begin if Active then Active:=False; SQL.Clear; SQL.Add(strSql); Parameters[0].Value :=strcllb; Parameters[1].Value :=strclbm; if YesNo then Parameters[2].Value :=sTempX; ExecSQL; end; // end With dm.ADOQuery_Public do with dm.ADOTable_ChaXun do begin Active:=True; Edit; FieldByName('T2').AsString := '考虑一级编码为:'+ strcllb +',二级编码为:'+ strclbm+'的数据('+ MidStr(ComboBox2.Text,6,16)+')'; Post; end; end; //end if (LDate=False and LStr=True) then //仅仅考虑科目 {科目和日期范围均考虑} if (LDate and LStr) then //科目和日期范围均考虑 begin strSql:='Insert into Temp513(bm1,bm2,mc,sr,zc) ' +'Select bm1,bm2,mc,sum(sr) as sr,sum(zc) as zc' +' From srzc WHERE rq>=:Date1_0 and rq<:Date2_0 ' +' and bm1=:strcllb_0 and bm2=:strclbm_0'; if YesNo then strSql:=strSql+' and xmbm=:xmbm_0'; strSql:=strSql+' Group By bm1,bm2,mc'; With dm.ADOQuery_Public do begin if Active then Active:=False; SQL.Clear; SQL.Add(strSql); Parameters[0].Value :=Date1; Parameters[1].Value :=Date2; Parameters[2].Value :=Strcllb; Parameters[3].Value :=strclbm; if YesNo then Parameters[4].Value :=sTempX; ExecSQL; end; // end With dm.ADOQuery_Public do with dm.ADOTable_ChaXun do begin Active:=True; Edit; FieldByName('T2').AsString := '考虑自'+DateTimeTostr(Date1)+'至'+DateTimeTostr(Date2-1) +' 一级编码为:'+ strcllb +',二级编码为:'+ strclbm+'的费用数据('+ MidStr(ComboBox2.Text,6,16)+')'; Post; end; //with dm.ADOTable_ChaXun do end; //end (LDate and LStr) then //科目和日期范围均考虑 //Application.CreateForm(TFormsdl513_1, Formsdl513_1); Formsdl513_1:=TFormsdl513_1.Create(Application); Formsdl513_1.ShowModal; //明细表 Formsdl513_1.Free; with dm.ADOQuery_Public do begin if Active then Active:=False; SQL.Clear; SQL.Add('DROP Table Temp513'); ExecSQL; end; {以上删除表Temp513} end; -------------------------------------------------------- 这里 dm.ADOQuery_Public就是dm这个数据模块中的T ADOQUERY组件，你看到利用它可以在数据库中建表： strSQL:='Create Table Temp513(bm1 character(2),bm2 character(2),' +'mc character(16),sr double,zc double)'; 利用它可以在数据库中删表： SQL.Add('DROP Table Temp513'); 利用它可以在数据库中插入添加数据： strSql:='Insert into Temp513(bm1,bm2,mc,sr,zc) ' +'Select bm1,bm2,mc,sum(sr) as sr,sum(zc) as zc' +' From srzc WHERE rq>=:Date1_0 and rq<:Date2_0'; if YesNo then strSql:=strSql+' and xmbm=:xmbm_0'; strSql:=strSql+' Group By bm1,bm2,mc'; 利用它可以在数据库中select等操作。

3、以上内容是实际源码，请多指教！只有大家都用它，我们一起才能取长补短，一起进步。

本文到此讲解完毕了，希望对大家有帮助。