以前我一直以为,在发贴字的时候给分就可以了,系统会根据回复的人数平分我给的分,原来不是这个样子的,真的是对不起回答我问题的朋友了,我以后会多给你们分的,
我的上个帖子,我已经试着给分了,不知道《〈飞飞猫〉》和《〈兴哥〉》受到否!
顺便在把我以前的问题在问一次吧,我很需要你们的帮助!
1。怎么在当前窗口返回到上一窗体,我用show后不行,总是有出错提示,因该是窗体的释放的问题。希望知道的说清楚一点
2。在完成查询操作后,查询结果被显示在了DBGrid里了,可我想接下来先,打印预览
后 打印 怎么来实现,希望知道的告诉我,哪摸是一点也可以!我真的是找不到答案了!
我的上个帖子,我已经试着给分了,不知道《〈飞飞猫〉》和《〈兴哥〉》受到否!
顺便在把我以前的问题在问一次吧,我很需要你们的帮助!
1。怎么在当前窗口返回到上一窗体,我用show后不行,总是有出错提示,因该是窗体的释放的问题。希望知道的说清楚一点
2。在完成查询操作后,查询结果被显示在了DBGrid里了,可我想接下来先,打印预览
后 打印 怎么来实现,希望知道的告诉我,哪摸是一点也可以!我真的是找不到答案了!
2.看看Qreport的用法
delphi下的范例你先看看就知道了。
delphi安装目录先demo\quickrpt\qr2
2、把DBGRID数据导入其他报表软件里面就可以了嘛,如EXCEL,WORD就可以预览了嘛。
先执行打印预览,后打印,可以这样:
quickrep1.Preview
在打印预览里可以执行打印操作。
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;
...
1。用show不可以的,要用setforegroundwindow(form.handle),将上一个窗口调到最前面。
2. 用quickrep可以实现
access violation at address 00403691 in module 'PROJECT!>EXE',read of address 01E8D233.
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。这样,当你运行程序时,开始窗体上将会首先出现第一个按钮,点击后又出现第二个按钮...,就好像窗体切换一样了,