empworklist.pas

彩票销售系统

unit EmpWorkList;

interface

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

type
  TMyDBGrid=class(TDBGrid);
  TEmpWorkList_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;
    emplistsp: TADOStoredProc;
    emplistspDSDesigner: TStringField;
    emplistspDSDesigner2: TIntegerField;
    emplistspDSDesigner3: TStringField;
    emplistspDSDesigner4: TIntegerField;
    emplistspDSDesigner5: TStringField;
    emplistspDSDesigner6: TStringField;
    emplistspDSDesigner7: TStringField;
    emplistspDSDesigner8: TStringField;
    emplistspDSDesigner9: TStringField;
    emplistspDSDesigner10: TBCDField;
    emplistspDSDesigner11: TBCDField;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(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 BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
    ClientId:integer;
    first_bz:boolean;
    procedure screport(Sender:Tobject);
    Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
  public
    { Public declarations }
  end;

var
  EmpWorkList_Form: TEmpWorkList_Form;

implementation
  uses NumberManger;
{$R *.dfm}
procedure TEmpWorkList_Form.screport(Sender: TObject);
begin
  if combobox1.Text='' then
  begin
    application.MessageBox('请选择或录入期号！','系统提示',MB_ICONERROR);
    combobox1.SetFocus;
  end;
  emplistsp.Close;
  emplistsp.Parameters[1].value:=combobox1.Text;
  emplistsp.Parameters[2].Value:=ClientId;
  emplistsp.Prepared;
  emplistsp.Open;
  if emplistsp.RecordCount<1 then
  begin
    application.MessageBox('无相应客户操作信息，请重新选择客户！','系统提示',MB_ICONERROR);
  end;
end;

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

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

procedure TEmpWorkList_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;
  aminallist.Close;
  aminallist.SQL.Clear;
  aminallist.SQL.Add('select * from T_SalePeriod ');
  aminallist.Open;
  if aminallist.RecordCount>0 then
  begin
    combobox1.Items.Clear;
    while not aminallist.Eof do
    begin
      combobox1.Text:=aminallist.Fields[0].value;
      combobox1.Items.Add(aminallist.Fields[0].value);
      aminallist.Next;
    end;
  end;
end;

procedure TEmpWorkList_Form.ClientButton1Click(Sender: TObject);
begin
  ClientId:=1;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton2Click(Sender: TObject);
begin
  ClientId:=2;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton3Click(Sender: TObject);
begin
  ClientId:=3;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton4Click(Sender: TObject);
begin
  ClientId:=4;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton5Click(Sender: TObject);
begin
  ClientId:=5;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton6Click(Sender: TObject);
begin
  ClientId:=6;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton7Click(Sender: TObject);
begin
  ClientId:=7;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton8Click(Sender: TObject);
begin
  ClientId:=8;
  first_bz:=true;
  screport(Sender);
end;

procedure TEmpWorkList_Form.ClientButton9Click(Sender: TObject);
begin
  ClientId:=9;
  first_bz:=true;
  screport(Sender);