calmquery.pas

彩票销售系统

unit CalmQuery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, ToolWin, Grids, DBGrids, Printers,
  DB, ADODB;

type
  TCalmQueryForm = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Panel5: TPanel;
    Label53: TLabel;
    Shape52: TShape;
    Shape59: TShape;
    Label85: TLabel;
    Label54: TLabel;
    Label86: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Shape53: TShape;
    Shape55: TShape;
    Shape61: TShape;
    Shape63: TShape;
    Shape65: TShape;
    Shape60: TShape;
    Shape66: TShape;
    Shape67: TShape;
    Shape62: TShape;
    Shape68: TShape;
    Shape69: TShape;
    Shape57: TShape;
    Shape58: TShape;
    Shape54: TShape;
    Shape56: TShape;
    Shape70: TShape;
    Label56: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Label113: TLabel;
    Label114: TLabel;
    Label165: TLabel;
    Label181: TLabel;
    Label184: TLabel;
    Label185: TLabel;
    Label186: TLabel;
    Label187: TLabel;
    Label188: TLabel;
    Label189: TLabel;
    Label190: TLabel;
    Label191: TLabel;
    Label192: TLabel;
    Label193: TLabel;
    Label194: TLabel;
    Label195: TLabel;
    Label196: TLabel;
    Label197: TLabel;
    Label198: TLabel;
    Label199: TLabel;
    Label200: TLabel;
    Label201: TLabel;
    Label202: TLabel;
    Label203: TLabel;
    Label204: TLabel;
    Label205: TLabel;
    Label206: TLabel;
    Label207: TLabel;
    Label208: TLabel;
    BitBtn52: TBitBtn;
    BitBtn51: TBitBtn;
    BitBtn50: TBitBtn;
    BitBtn48: TBitBtn;
    BitBtn47: TBitBtn;
    BitBtn35: TBitBtn;
    BitBtn34: TBitBtn;
    Panel4: TPanel;
    Panel6: TPanel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    OneSixListSp: TADOStoredProc;
    twothere_sp: TADOStoredProc;
    twothere_spFSalePeriod: TStringField;
    twothere_spFClientId: TIntegerField;
    twothere_spFTranType: TIntegerField;
    twothere_spFWorkType: TStringField;
    twothere_spFAminalNo: TStringField;
    twothere_spFPrice: TBCDField;
    twothere_spFMoney: TBCDField;
    twothere_spFTranName: TStringField;
    NumberTotal_sp: TADOStoredProc;
    SpyBunch_Sp: TADOStoredProc;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    SpyBunch_SpFSalePeriod: TStringField;
    SpyBunch_SpFClientId: TIntegerField;
    SpyBunch_SpFTranType: TIntegerField;
    SpyBunch_SpFWorkType: TStringField;
    SpyBunch_SpFAminalNo: TStringField;
    SpyBunch_SpFPrice: TBCDField;
    SpyBunch_SpFMoney: TBCDField;
    SpyBunch_SpFTranName: TStringField;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    OneSix_Save: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
    procedure OneSixLabelList(Sender:Tobject);
  public
    { Public declarations }
  end;

var
  CalmQueryForm: TCalmQueryForm;

implementation
   uses NumberManger,OneSixPrint;
{$R *.dfm}

procedure TCalmQueryForm.OneSixLabelList(Sender:Tobject);
begin
  //1-6
  Label85.Caption:=''; Label85.visible:=false;
  Label86.Caption:=''; Label86.visible:=false;
  Label95.Caption:=''; Label95.visible:=false;
  Label96.Caption:=''; Label96.visible:=false;
  Label97.Caption:=''; Label97.visible:=false;
  Label98.Caption:=''; Label98.visible:=false;
  Label99.Caption:=''; Label99.visible:=false;
  Label56.Caption:=''; Label56.visible:=false;
  Label101.Caption:=''; Label101.visible:=false;
  Label102.Caption:=''; Label102.visible:=false;
  Label103.Caption:=''; Label103.visible:=false;
  Label104.Caption:=''; Label104.visible:=false;
  Label105.Caption:=''; Label105.visible:=false;
  Label106.Caption:=''; Label106.visible:=false;
  Label107.Caption:=''; Label107.visible:=false;
  Label108.Caption:=''; Label108.visible:=false;
  Label109.Caption:=''; Label109.visible:=false;
  Label110.Caption:=''; Label110.visible:=false;
  Label111.Caption:=''; Label111.visible:=false;
  Label112.Caption:=''; Label112.visible:=false;
  Label113.Caption:=''; Label113.visible:=false;
  Label114.Caption:=''; Label114.visible:=false;
  Label165.Caption:=''; Label165.visible:=false;
  Label181.Caption:=''; Label181.visible:=false;
  Label184.Caption:=''; Label184.visible:=false;
  Label185.Caption:=''; Label185.visible:=false;
  Label186.Caption:=''; Label186.visible:=false;
  Label187.Caption:=''; Label187.visible:=false;
  Label188.Caption:=''; Label188.visible:=false;
  Label189.Caption:=''; Label189.visible:=false;
  Label190.Caption:=''; Label190.visible:=false;
  Label191.Caption:=''; Label191.visible:=false;
  Label192.Caption:=''; Label192.visible:=false;
  Label193.Caption:=''; Label193.visible:=false;
  Label194.Caption:=''; Label194.visible:=false;
  Label195.Caption:=''; Label195.visible:=false;
  Label196.Caption:=''; Label196.visible:=false;
  Label197.Caption:=''; Label197.visible:=false;
  Label198.Caption:=''; Label198.visible:=false;
  Label199.Caption:=''; Label199.visible:=false;
  Label200.Caption:=''; Label200.visible:=false;
  Label201.Caption:=''; Label201.visible:=false;
  Label202.Caption:=''; Label202.visible:=false;
  Label203.Caption:=''; Label203.visible:=false;
  Label204.Caption:=''; Label204.visible:=false;
  Label205.Caption:=''; Label205.visible:=false;
  Label206.Caption:=''; Label206.visible:=false;
  Label207.Caption:=''; Label207.visible:=false;
  Label208.Caption:=''; Label208.visible:=false;

end;


procedure TCalmQueryForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TCalmQueryForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TCalmQueryForm.FormShow(Sender: TObject);
begin
  OneSixLabelList(Sender); 
  NumberTotal_sp.Close;
  NumberTotal_sp.Parameters[1].value:=SalePeriod;
  NumberTotal_sp.Parameters[2].value:=2;
  NumberTotal_sp.Open;
  //1-6数据
  if NumberTotal_sp.FieldByName('OneSix_Sigle').Value>0 then begin Label85.Caption:=floattostr(NumberTotal_sp.FieldByName('OneSix_Sigle').Value); Label85.visible:=true; end else begin Label85.Caption:=''; Label85.visible:=false;end;
  if NumberTotal_sp.FieldByName('OneSix_Double').Value>0 then begin Label86.Caption:=floattostr(NumberTotal_sp.FieldByName('OneSix_Double').Value); Label86.visible:=true; end else begin Label86.Caption:=''; Label86.visible:=false;end;
  if NumberTotal_sp.FieldByName('OneSix_Big').Value>0 then begin Label95.Caption:=floattostr(NumberTotal_sp.FieldByName('OneSix_Big').Value); Label95.visible:=true; end else begin Label95.Caption:=''; Label95.visible:=false;end;
  if NumberTotal_sp.FieldByName('OneSix_Small').Value>0 then begin Label96.caption:=floattostr(NumberTotal_sp.FieldByName('OneSix_Small').Value); Label96.visible:=true; end else begin Label96.Caption:=''; Label96.visible:=false;end;
  if NumberTotal_sp.FieldByName('OneToSixRed').Value>0 then begin Label97.Caption:=floattostr(NumberTotal_sp.FieldByName('OneToSixRed').Value); Label97.visible:=true; end else begin Label97.Caption:=''; Label97.visible:=false;end;
  if NumberTotal_sp.FieldByName('OneToSixBlue').Value>0 then begin Label98.Caption:=floattostr(NumberTotal_sp.FieldByName('OneToSixBlue').Value); Label98.visible:=true; end else begin Label98.Caption:=''; Label98.visible:=false;end;
  if NumberTotal_sp.FieldByName('OneToSixGreen').Value>0 then begin Label99.Caption:=floattostr(NumberTotal_sp.FieldByName('OneToSixGreen').Value); Label99.visible:=true; end else begin Label99.Caption:=''; Label99.visible:=false;end;
  //if NumberTotal_sp.FieldByName('ClanNumberSum').Value>0 then begin Label209.Caption:=floattostr(NumberTotal_sp.FieldByName('ClanNumberSum').Value); Label209.visible:=true; end else begin Label209.Caption:=''; Label209.visible:=false;end;
  NumberTotal_sp.Close;
  OneSixListSp.close;
  OneSixListSp.Parameters[1].Value:=saleperiod ;
  OneSixListSp.Parameters[2].Value:=0;
  OneSixListSp.Open;
  if OneSixListSp.RecordCount>0 then
  begin
    while not OneSixListSp.Eof do
    begin
      if OneSixListSp.FieldByName('FTranType').Value=26  then //(1-6)单
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label56.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label56.Visible:=true; end else begin  label56.caption:='';label56.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label101.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label101.Visible:=true; end else begin  label101.caption:='';label101.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label102.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label102.Visible:=true; end else begin  label102.caption:='';label102.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label103.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label103.Visible:=true; end else begin  label103.caption:='';label103.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label104.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label104.Visible:=true; end else begin  label104.caption:='';label104.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label105.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label105.Visible:=true; end else begin  label105.caption:='';label105.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=27 then   //(1-6)大
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label112.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label112.Visible:=true; end else begin  label112.caption:='';label112.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label113.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label113.Visible:=true; end else begin  label113.caption:='';label113.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label114.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label114.Visible:=true; end else begin  label114.caption:='';label114.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label165.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label165.Visible:=true; end else begin  label165.caption:='';label165.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label181.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label181.Visible:=true; end else begin  label181.caption:='';label181.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label184.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label184.Visible:=true; end else begin  label184.caption:='';label184.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=42 then //(1-6)双
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label106.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label106.Visible:=true; end else begin  label106.caption:='';label106.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label107.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label107.Visible:=true; end else begin  label107.caption:='';label107.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label108.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label108.Visible:=true; end else begin  label108.caption:='';label108.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label109.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label109.Visible:=true; end else begin  label109.caption:='';label109.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label110.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label110.Visible:=true; end else begin  label110.caption:='';label110.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label111.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label111.Visible:=true; end else begin  label111.caption:='';label111.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=43 then //(1-6)小
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label185.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label185.Visible:=true; end else begin  label185.caption:='';label185.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label186.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label186.Visible:=true; end else begin  label186.caption:='';label186.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label187.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label187.Visible:=true; end else begin  label187.caption:='';label187.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label188.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label188.Visible:=true; end else begin  label188.caption:='';label188.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label189.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label189.Visible:=true; end else begin  label189.caption:='';label189.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label190.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label190.Visible:=true; end else begin  label190.caption:='';label190.Visible:=false; end;