tongjidayin.~pas

有不足之处请指出

unit tongjidayin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, QuickRpt, DB, DBTables, StdCtrls, QRCtrls;

type
  TtongjidayinForm = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    TongjitoprnQuery: TQuery;
    printerQuery: TQuery;
    TongjitoprnQueryXuehao: TStringField;
    TongjitoprnQueryXingming: TStringField;
    TongjitoprnQueryXingbie: TStringField;
    TongjitoprnQueryBanji: TStringField;
    TongjitoprnQueryChushengnianyue: TStringField;
    TongjitoprnQueryJiguan: TStringField;
    TongjitoprnQueryFumuxingming: TStringField;
    TongjitoprnQueryLianxidianhua: TStringField;
    TongjitoprnQueryXianzhuzhi: TStringField;
    printerQueryBianhao: TStringField;
    printerQueryMingcheng: TStringField;
    printerQueryNansheng: TIntegerField;
    printerQueryNvsheng: TIntegerField;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRBand3: TQRBand;
    QRLabel1: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    banjiTable: TTable;
    banjiTableBianhao: TStringField;
    banjiTableMingcheng: TStringField;
    banjiTableNansheng: TIntegerField;
    banjiTableNvsheng: TIntegerField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tongjidayinForm: TtongjidayinForm;

implementation

{$R *.dfm}

procedure TtongjidayinForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TtongjidayinForm.Button3Click(Sender: TObject);
begin
close;
end;

procedure TtongjidayinForm.FormCreate(Sender: TObject);
var i: integer;
begin
  ComboBox1.Clear ;
  banjiTable.Open ;
  i:=0;
  banjiTable.First ;
  while i<banjiTable.RecordCount do
     begin
       ComboBox1.Items.Insert(i,banjiTablemingcheng.Value);
       banjiTable.Next ;
       i:=i+1;
     end;
  banjiTable.Close ;
end;

procedure TtongjidayinForm.ComboBox1Change(Sender: TObject);
begin
if length(ComboBox1.Text)=0 then
    begin
      Button1.Enabled :=False;
      Button2.Enabled :=False;
    end
else
    begin
      Button1.Enabled :=True;
      Button2.Enabled :=True;
    end;
end;

procedure TtongjidayinForm.FormShow(Sender: TObject);
begin
Button1.Enabled :=False;
Button2.Enabled :=False;
end;

procedure TtongjidayinForm.Button1Click(Sender: TObject);
begin
TongjiToprnQuery.Close;
TongjiToprnQuery.SQL.Clear ;
TongjiToprnQuery.Params.Clear ;
TongjiToprnQuery.Params.CreateParam(ftstring,'bj1',ptinput).AsString :=ComboBox1.Text ;
TongjiToprnQuery.Params.CreateParam(ftstring,'mc',ptinput).AsString :=ComboBox1.Text ;
TongjiToprnQuery.SQL.Add('update classes set nansheng=(select count(*) from students where xingbie=''男'' and banji=:bj1) where mingcheng=:mc;');
TongjiToprnQuery.ExecSQL ;
TongjiToprnQuery.Close;
TongjiToprnQuery.SQL.Clear ;
TongjiToprnQuery.Params.Clear ;
TongjiToprnQuery.Params.CreateParam(ftstring,'bj1',ptinput).AsString :=ComboBox1.Text ;
TongjiToprnQuery.Params.CreateParam(ftstring,'mc',ptinput).AsString :=ComboBox1.Text ;
TongjiToprnQuery.SQL.Add('update classes set nvsheng=(select count(*) from students where xingbie=''女'' and banji=:bj1) where mingcheng=:mc;');
TongjiToprnQuery.ExecSQL ;
printerQuery.Close ;
printerQuery.SQL.Clear ;
printerQuery.Params.Clear ;
printerQuery.Params.CreateParam(ftstring,'bj',ptinput).AsString :=ComboBox1.Text ;
printerQuery.SQL.Add('select * from classes where mingcheng=:bj;');
printerQuery.ExecSQL ;
printerQuery.Open ;
Qrlabel1.Caption :=ComboBox1.Text +'的男生和女生数量统计报表';
Qrlabel1.Font.Size :=16;
QuickRep1.Preview ;
printerQuery.Close ;
ComboBox1.Text :='';
Button1.Enabled :=False;
Button2.Enabled :=False;
end;

end.