salecheck.~pas

彩票销售系统

    Label158: TLabel;
    Label159: TLabel;
    Label160: TLabel;
    Label161: TLabel;
    Label162: TLabel;
    Label163: TLabel;
    Label164: TLabel;
    Label165: TLabel;
    Label166: TLabel;
    Label167: TLabel;
    Label168: TLabel;
    Label169: TLabel;
    Label170: TLabel;
    Label171: TLabel;
    Label172: TLabel;
    Label173: TLabel;
    Label174: TLabel;
    Label175: TLabel;
    Label176: TLabel;
    Label177: TLabel;
    Label178: TLabel;
    Label179: TLabel;
    Label180: TLabel;
    Label3: TLabel;
    Label181: TLabel;
    Label182: TLabel;
    Label183: TLabel;
    GroupBox5: TGroupBox;
    Label5: TLabel;
    ClientButtonAll: TRadioButton;
    ClientButton1: TRadioButton;
    ClientButton2: TRadioButton;
    ClientButton3: TRadioButton;
    ClientButton4: TRadioButton;
    ClientButton5: TRadioButton;
    ClientButton6: TRadioButton;
    ClientButton7: TRadioButton;
    ClientButton8: TRadioButton;
    ClientButton9: TRadioButton;
    ClientButton10: TRadioButton;
    ClientButton11: TRadioButton;
    ClientButton12: TRadioButton;
    ClientButton13: TRadioButton;
    ClientButton14: TRadioButton;
    ClientButton15: TRadioButton;
    ClientButton16: TRadioButton;
    ClientButton17: TRadioButton;
    ClientButton18: TRadioButton;
    ClientButton19: TRadioButton;
    ClientButton20: TRadioButton;
    NumberTotal_sp: TADOStoredProc;
    aminallist: TADOQuery;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    BitBtn4: TBitBtn;
    edit1: TEdit;
    edit2: TEdit;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ClientButtonAllClick(Sender: TObject);
    procedure ClientButton1Click(Sender: TObject);
    procedure ClientButton2Click(Sender: TObject);
    procedure ClientButton3Click(Sender: TObject);
    procedure ClientButton4Click(Sender: TObject);
    procedure ClientButton5Click(Sender: TObject);
    procedure ClientButton6Click(Sender: TObject);
    procedure ClientButton7Click(Sender: TObject);
    procedure ClientButton8Click(Sender: TObject);
    procedure ClientButton9Click(Sender: TObject);
    procedure ClientButton10Click(Sender: TObject);
    procedure ClientButton11Click(Sender: TObject);
    procedure ClientButton12Click(Sender: TObject);
    procedure ClientButton13Click(Sender: TObject);
    procedure ClientButton14Click(Sender: TObject);
    procedure ClientButton15Click(Sender: TObject);
    procedure ClientButton16Click(Sender: TObject);
    procedure ClientButton17Click(Sender: TObject);
    procedure ClientButton18Click(Sender: TObject);
    procedure ClientButton19Click(Sender: TObject);
    procedure ClientButton20Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    ClientId:integer;
    procedure TMNumBer_InfList(Sender:Tobject);
  public
    { Public declarations }
  end;

var
  SaleCheck_Form: TSaleCheck_Form;

implementation
  uses NumberManger;
{$R *.dfm}
procedure TSaleCheck_Form.TMNumBer_InfList(Sender:Tobject);
var
  sql_str:string;
begin
  //显示相关特码数据
  if ClientId>0 then
  begin
    sql_str:='select * from T_Sale where FSalePeriod='''+SalePeriod+'''';
    sql_str:=sql_str+' and FClientId='''+floattostr(ClientId)+'''';
    sql_str:=sql_str+' and FBillerId='''+floattostr(BillerId)+'''';
    aminallist.Close;
    aminallist.SQL.Clear;
    aminallist.SQL.Add(sql_str);
    aminallist.Open;
    //数据回显 20051117 START
    if aminallist.FieldByName('Number_1_money').Value>0 then begin Label115.Caption:=floattostr(aminallist.FieldByName('Number_1_money').Value); Label115.visible:=true; end else begin Label115.Caption:=''; Label115.visible:=false;end;
    if aminallist.FieldByName('Number_2_money').Value>0 then begin Label116.Caption:=floattostr(aminallist.FieldByName('Number_2_money').Value); Label116.visible:=true; end else begin Label116.Caption:=''; Label116.visible:=false;end;
    if aminallist.FieldByName('Number_3_money').Value>0 then begin Label117.Caption:=floattostr(aminallist.FieldByName('Number_3_money').Value); Label117.visible:=true; end else begin Label117.Caption:=''; Label117.visible:=false;end;
    if aminallist.FieldByName('Number_4_money').Value>0 then begin Label118.Caption:=floattostr(aminallist.FieldByName('Number_4_money').Value); Label118.visible:=true; end else begin Label118.Caption:=''; Label118.visible:=false;end;
    if aminallist.FieldByName('Number_5_money').Value>0 then begin Label119.Caption:=floattostr(aminallist.FieldByName('Number_5_money').Value); Label119.visible:=true; end else begin Label119.Caption:=''; Label119.visible:=false;end;
    if aminallist.FieldByName('Number_6_money').Value>0 then begin Label120.Caption:=floattostr(aminallist.FieldByName('Number_6_money').Value); Label120.visible:=true; end else begin Label120.Caption:=''; Label120.visible:=false;end;
    if aminallist.FieldByName('Number_7_money').Value>0 then begin Label121.Caption:=floattostr(aminallist.FieldByName('Number_7_money').Value); Label121.visible:=true; end else begin Label121.Caption:=''; Label121.visible:=false;end;
    if aminallist.FieldByName('Number_8_money').Value>0 then begin Label122.Caption:=floattostr(aminallist.FieldByName('Number_8_money').Value); Label122.visible:=true; end else begin Label122.Caption:=''; Label122.visible:=false;end;
    if aminallist.FieldByName('Number_9_money').Value>0 then begin Label123.Caption:=floattostr(aminallist.FieldByName('Number_9_money').Value); Label123.visible:=true; end else begin Label123.Caption:=''; Label123.visible:=false;end;
    if aminallist.FieldByName('Number_10_money').Value>0 then begin Label124.Caption:=floattostr(aminallist.FieldByName('Number_10_money').Value); Label124.visible:=true; end else begin Label124.Caption:=''; LabeL124.visible:=false;end;
    if aminallist.FieldByName('Number_11_money').Value>0 then begin Label125.Caption:=floattostr(aminallist.FieldByName('Number_11_money').Value); Label125.visible:=true; end else begin Label125.Caption:=''; LabeL125.visible:=false;end;
    if aminallist.FieldByName('Number_12_money').Value>0 then begin Label126.Caption:=floattostr(aminallist.FieldByName('Number_12_money').Value); Label126.visible:=true; end else begin Label126.Caption:=''; Label126.visible:=false;end;
    if aminallist.FieldByName('Number_13_money').Value>0 then begin Label127.Caption:=floattostr(aminallist.FieldByName('Number_13_money').Value); Label127.visible:=true; end else begin Label127.Caption:=''; Label127.visible:=false;end;
    if aminallist.FieldByName('Number_14_money').Value>0 then begin Label128.Caption:=floattostr(aminallist.FieldByName('Number_14_money').Value); Label128.visible:=true; end else begin Label128.Caption:=''; Label128.visible:=false;end;
    if aminallist.FieldByName('Number_15_money').Value>0 then begin Label129.Caption:=floattostr(aminallist.FieldByName('Number_15_money').Value); Label129.visible:=true; end else begin Label129.Caption:=''; Label129.visible:=false;end;
    if aminallist.FieldByName('Number_16_money').Value>0 then begin Label130.Caption:=floattostr(aminallist.FieldByName('Number_16_money').Value); Label130.visible:=true; end else begin Label130.Caption:=''; Label130.visible:=false;end;
    if aminallist.FieldByName('Number_17_money').Value>0 then begin Label131.Caption:=floattostr(aminallist.FieldByName('Number_17_money').Value); Label131.visible:=true; end else begin Label131.Caption:=''; Label131.visible:=false;end;
    if aminallist.FieldByName('Number_18_money').Value>0 then begin Label132.Caption:=floattostr(aminallist.FieldByName('Number_18_money').Value); Label132.visible:=true; end else begin Label132.Caption:=''; Label132.visible:=false;end;
    if aminallist.FieldByName('Number_19_money').Value>0 then begin Label133.Caption:=floattostr(aminallist.FieldByName('Number_19_money').Value); Label133.visible:=true; end else begin Label133.Caption:=''; Label133.visible:=false;end;
    if aminallist.FieldByName('Number_20_money').Value>0 then begin Label134.Caption:=floattostr(aminallist.FieldByName('Number_20_money').Value); Label134.visible:=true; end else begin Label134.Caption:=''; Label134.visible:=false;end;
    if aminallist.FieldByName('Number_21_money').Value>0 then begin Label135.Caption:=floattostr(aminallist.FieldByName('Number_21_money').Value); Label135.visible:=true; end else begin Label135.Caption:=''; Label135.visible:=false;end;
    if aminallist.FieldByName('Number_22_money').Value>0 then begin Label136.Caption:=floattostr(aminallist.FieldByName('Number_22_money').Value); Label136.visible:=true; end else begin Label136.Caption:=''; Label136.visible:=false;end;
    if aminallist.FieldByName('Number_23_money').Value>0 then begin Label137.Caption:=floattostr(aminallist.FieldByName('Number_23_money').Value); Label137.visible:=true; end else begin Label137.Caption:=''; Label137.visible:=false;end;
    if aminallist.FieldByName('Number_24_money').Value>0 then begin Label138.Caption:=floattostr(aminallist.FieldByName('Number_24_money').Value); Label138.visible:=true; end else begin Label138.Caption:=''; Label138.visible:=false;end;
    if aminallist.FieldByName('Number_25_money').Value>0 then begin Label139.Caption:=floattostr(aminallist.FieldByName('Number_25_money').Value); Label139.visible:=true; end else begin Label139.Caption:=''; Label139.visible:=false;end;
    if aminallist.FieldByName('Number_26_money').Value>0 then begin Label140.Caption:=floattostr(aminallist.FieldByName('Number_26_money').Value); Label140.visible:=true; end else begin Label140.Caption:=''; Label140.visible:=false;end;
    if aminallist.FieldByName('Number_27_money').Value>0 then begin Label141.Caption:=floattostr(aminallist.FieldByName('Number_27_money').Value); Label141.visible:=true; end else begin Label141.Caption:=''; Label141.visible:=false;end;
    if aminallist.FieldByName('Number_28_money').Value>0 then begin Label142.Caption:=floattostr(aminallist.FieldByName('Number_28_money').Value); Label142.visible:=true; end else begin Label142.Caption:=''; Label142.visible:=false;end;
    if aminallist.FieldByName('Number_29_money').Value>0 then begin Label143.Caption:=floattostr(aminallist.FieldByName('Number_29_money').Value); Label143.visible:=true; end else begin Label143.Caption:=''; Label143.visible:=false;end;
    if aminallist.FieldByName('Number_30_money').Value>0 then begin Label144.Caption:=floattostr(aminallist.FieldByName('Number_30_money').Value); Label144.visible:=true; end else begin Label144.Caption:=''; Label144.visible:=false;end;
    if aminallist.FieldByName('Number_31_money').Value>0 then begin Label145.Caption:=floattostr(aminallist.FieldByName('Number_31_money').Value); Label145.visible:=true; end else begin Label145.Caption:=''; Label145.visible:=false;end;
    if aminallist.FieldByName('Number_32_money').Value>0 then begin Label146.Caption:=floattostr(aminallist.FieldByName('Number_32_money').Value); Label146.visible:=true; end else begin Label146.Caption:=''; Label146.visible:=false;end;
    if aminallist.FieldByName('Number_33_money').Value>0 then begin Label147.Caption:=floattostr(aminallist.FieldByName('Number_33_money').Value); Label147.visible:=true; end else begin Label147.Caption:=''; Label147.visible:=false;end;
    if aminallist.FieldByName('Number_34_money').Value>0 then begin Label148.Caption:=floattostr(aminallist.FieldByName('Number_34_money').Value); Label148.visible:=true; end else begin Label148.Caption:=''; Label148.visible:=false;end;
    if aminallist.FieldByName('Number_35_money').Value>0 then begin Label149.Caption:=floattostr(aminallist.FieldByName('Number_35_money').Value); Label149.visible:=true; end else begin Label149.Caption:=''; Label149.visible:=false;end;
    if aminallist.FieldByName('Number_36_money').Value>0 then begin Label150.Caption:=floattostr(aminallist.FieldByName('Number_36_money').Value); Label150.visible:=true; end else begin Label150.Caption:=''; Label150.visible:=false;end;
    if aminallist.FieldByName('Number_37_money').Value>0 then begin Label151.Caption:=floattostr(aminallist.FieldByName('Number_37_money').Value); Label151.visible:=true; end else begin Label151.Caption:=''; Label151.visible:=false;end;
    if aminallist.FieldByName('Number_38_money').Value>0 then begin Label152.Caption:=floattostr(aminallist.FieldByName('Number_38_money').Value); Label152.visible:=true; end else begin Label152.Caption:=''; Label152.visible:=false;end;
    if aminallist.FieldByName('Number_39_money').Value>0 then begin Label153.Caption:=floattostr(aminallist.FieldByName('Number_39_money').Value); Label153.visible:=true; end else begin Label153.Caption:=''; Label153.visible:=false;end;
    if aminallist.FieldByName('Number_40_money').Value>0 then begin Label154.Caption:=floattostr(aminallist.FieldByName('Number_40_money').Value); Label154.visible:=true; end else begin Label154.Caption:=''; Label154.visible:=false;end;
    if aminallist.FieldByName('Number_41_money').Value>0 then begin Label155.Caption:=floattostr(aminallist.FieldByName('Number_41_money').Value); Label155.visible:=true; end else begin Label155.Caption:=''; Label155.visible:=false;end;
    if aminallist.FieldByName('Number_42_money').Value>0 then begin Label156.Caption:=floattostr(aminallist.FieldByName('Number_42_money').Value); Label156.visible:=true; end else begin Label156.Caption:=''; Label156.visible:=false;end;
    if aminallist.FieldByName('Number_43_money').Value>0 then begin Label157.Caption:=floattostr(aminallist.FieldByName('Number_43_money').Value); Label157.visible:=true; end else begin Label157.Caption:=''; Label157.visible:=false;end;
    if aminallist.FieldByName('Number_44_money').Value>0 then begin Label158.Caption:=floattostr(aminallist.FieldByName('Number_44_money').Value); Label158.visible:=true; end else begin Label158.Caption:=''; Label158.visible:=false;end;
    if aminallist.FieldByName('Number_45_money').Value>0 then begin Label159.Caption:=floattostr(aminallist.FieldByName('Number_45_money').Value); Label159.visible:=true; end else begin Label159.Caption:=''; Label159.visible:=false;end;
    if aminallist.FieldByName('Number_46_money').Value>0 then begin Label160.Caption:=floattostr(aminallist.FieldByName('Number_46_money').Value); Label160.visible:=true; end else begin Label160.Caption:=''; Label160.visible:=false;end;
    if aminallist.FieldByName('Number_47_money').Value>0 then begin Label161.Caption:=floattostr(aminallist.FieldByName('Number_47_money').Value); Label161.visible:=true; end else begin Label161.Caption:=''; Label161.visible:=false;end;
    if aminallist.FieldByName('Number_48_money').Value>0 then begin Label162.Caption:=floattostr(aminallist.FieldByName('Number_48_money').Value); Label162.visible:=true; end else begin Label162.Caption:=''; Label162.visible:=false;end;
    if aminallist.FieldByName('Number_49_money').Value>0 then begin Label163.Caption:=floattostr(aminallist.FieldByName('Number_49_money').Value); Label163.visible:=true; end else begin Label163.Caption:=''; Label163.visible:=false;end;
    if aminallist.FieldByName('Number_Sum_money').Value>0 then begin Label164.Caption:=floattostr(aminallist.FieldByName('Number_Sum_money').Value); Label164.visible:=true; end else begin Label164.Caption:=''; Label164.visible:=false;end;
    if aminallist.FieldByName('Number_Avg_money').Value>0 then begin Label165.Caption:=floattostr(aminallist.FieldByName('Number_Avg_money').Value); Label165.visible:=true; end else begin Label165.Caption:=''; Label165.visible:=false;end;
    if aminallist.FieldByName('Number_Single').Value>0 then begin Label168.caption:=floattostr(aminallist.FieldByName('Number_Single').Value); Label168.visible:=true; end else begin Label168.Caption:=''; Label168.visible:=false;end;
    if aminallist.FieldByName('Number_Double').Value>0 then begin Label169.caption:=floattostr(aminallist.FieldByName('Number_Double').Value); Label169.visible:=true; end else begin Label169.Caption:=''; Label169.visible:=false;end;
    if aminallist.FieldByName('Number_Big').Value>0 then begin Label170.Caption:=floattostr(aminallist.FieldByName('Number_Big').Value); Label170.visible:=true; end else begin Label170.Caption:=''; Label170.visible:=false;end;
    if aminallist.FieldByName('Number_Small').Value>0 then begin LabeL171.caption:=floattostr(aminallist.FieldByName('Number_Small').Value); Label171.visible:=true; end else begin Label171.Caption:=''; Label171.visible:=false;end;
    if aminallist.FieldByName('Number_Red').Value>0 then begin Label172.Caption:=floattostr(aminallist.FieldByName('Number_Red').Value); Label172.visible:=true; end else begin Label172.Caption:=''; Label172.visible:=false;end;
    if aminallist.FieldByName('Number_RedSingle').Value>0 then begin Label173.Caption:=floattostr(aminallist.FieldByName('Number_RedSingle').Value); Label173.visible:=true; end else begin Label173.Caption:=''; Label173.visible:=false;end;
    if aminallist.FieldByName('Number_RedDouble').Value>0 then begin Label174.Caption:=floattostr(aminallist.FieldByName('Number_RedDouble').Value); Label174.visible:=true; end else begin Label174.Caption:=''; Label174.visible:=false;end;
    if aminallist.FieldByName('Number_Blue').Value>0 then begin Label175.Caption:=floattostr(aminallist.FieldByName('Number_Blue').Value); Label175.visible:=true; end else begin Label175.Caption:=''; Label175.visible:=false;end;
    if aminallist.FieldByName('Number_BlueSingle').Value>0 then begin Label176.Caption:=floattostr(aminallist.FieldByName('Number_BlueSingle').Value); Label176.visible:=true; end else begin Label176.Caption:=''; Label176.visible:=false;end;
    if aminallist.FieldByName('Number_BlueDouble').Value>0 then begin Label177.Caption:=floattostr(aminallist.FieldByName('Number_BlueDouble').Value); Label177.visible:=true; end else begin Label177.Caption:=''; Label177.visible:=false;end;
    if aminallist.FieldByName('Number_Green').Value>0 then begin Label178.caption:=floattostr(aminallist.FieldByName('Number_Green').Value); Label178.visible:=true; end else begin Label178.Caption:=''; Label178.visible:=false;end;
    if aminallist.FieldByName('Number_GreenSingle').Value>0 then begin Label179.Caption:=floattostr(aminallist.FieldByName('Number_GreenSingle').Value); Label179.visible:=true; end else begin Label179.Caption:=''; Label179.visible:=false;end;
    if aminallist.FieldByName('Number_GreenDouble').Value>0 then begin Label180.Caption:=floattostr(aminallist.FieldByName('Number_GreenDouble').Value); Label180.visible:=true; end else begin Label180.Caption:=''; Label180.visible:=false;end;
    if aminallist.FieldByName('SHut_Single').Value>0 then begin Label182.Caption:=floattostr(aminallist.FieldByName('Number_GreenSingle').Value); Label182.visible:=true; end else begin Label182.Caption:=''; Label182.visible:=false;end;
    if aminallist.FieldByName('Shut_Double').Value>0 then begin Label183.Caption:=floattostr(aminallist.FieldByName('Number_GreenDouble').Value); Label183.visible:=true; end else begin Label183.Caption:=''; Label183.visible:=false;end;