printtp.pas

DBchart的高级使用

unit printtp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables, Buttons;

type
  Tprinttype = class(TForm)
    Table1: TTable;
    Table2: TTable;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Query1: TQuery;
    Query2: TQuery;
    RadioGroup2: TRadioGroup;
    RadioGroup1: TRadioGroup;
    procedure RadioGroup1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  printtype: Tprinttype;
  office,orderfd:string;
implementation
uses datamd,resultprt,resultprtdbl, vote, basic, cwreport;
{$R *.DFM}

procedure Tprinttype.RadioGroup1Click(Sender: TObject);
begin
  if radiogroup1.ItemIndex=1 then
  begin
  table1.close;
  table2.close;
  table1.TableName:='cw';
  table2.TableName:='cwlx';
  end
  else
   begin
   table1.close;
   table2.close;
   table1.TableName:='ld';
   table2.TableName:='ldlx';
   end;
end;

procedure Tprinttype.SpeedButton1Click(Sender: TObject);
begin
 if f_basic.electtype=1 then
  begin
  resultprt.f_resultprt.qrmemo1.lines.Clear;
  //resultprt.f_resultprt.qrmemo2.lines.clear;
  //resultprt.f_resultprt.qrmemo3.lines.clear;
  datamd.DataModule1.basicTable.Open;
  resultprt.f_resultprt.QRLabel1.Caption:=datamd.DataModule1.basicTable.fieldbyname('用户名称').asstring+'第'
  +datamd.DataModule1.basicTable.fieldbyname('届').asstring+'届第'+
  datamd.DataModule1.basicTable.fieldbyname('次').asstring+'次会议选举结果报告';
  resultprt.f_resultprt.QRLabel2.Caption:='时间:'+datamd.DataModule1.basicTable.fieldbyname('竞选年份').asstring;
  resultprt.f_resultprt.QRLabel3.Caption:='地点:'+datamd.DataModule1.basicTable.fieldbyname('地点').asstring;
  resultprt.f_resultprt.QRLabel5.Caption:='本次选举共回收选票'+datamd.DataModule1.basicTable.fieldbyname('ldreclaim').asstring+'张';
  if  (datamd.DataModule1.ldinfoTable.RecordCount=0) then
    begin
    resultprt.f_resultprt.QRLabel6.Caption:='增选常委选举:有效票'+inttostr(f_vote.cwxx)+'张,无效票'+inttostr(f_vote.lblcw-f_vote.cwxx)+'张';
    resultprt.f_resultprt.detailband1.enabled:=false;
    end
  else
    begin
    resultprt.f_resultprt.QRLabel6.Caption:='增选'+datamd.DataModule1.ldinfoTable.fieldbyname('候选职务').asstring+'选举有效票'+inttostr(f_vote.ldxx)+'张,无效票'+inttostr(f_vote.lblld-f_vote.ldxx)+'张';
    resultprt.f_resultprt.detailband1.enabled:=true;
    end;
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from ld  order by '+orderfd);
    open;
  end;
  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from cw  order by '+orderfd);
    open;
  end;
  with datamd.DataModule1.ldlxTable do
  begin
      first;
      while not eof do
      begin
      resultprt.f_resultprt.qrmemo1.Lines.Add(fields[2].asstring+'另选人姓名:'+fields[0].asstring+' 得票:'+fields[1].asstring+'张');
      resultprt.f_resultprt.qrmemo1.lines.add(' ');
      next;
      end;
  end;
  resultprt.f_resultprt.qrmemo1.lines.add(' ');
  with query2 do
  begin
      first;
      while  not eof do
      begin
       resultprt.f_resultprt.qrmemo1.lines.add('常委增选人:'+fields[1].AsString+' 得票:'+'赞成:'+fields[2].AsString+'张  '+'反对:'+fields[3].asstring+'张 '+'弃权:'+fields[4].asstring+'张');
       resultprt.f_resultprt.qrmemo1.lines.add(' ');
       next;
      end;
  end;
  resultprt.f_resultprt.qrmemo1.lines.add(' ');
  with datamd.DataModule1.cwlxTable do
  begin
      first;
      while not eof do
      begin
      resultprt.f_resultprt.qrmemo1.Lines.Add('常委另选人姓名:'+fields[0].asstring+' 得票:'+fields[1].asstring+'张');
      resultprt.f_resultprt.qrmemo1.lines.add(' ');
      next;
      end;
   end;
  resultprt.f_resultprt.QuickRep1.Preview;
  end

  else
   begin
    if radiogroup1.ItemIndex=0 then
    begin
    radiogroup1.Enabled:=true;
    f_resultprtdbl.qrmemo1.lines.Clear;
    hide;
    datamd.DataModule1.basicTable.Open;
    f_resultprtdbl.QRLabel1.Caption:=datamd.DataModule1.basicTable.fieldbyname('用户名称').asstring+'第'
    +datamd.DataModule1.basicTable.fieldbyname('届').asstring+'届第'+
    datamd.DataModule1.basicTable.fieldbyname('次').asstring+'次会议选举结果报告';
    f_resultprtdbl.QRLabel2.Caption:='时间:'+datamd.DataModule1.basicTable.fieldbyname('竞选年份').asstring;
    f_resultprtdbl.QRLabel3.Caption:='地点:'+datamd.DataModule1.basicTable.fieldbyname('地点').asstring;
    f_resultprtdbl.QRLabel5.Caption:='本次选举共回收选票'+datamd.DataModule1.basicTable.fieldbyname('ldreclaim').asstring+'张';
    //if radiogroup1.ItemIndex=0 then
    f_resultprtdbl.QRLabel6.Caption:=
    '增选领导选举有效票'+inttostr(f_vote.ldxx)+'张,无效票'+inttostr(f_vote.lblld-f_vote.ldxx)+'张';
    //else
   // f_resultprtdbl.QRLabel6.Caption:=
  //'增选常委选举有效票'+inttostr(f_vote.cwxx)+'张,无效票'+inttostr(f_vote.lblcw-f_vote.cwxx)+'张';
  table1.open;
  table2.open;
  with query1 do
  begin
    close;
    sql.Clear;
    sql.add('select *  from '+table1.tablename+' order by '+orderfd);
    open;
  end;
  with printtype.table2 do
  begin
      first;
      while not eof do
      begin
      f_resultprtdbl.qrmemo1.Lines.Add(fields[2].asstring+'另选人姓名:'+fields[0].asstring+' 得票:'+fields[1].asstring+'张');
      f_resultprtdbl.qrmemo1.lines.add(' ');
      next;
      end;
  end;
  f_resultprtdbl.QuickRep1.Preview;
  end

  else
  begin
    radiogroup1.Enabled:=true;
    f_cwreport.qrmemo1.lines.Clear;
    hide;
    datamd.DataModule1.basicTable.Open;
    f_cwreport.QRLabel1.Caption:=datamd.DataModule1.basicTable.fieldbyname('用户名称').asstring+'第'
    +datamd.DataModule1.basicTable.fieldbyname('届').asstring+'届第'+
    datamd.DataModule1.basicTable.fieldbyname('次').asstring+'次会议选举结果报告';
    f_cwreport.QRLabel2.Caption:='时间:'+datamd.DataModule1.basicTable.fieldbyname('竞选年份').asstring;
    f_cwreport.QRLabel3.Caption:='地点:'+datamd.DataModule1.basicTable.fieldbyname('地点').asstring;
    f_cwreport.QRLabel5.Caption:='本次选举共回收选票'+datamd.DataModule1.basicTable.fieldbyname('cwreclaim').asstring+'张';
    f_cwreport.QRLabel6.Caption:=
  '增选常委选举有效票'+inttostr(f_vote.cwxx)+'张,无效票'+inttostr(f_vote.lblcw-f_vote.cwxx)+'张';
  table1.open;
  table2.open;
  with query1 do
  begin
    close;
    sql.Clear;
    sql.add('select *  from '+table1.tablename+' order by '+orderfd);
    open;
  end;
  with printtype.table2 do
  begin
      first;
      while not eof do
      begin
      f_cwreport.qrmemo1.Lines.Add(fields[2].asstring+'另选人姓名:'+fields[0].asstring+' 得票:'+fields[1].asstring+'张');
      f_cwreport.qrmemo1.lines.add(' ');
      next;
      end;
  end;
  f_cwreport.QuickRep1.Preview;
  end;
 end;


end;

procedure Tprinttype.FormCreate(Sender: TObject);
begin
  orderfd:='编号';
  table1.open;
  table2.open;
end;

procedure Tprinttype.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tprinttype.RadioGroup2Click(Sender: TObject);
begin
  if radiogroup2.ItemIndex=0 then
  orderfd:='编号 '
  else
  orderfd:='同意 desc';

end;

procedure Tprinttype.FormShow(Sender: TObject);
begin
  if f_basic.electtype=1 then
   radiogroup1.Enabled:=false
   else
   radiogroup1.Enabled:=true;
end;

end.