empworkcollect.pas

彩票销售系统

unit EmpWorkCollect;

interface

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

type
  TEmpWorkCollect_Form = class(TForm)
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    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;
    ComboBox1: TComboBox;
    aminallist: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EmpWorkCollect_Form: TEmpWorkCollect_Form;

implementation
  uses NumberManger ;
{$R *.dfm}

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

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

procedure TEmpWorkCollect_Form.FormShow(Sender: TObject);
var
  ClientBz:boolean;
begin
  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;
  if aminallist.RecordCount>0 then
  begin
    combobox1.Items.Clear;
    while not aminallist.Eof do
    begin
      combobox1.Items.Add(aminallist.Fields[0].value);
      aminallist.Next;
    end;
  end;
end;

end.