以前我一直以为,在发贴字的时候给分就可以了,系统会根据回复的人数平分我给的分,原来不是这个样子的,真的是对不起回答我问题的朋友了,我以后会多给你们分的,
我的上个帖子,我已经试着给分了,不知道《〈飞飞猫〉》和《〈兴哥〉》受到否!
顺便在把我以前的问题在问一次吧,我很需要你们的帮助!
1。怎么在当前窗口返回到上一窗体,我用show后不行,总是有出错提示,因该是窗体的释放的问题。希望知道的说清楚一点
2。在完成查询操作后,查询结果被显示在了DBGrid里了,可我想接下来先,打印预览
后   打印  怎么来实现,希望知道的告诉我,哪摸是一点也可以!我真的是找不到答案了!

解决方案 »

  1.   

    1.错误提示帖出来
    2.看看Qreport的用法
      delphi下的范例你先看看就知道了。
      delphi安装目录先demo\quickrpt\qr2
      

  2.   

    1、好久没写DELPHI了,看看书,应该有写吧;
    2、把DBGRID数据导入其他报表软件里面就可以了嘛,如EXCEL,WORD就可以预览了嘛。
      

  3.   

    用上一个窗体的Showmodal试试看行不行。
    先执行打印预览,后打印,可以这样:
     quickrep1.Preview
    在打印预览里可以执行打印操作。
      

  4.   

    你的窗体是不是动态创建的呢?如果是的话,要在窗体的onclose事件里写active:=cafree;而不要直接写close 
      

  5.   

    当前窗口:dangqianform.free,dangqianform.nil
      

  6.   

    嘻嘻!没关系的!至于你说的不能返回上一个窗体,我不清楚你要返回的是一个什么样的窗体,如果仅仅是从当前窗体弹出另一个窗体,当在另一个窗体操作完关闭后再返回当前窗体。那么你只要现在本窗窗体的单元中uses另一个窗体,并写如下代码,比如说另一个窗体的单元文件是unit2, 那么你在当前窗体中可以定义一个按钮的Click事件...
    implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
    begin
        Form2:=TForm2.Create(nil);
        Form2.ShowModal;
    end;
    ...你在第二个窗体上放一个按钮,定义它的Click事件为
    unit Unit2;
    ...
    implementation{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
    begin
        ModalResult:=mrOk;
    end;
    ...
      

  7.   

    刚才是我说你没有结帖,既然知道原因了,我在此道歉。
    1。用show不可以的,要用setforegroundwindow(form.handle),将上一个窗口调到最前面。
    2. 用quickrep可以实现
      

  8.   

    错误提示是这样的:
    access violation at address 00403691 in module 'PROJECT!>EXE',read of address 01E8D233.
      

  9.   

    如果你想实现的是在当前的窗体中进行窗体切换,我可以给一个办法,你可以在窗体上放一个
    TPageControl1,Align属性设为alClient;
    控件,然后在上面添加几个页,比如说 TabSheet1, TabSheet2,TabSheet3
    然后在每个页上放一个按钮,分别人Button1,Button2,Button3,然后写如下事件...
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        PageControl1.ActivePage:=Tabsheet2;
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
        PageControl1.ActivePage:=Tabsheet3;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
        PageControl1.ActivePage:=Tabsheet1;
    end;//这个事件跟重要
    procedure TForm1.FormCreate(Sender: TObject);
    begin
        PageControl1.ActivePage:=Tabsheet1;
    end;然后你把每一个TTabSheet的TabVisible属性设为False。这样,当你运行程序时,开始窗体上将会首先出现第一个按钮,点击后又出现第二个按钮...,就好像窗体切换一样了,
      

  10.   

    至于报表的问题,我建议你去看<<Delphi实物经典>>P437-P440