tsprintunit.pas

主要是基本的小区物业管理操作界面, 包含基本的功能,数据录入,查询,分类等功能

unit TSPrintUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, QRCtrls, QuickRpt, ExtCtrls, DB,
  ADODB;

type
  TTSPrintForm = class(TForm)
    QuickRep1: TQuickRep;
    Query1: TADOQuery;
    Query1DSDesigner: TBCDField;
    Query1DSDesigner2: TStringField;
    Query1DSDesigner3: TStringField;
    Query1DSDesigner4: TBCDField;
    Query1DSDesigner5: TDateTimeField;
    Query1DSDesigner6: TDateTimeField;
    Query1DSDesigner7: TStringField;
    Query1DSDesigner8: TStringField;
    Query1DSDesigner9: TStringField;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRBand2: TQRBand;
    QRExpr13: TQRExpr;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRBand3: TQRBand;
    PageFooterBand1: TQRBand;
    QRExpr11: TQRExpr;
    QRLabel12: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
           
var
  TSPrintForm: TTSPrintForm;

implementation

uses udm;
{$R *.dfm}

procedure TTSPrintForm.ToolButton6Click(Sender: TObject);
begin
close;
end;

procedure TTSPrintForm.ToolButton4Click(Sender: TObject);
begin
 QuickRep1.zoom:=100;
end;

procedure TTSPrintForm.FormShow(Sender: TObject);
begin
  //QRLabel4.Caption:=IntToStr(ADOQuery1.RecordCount);
  QRLabel2.Caption:='投诉次数'+IntToStr(Query1.RecordCount);
  //ADOQuery1.Close;
  //ADOQuery1.SQL.Clear;
  //ADOQuery1.SQL.Add('Select * from YHTSTable');
  //ADOQuery1.Open;
  QuickRep1.Preview;
end;

end.