上海有几所名牌大学:我在做一个数据报表打印程序,使用delphi,懂的进来
来源:百度文库 编辑:神马品牌网 时间:2024/10/02 19:00:07
程序是这样的,我做一个报表打印程序,数据库是sql2000,内容自动生成,里面的内容全是拼音缩写嘛,例如人名:王朋,数据库是wp,现在我的程序却只能打印wp,现在想打印王朋,可我不知道该怎么弄,请高手棒棒忙!!!
程序截图[img]http://cn.8849.cn/Snap1.jpg[/img]
源码unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, frxClass,
frxCross, WinSkinData, fs_iclassesrtti, frxADOComponents, frxDBSet;
type
TForm1 = class(TForm)
C1: TADOConnection;
D1: TDataSource;
DBGrid1: TDBGrid;
Button2: TButton;
Q1: TADOQuery;
Panel1: TPanel;
Panel2: TPanel;
Splitter1: TSplitter;
Label1: TLabel;
Button3: TButton;
frxCrossObject1: TfrxCrossObject;
SkinData1: TSkinData;
frxDBDataset1: TfrxDBDataset;
Q1Hzh: TIntegerField;
Q1Kfysbm: TStringField;
Q1Cflbbm: TStringField;
Q1Zje: TBCDField;
Q1Hjsj: TDateTimeField;
Q1Hzlbbm: TStringField;
Q1HjCzy: TStringField;
Button1: TButton;
E1: TEdit;
frxReport1: TfrxReport;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure D1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
Begin
if e1.text ='' Then
begin
MessageBox(Handle,'问诊号为空请填写门诊号!','提示',MB_ICONINFORMATION);
end;
if e1.text <> '' Then
begin
q1.Close;
q1.Sql.Clear;
q1.SQL.Add(' SELECT Hzh , Kfysbm , Cflbbm, Zje , Hjsj, HjCzy , Hzlbbm FROM Mzhjxx where hzh= '+ e1.text) ;
q1.Active:=true;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
frxReport1.ShowReport;
ShowModal;
end;
procedure TForm1.D1DataChange(Sender: TObject; Field: TField);
begin
end;
end.
声明:本人菜鸟一名,实在为难!
程序截图[img]http://cn.8849.cn/Snap1.jpg[/img]
源码unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, frxClass,
frxCross, WinSkinData, fs_iclassesrtti, frxADOComponents, frxDBSet;
type
TForm1 = class(TForm)
C1: TADOConnection;
D1: TDataSource;
DBGrid1: TDBGrid;
Button2: TButton;
Q1: TADOQuery;
Panel1: TPanel;
Panel2: TPanel;
Splitter1: TSplitter;
Label1: TLabel;
Button3: TButton;
frxCrossObject1: TfrxCrossObject;
SkinData1: TSkinData;
frxDBDataset1: TfrxDBDataset;
Q1Hzh: TIntegerField;
Q1Kfysbm: TStringField;
Q1Cflbbm: TStringField;
Q1Zje: TBCDField;
Q1Hjsj: TDateTimeField;
Q1Hzlbbm: TStringField;
Q1HjCzy: TStringField;
Button1: TButton;
E1: TEdit;
frxReport1: TfrxReport;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure D1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
Begin
if e1.text ='' Then
begin
MessageBox(Handle,'问诊号为空请填写门诊号!','提示',MB_ICONINFORMATION);
end;
if e1.text <> '' Then
begin
q1.Close;
q1.Sql.Clear;
q1.SQL.Add(' SELECT Hzh , Kfysbm , Cflbbm, Zje , Hjsj, HjCzy , Hzlbbm FROM Mzhjxx where hzh= '+ e1.text) ;
q1.Active:=true;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
frxReport1.ShowReport;
ShowModal;
end;
procedure TForm1.D1DataChange(Sender: TObject; Field: TField);
begin
end;
end.
声明:本人菜鸟一名,实在为难!
程序截图打不开啊!
你提供的程序太乱了,是你编的,还是改了别人编的?
我在做一个数据报表打印程序,使用delphi,懂的进来
我用DELPHI 开发程序报表控件使用Grid++3.0,怎么动态改变打印报表的标题
我要用vb作一个数据报表系统
在Excel中如何让打印出来的每份报表数据都自动求和
怎样在asp中把数据库中的数据按报表样式打印出来
如何使用ASP打印数据库报表?
我现在在用vb的datareport做报表,我想打印MSFlexGrid中的内容,到底怎么样才能进行模糊查询的打印呢?
Visual foxpro在打印报表时,如何每张纸只打印一个栏目
ACCESS的报表打印怎样做
我写了一个C++控制台程序,需要输入选择,我使用的是CIN,想要不输入回车就提交数据,请问怎么做?