下面介绍Unit2用户电量查询显示界面的实现。
此界面并没有使用什么独特的控件，其中使用了多标签PageControl，数据显示DBGrid，图标Chart控件。
其中DBGird控件直接与Form1中的DataSource相连，由数据库读出的数据直接使用add语句，在Chart控件中进行显示。
1.数据的查询
操作数据库自然使用SQL语句，输入带变量的SQL语句，可以使用Form1中Timer4的输入方法（见Unit1技术细节4.Timer4），这里举例一种直接使用“+”来产生控制语句字符串的方法。
u_Date := datetostr(teDateTimePicker1.DateTime);//获得用户选择的时间 u_Year:=leftStr(u_Date,4);//取年 u_Month:=copy(u_Date,6,2);//取月 u_Day:=copy(u_Date,9,2);//取日 // tememo2.Text := u_Date; // tememo1.Text := u_Year+u_Month+u_Day; form1.IBdatabase1.Connected:=true; form1.IBquery1.Close; form1.ibquery1.SQL.Clear; case f2dlCombo.ItemIndex of 0:form1.ibquery1.SQL.Add('select * from BH0 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year);//查询当年月日的数据 1:form1.ibquery1.SQL.Add('select * from BH1 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 2:form1.ibquery1.SQL.Add('select * from BH2 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 3:form1.ibquery1.SQL.Add('select * from BH3 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 4:form1.ibquery1.SQL.Add('select * from BH4 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 5:form1.ibquery1.SQL.Add('select * from BH5 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 6:form1.ibquery1.SQL.Add('select * from BH6 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 7:form1.ibquery1.SQL.Add('select * from BH7 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 8:form1.ibquery1.SQL.Add('select * from BH8 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); 9:form1.ibquery1.SQL.Add('select * from BH9 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year); end; form1.ibquery1.Open; //这时值已经放到IBQuery中了
其中可以观察到 u_Date,u_Year,u_Month,u_Day : string;即均为字符型数据，传输的SQL数据也为字符串型，因此，直接将 u_Date,u_Year,u_Month,u_Day加入到SQL语句中是符合类型的。因此使用语句('select * from BH0 where u_day='+ u_Day + 'and u_month=' + u_Month + 'and u_year=' + u_Year) 可以找出指定年月日的所有数据。
2.数据的显示
对于数据的显示，使用series1的add命令，将得到的数据add到表中，之后进行显示即可。
下面展示的是使用最笨的方法将数据读出：
定义一个数组 adayhour来存放24小时的数据，如 adayhour : array [1..24] of real;
adayhour[1] := form1.ibquery1.FieldByName('H1').AsFloat ;//按字段名取出数据，分别放到数组中 adayhour[2] := form1.ibquery1.FieldByName('H2').AsFloat ;//因为数据类型不一样，所以要加.asfloat adayhour[3] := form1.ibquery1.FieldByName('H3').AsFloat ; adayhour[4] := form1.ibquery1.FieldByName('H4').AsFloat ; adayhour[5] := form1.ibquery1.FieldByName('H5').AsFloat ; adayhour[6] := form1.ibquery1.FieldByName('H6').AsFloat ; adayhour[7] := form1.ibquery1.FieldByName('H7').AsFloat ; adayhour[8] := form1.ibquery1.FieldByName('H8').AsFloat ; adayhour[9] := form1.ibquery1.FieldByName('H9').AsFloat ; adayhour[10] := form1.ibquery1.FieldByName('H10').AsFloat ; adayhour[11] := form1.ibquery1.FieldByName('H11').AsFloat ; adayhour[12] := form1.ibquery1.FieldByName('H12').AsFloat ; adayhour[13] := form1.ibquery1.FieldByName('H13').AsFloat ; adayhour[14] := form1.ibquery1.FieldByName('H14').AsFloat ; adayhour[15] := form1.ibquery1.FieldByName('H15').AsFloat ; adayhour[16] := form1.ibquery1.FieldByName('H16').AsFloat ; adayhour[17] := form1.ibquery1.FieldByName('H17').AsFloat ; adayhour[18] := form1.ibquery1.FieldByName('H18').AsFloat ; adayhour[19] := form1.ibquery1.FieldByName('H19').AsFloat ; adayhour[20] := form1.ibquery1.FieldByName('H20').AsFloat ; adayhour[21] := form1.ibquery1.FieldByName('H21').AsFloat ; adayhour[22] := form1.ibquery1.FieldByName('H22').AsFloat ; adayhour[23] := form1.ibquery1.FieldByName('H23').AsFloat ; adayhour[24] := form1.ibquery1.FieldByName('H24').AsFloat ;
使用 ibquery1.FieldByName('？').AsFloat 语句即可以float类型将字段名为“？”的数据取出，之后使用add命令将其加入到series1中。
series1.Clear;//要先清空series，要不他会总add with series1 do begin add(0);//占了x=0，让显示看起来好看 for i := 1 to 24 do add(adayhour[i]); end;
