salecheck.~pas

彩票销售系统

begin
  ClientId:=15;
  TMNumBer_InfList(Sender);
end;

procedure TSaleCheck_Form.ClientButton16Click(Sender: TObject);
begin
  ClientId:=16;
  TMNumBer_InfList(Sender);
end;

procedure TSaleCheck_Form.ClientButton17Click(Sender: TObject);
begin
  ClientId:=17;
  TMNumBer_InfList(Sender);
end;

procedure TSaleCheck_Form.ClientButton18Click(Sender: TObject);
begin
  ClientId:=18;
  TMNumBer_InfList(Sender);
end;

procedure TSaleCheck_Form.ClientButton19Click(Sender: TObject);
begin
  ClientId:=19;
  TMNumBer_InfList(Sender);
end;

procedure TSaleCheck_Form.ClientButton20Click(Sender: TObject);
begin
  ClientId:=20;
  TMNumBer_InfList(Sender);
end;

procedure TSaleCheck_Form.FormCreate(Sender: TObject);
begin
  Label115.Caption:=''; Label115.visible:=false;
  Label116.Caption:=''; Label116.visible:=false;
  Label117.Caption:=''; Label117.visible:=false;
  Label118.Caption:=''; Label118.visible:=false;
  Label119.Caption:=''; Label119.visible:=false;
  Label120.Caption:=''; Label120.visible:=false;
  Label121.Caption:=''; Label121.visible:=false;
  Label122.Caption:=''; Label122.visible:=false;
  Label123.Caption:=''; Label123.visible:=false;
  Label124.Caption:=''; Label124.visible:=false;
  Label125.Caption:=''; Label125.visible:=false;
  Label126.Caption:=''; Label126.visible:=false;
  Label127.Caption:=''; Label127.visible:=false;
  Label128.Caption:=''; Label128.visible:=false;
  Label129.Caption:=''; Label129.visible:=false;
  Label130.Caption:=''; Label130.visible:=false;
  Label131.Caption:=''; Label131.visible:=false;
  Label132.Caption:=''; Label132.visible:=false;
  Label133.Caption:=''; Label133.visible:=false;
  Label134.Caption:=''; Label134.visible:=false;
  Label135.Caption:=''; Label135.visible:=false;
  Label136.Caption:=''; Label136.visible:=false;
  Label137.Caption:=''; Label137.visible:=false;
  Label138.Caption:=''; Label138.visible:=false;
  Label139.Caption:=''; Label139.visible:=false;
  Label140.Caption:=''; Label140.visible:=false;
  Label141.Caption:=''; Label141.visible:=false;
  Label142.Caption:=''; Label142.visible:=false;
  Label143.Caption:=''; Label143.visible:=false;
  Label144.Caption:=''; Label144.visible:=false;
  Label145.Caption:=''; Label145.visible:=false;
  Label146.Caption:=''; Label146.visible:=false;
  Label147.Caption:=''; Label147.visible:=false;
  Label148.Caption:=''; Label148.visible:=false;
  Label149.Caption:=''; Label149.visible:=false;
  Label150.Caption:=''; Label150.visible:=false;
  Label151.Caption:=''; Label151.visible:=false;
  Label152.Caption:=''; Label152.visible:=false;
  Label153.Caption:=''; Label153.visible:=false;
  Label154.Caption:=''; Label154.visible:=false;
  Label155.Caption:=''; Label155.visible:=false;
  Label156.Caption:=''; Label156.visible:=false;
  Label157.Caption:=''; Label157.visible:=false;
  Label158.Caption:=''; Label158.visible:=false;
  Label159.Caption:=''; Label159.visible:=false;
  Label160.Caption:=''; Label160.visible:=false;
  Label161.Caption:=''; Label161.visible:=false;
  Label162.Caption:=''; Label162.visible:=false;
  Label163.Caption:=''; Label163.visible:=false;
  Label164.Caption:=''; Label164.visible:=false;
  Label165.Caption:=''; Label165.visible:=false;
  Label166.Caption:=''; Label166.visible:=false;
  Label167.Caption:=''; Label167.visible:=false;
  Label168.Caption:=''; Label168.visible:=false;
  Label169.Caption:=''; Label169.visible:=false;
  Label170.Caption:=''; Label170.visible:=false;
  Label171.Caption:=''; Label171.visible:=false;
  Label172.Caption:=''; Label172.visible:=false;
  Label173.Caption:=''; Label173.visible:=false;
  Label174.Caption:=''; Label174.visible:=false;
  Label175.Caption:=''; Label175.visible:=false;
  Label176.Caption:=''; Label176.visible:=false;
  Label177.Caption:=''; Label177.visible:=false;
  Label178.Caption:=''; Label178.visible:=false;
  Label179.Caption:=''; Label179.visible:=false;
  Label180.Caption:=''; Label180.visible:=false;
  Label182.Caption:=''; Label182.visible:=false;
  Label183.Caption:=''; Label183.visible:=false;
end;

procedure TSaleCheck_Form.FormShow(Sender: TObject);
var
  ClientBz:boolean;
begin
  aminallist.Close;
  aminallist.SQL.Clear;
  aminallist.SQL.Add('select FAminalId,FAminalName from T_aminal order by FAminalId');
  aminallist.Open;
  while not aminallist.Eof do
  begin
    if aminallist.Fields[0].value=1 then Label6.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=2 then Label82.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=3 then Label83.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=4 then Label84.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=5 then Label87.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=6 then Label88.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=7 then Label89.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=8 then Label90.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=9 then Label91.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=10 then Label92.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=11 then Label93.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=12 then Label94.Caption:= aminallist.Fields[1].value;
    aminallist.next;
  end;
  aminallist.Close;
  aminallist.SQL.Clear;
  aminallist.SQL.Add('select FClientid,FVisible from T_Client order by FClientid');
  aminallist.Open;
  if aminallist.RecordCount <1 then
  begin
    application.MessageBox('无客户信息，请设置客户信息！','系统提示',MB_ICONERROR);
    close;
  end
  else
  begin
    while not aminallist.Eof do
    begin
      if aminallist.Fields[1].asboolean=true then
      begin
        if aminallist.Fields[0].value=1 then ClientButton1.Visible:=true;
        if aminallist.Fields[0].value=2 then ClientButton2.Visible:=true;
        if aminallist.Fields[0].value=3 then ClientButton3.Visible:=true;
        if aminallist.Fields[0].value=4 then ClientButton4.Visible:=true;
        if aminallist.Fields[0].value=5 then ClientButton5.Visible:=true;
        if aminallist.Fields[0].value=6 then ClientButton6.Visible:=true;
        if aminallist.Fields[0].value=7 then ClientButton7.Visible:=true;
        if aminallist.Fields[0].value=8 then ClientButton8.Visible:=true;
        if aminallist.Fields[0].value=9 then ClientButton9.Visible:=true;
        if aminallist.Fields[0].value=10 then ClientButton10.Visible:=true;
        if aminallist.Fields[0].value=11 then ClientButton11.Visible:=true;
        if aminallist.Fields[0].value=12 then ClientButton12.Visible:=true;
        if aminallist.Fields[0].value=13 then ClientButton13.Visible:=true;
        if aminallist.Fields[0].value=14 then ClientButton14.Visible:=true;
        if aminallist.Fields[0].value=15 then ClientButton15.Visible:=true;
        if aminallist.Fields[0].value=16 then ClientButton16.Visible:=true;
        if aminallist.Fields[0].value=17 then ClientButton17.Visible:=true;
        if aminallist.Fields[0].value=18 then ClientButton18.Visible:=true;
        if aminallist.Fields[0].value=19 then ClientButton19.Visible:=true;
        if aminallist.Fields[0].value=20 then ClientButton20.Visible:=true;
        ClientBz:=true;
      end;
      aminallist.Next;
    end;
  end;
  if not ClientBz then
  begin
    application.MessageBox('无可用的客户信息，请设置客户信息！','系统提示',MB_ICONERROR);
    //close;
  end;
end;

end.