?? vote.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -