?? printtp.pas
字號:
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+'次會議選舉結(jié)果報(bào)告';
resultprt.f_resultprt.QRLabel2.Caption:='時(shí)間:'+datamd.DataModule1.basicTable.fieldbyname('競選年份').asstring;
resultprt.f_resultprt.QRLabel3.Caption:='地點(diǎn):'+datamd.DataModule1.basicTable.fieldbyname('地點(diǎn)').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('候選職務(wù)').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+'張 '+'棄權(quán):'+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+'次會議選舉結(jié)果報(bào)告';
f_resultprtdbl.QRLabel2.Caption:='時(shí)間:'+datamd.DataModule1.basicTable.fieldbyname('競選年份').asstring;
f_resultprtdbl.QRLabel3.Caption:='地點(diǎn):'+datamd.DataModule1.basicTable.fieldbyname('地點(diǎn)').asstring;
f_resultprtdbl.QRLabel5.Caption:='本次選舉共回收選票'+datamd.DataModule1.basicTable.fieldbyname('ldreclaim').asstring+'張';
//if radiogroup1.ItemIndex=0 then
f_resultprtdbl.QRLabel6.Caption:=
'增選領(lǐng)導(dǎo)選舉有效票'+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+'次會議選舉結(jié)果報(bào)告';
f_cwreport.QRLabel2.Caption:='時(shí)間:'+datamd.DataModule1.basicTable.fieldbyname('競選年份').asstring;
f_cwreport.QRLabel3.Caption:='地點(diǎn):'+datamd.DataModule1.basicTable.fieldbyname('地點(diǎn)').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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -