use 11 select jjj from TABLE1 不对 改为 select jjj from TABLE1 ————————————————————————————————— MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。'; if Not Assigned(I) then I := TI.Create(Nil); I.Maxim := MaximStr; —————————————————————————————————
条件查询: 先在昨天设计的窗体上方一个TEdit控件和TButton控件,比如我们是要按姓名查找,就是在Edit1中输入姓名,然后按Button1后,就在DBGird1中显示你输入的姓名的学生成绩。在Button1的OnClick()事件中输入: ADOQuery1.Close; ADOQuery1.SQL.Add('Select * From Student WHERE Name=:N') ADOQuery1.Parameters.ParamByName('N').Value :=Edit1.Text; ADOQuery1.Open;搞定。关于报表: 添加一个新窗体,让新窗体Use上面的Unit1,放一个TQuickRep控件,设置QuickRep1的DataSet属性为Form1.ADOQuery1。放TQRBand控件,BandType属性为rbDetail。在QRBand1中放入数个TQRDBText控件设置DataSet属性为Form1.ADOQuery1,和DataField属性为你的表的各个字段。 然后,回到Form1,在Form1中Use Unit2,添加TButton控件,Caption为“打印预览”,OnClick()中输入: Form2.QuickRep1.Preview;搞定!!!!!!!!!!!!!!
而直接用select jjj from TABLE1
改为
select jjj from TABLE1
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————
先在昨天设计的窗体上方一个TEdit控件和TButton控件,比如我们是要按姓名查找,就是在Edit1中输入姓名,然后按Button1后,就在DBGird1中显示你输入的姓名的学生成绩。在Button1的OnClick()事件中输入:
ADOQuery1.Close;
ADOQuery1.SQL.Add('Select * From Student WHERE Name=:N')
ADOQuery1.Parameters.ParamByName('N').Value :=Edit1.Text;
ADOQuery1.Open;搞定。关于报表:
添加一个新窗体,让新窗体Use上面的Unit1,放一个TQuickRep控件,设置QuickRep1的DataSet属性为Form1.ADOQuery1。放TQRBand控件,BandType属性为rbDetail。在QRBand1中放入数个TQRDBText控件设置DataSet属性为Form1.ADOQuery1,和DataField属性为你的表的各个字段。
然后,回到Form1,在Form1中Use Unit2,添加TButton控件,Caption为“打印预览”,OnClick()中输入:
Form2.QuickRep1.Preview;搞定!!!!!!!!!!!!!!