vote.pas

DBchart的高级使用

unit vote;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, DBChart, Db, DBTables,
  Series, Gauges, Buttons;

type
  Tf_vote = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    lbl_total: TLabel;
    Label2: TLabel;
    lbl_ld: TLabel;
    Label3: TLabel;
    lbl_cw: TLabel;
    Panel2: TPanel;
    DBChart1: TDBChart;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Series3: TBarSeries;
    countqry: TQuery;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Gauge1: TGauge;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    SaveDialog1: TSaveDialog;
    DBChart2: TDBChart;
    BarSeries1: TBarSeries;
    BarSeries2: TBarSeries;
    BarSeries3: TBarSeries;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
      lbltotal,lblld,lblcw,unlegal,ldxx,cwxx:integer;
  end;

var
  { Public declarations }
  f_vote: Tf_vote;
  ldcount,cwcount,i,j,peoplecount,abandon,refuse,lxcfg,lx,xptype:integer;
 occu:integer;
 s:array[1..5] of char;
 complete:boolean;
   ss:array[0..500] of char ;
  piao:textfile;
 implementation

 uses
 datamd, lp,global, basic;
 
{$R *.DFM}


procedure Tf_vote.FormCreate(Sender: TObject);
begin
lbltotal:=0;//初始化选票数
lblld:=0;
lblcw:=0;
end;

procedure Tf_vote.BitBtn3Click(Sender: TObject);
Label re1,uneff1,uneff2;
var
ldcount,cwcount,i,j,peoplecount,abandon,refuse,lxcfg,lx,xptype:integer;
s:array[1..5] of char;
complete:boolean;
begin
// timer1.Enabled:=true;

end;

procedure Tf_vote.BitBtn4Click(Sender: TObject);
begin
   f_lp.ShowModal;
end;

procedure Tf_vote.BitBtn6Click(Sender: TObject);
begin
  close;
end;

procedure Tf_vote.BitBtn5Click(Sender: TObject);
var
  f:textfile;
  apppath:string;
begin

 savedialog1.Filter:='结果文件(*.txt)|*.txt';
  if f_vote.SaveDialog1.Execute then
  begin
  Assignfile(f,savedialog1.FileName);
  rewrite(f);
  writeln(f,'集团竞争上岗第'
  +datamd.DataModule1.basicTable.fieldbyname('届').asstring+'届第'+
  datamd.DataModule1.basicTable.fieldbyname('次').asstring+'次会议选举结果报告');
  writeln(f,'时间:'+datamd.DataModule1.basicTable.fieldbyname('选举年份').asstring);
  writeln(f,'地点:'+datamd.DataModule1.basicTable.fieldbyname('地点').asstring);
  writeln(f,'本次选举共回收选票'+datamd.DataModule1.basicTable.fieldbyname('回收票数').asstring+'张');
  if  (datamd.DataModule1.ldinfoTable.RecordCount=0) then
  writeln(f,'增选常委选举:有效票'+inttostr(f_vote.cwxx)+'张,无效票'+inttostr(f_vote.lblcw-f_vote.cwxx)+'张')
  else
  writeln(f,'增选领导选举有效票'+inttostr(f_vote.lblld)+'张,无效票'+inttostr(f_vote.lblld-f_vote.ldxx)+'张');
  with datamd.DataModule1.ldTable do
  begin
    first;
    while not eof do
      begin
      writeln(f,fieldbyname('候选职务').asstring+'候选人,姓名:'+fields[1].asstring+'  赞成票:'+fields[2].asstring+'  反对票:'+fields[3].asstring+' 弃权:'+fields[4].asstring);
      next;
      end;
  end;
  writeln(f,' ');
  with datamd.DataModule1.ldlxTable do
  begin
    first;
    while not eof do
      begin
      writeln(f,fieldbyname('候选职务').asstring+'另选人,姓名:'+fields[0].asstring+'  赞成票:'+fields[1].asstring);
      next;
      end;
  end;
  writeln(f, ' ');
  with datamd.DataModule1.cwTable do
  begin
    first;
    while not eof do
      begin
      writeln(f,'常委候选人,姓名:'+fields[1].asstring+'  赞成票:'+fields[2].asstring+'  反对票:'+fields[3].asstring+' 弃权:'+fields[4].asstring);
      next;
      end;
  end;
  writeln(f,' ');
  with datamd.DataModule1.cwlxTable do
  begin
    first;
    while not eof do
      begin
      writeln(f,fieldbyname('候选职务').asstring+'候选人,姓名:'+fields[1].asstring+'  赞成票:'+fields[2].asstring+'  反对票:'+fields[3].asstring+' 弃权:'+fields[4].asstring);
      next;
      end;
  end;
  CloseFile(F);
  end;


end;

procedure Tf_vote.FormShow(Sender: TObject);
begin
  if (f_basic.electtype=1) and (datamd.DataModule1.ldinfoTable.RecordCount=0) then
    begin
    dbchart1.Visible:=false;
    dbchart2.Visible:=true;
   end
   else
   begin
    dbchart1.Visible:=true;
    dbchart2.Visible:=false;
   end;

   if f_basic.electtype=0 then
   begin
    label3.Visible:=true;
    lbl_cw.Visible:=true;
   end;
   end;

procedure Tf_vote.Timer1Timer(Sender: TObject);
Label re1,uneff1,uneff2;
var
 lx1,xptypelx,refuse1:integer;
 ldlxwx:boolean;
begin
   
 
end;


end.