f_inputdata.pas

销售业绩核算系统

unit F_inputdata;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, F_input, StdCtrls, ExtCtrls, Buttons;

type
  TForm_inputdata = class(TForm2)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label9: TLabel;
    Panel1: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    BitBtn1: TBitBtn;
    Label12: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    CheckBox1: TCheckBox;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    Panel2: TPanel;
    Label15: TLabel;
    Edit13: TEdit;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SBsearch: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SBsearchClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_inputdata: TForm_inputdata;

implementation

uses F_selectname, F_DM;

{$R *.dfm}

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

procedure TForm_inputdata.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  ///上属编号
form_selectname.ShowModal;
with dm do
begin
   try
     if form_selectname.ListView1.Selected<>nil then
      begin
       edit8.text:=form_selectname.ListView1.Selected.Caption;
       adotable.open;
       adotable.Filtered:=false;
       adotable.Filter:='name='''+trim(edit8.text)+'''';
       adotable.Filtered:=true;
       edit7.text:=adotable.FieldValues['bianhao'];
       adotable.Filtered:=false;
      end;
   except
      showmessage('操作错误,或者没有相关的数据');
   end;
   adotable.close;
end;



end;

procedure TForm_inputdata.SBsearchClick(Sender: TObject);
begin
  inherited;
  ///搜索上属编号
//form_selectname.ShowModal;
    with dm do
begin
   try

       if trim(edit8.text)='' then
          exit;
       adotable.open;
       adotable.Filtered:=false;
       adotable.Filter:='name='''+trim(edit8.text)+'''';
       adotable.Filtered:=true;
       edit7.text:=adotable.FieldValues['bianhao'];
       adotable.Filtered:=false;

   except
      showmessage('操作错误,或者没有相关的数据');
   end;
   adotable.close;
end;
end;

procedure TForm_inputdata.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  ///代理员编号
form_selectname.ShowModal;
    with dm do
begin
   try
     if form_selectname.ListView1.Selected<>nil then
      begin
       edit11.text:=form_selectname.ListView1.Selected.Caption;
       adotable.open;
       adotable.Filtered:=false;
       adotable.Filter:='name='''+trim(edit11.text)+'''';
       adotable.Filtered:=true;
       edit12.text:=adotable.FieldValues['bianhao'];
       adotable.Filtered:=false;
      end;
   except
      showmessage('操作错误,或者没有相关的数据');
   end;
   adotable.close;
end;
end;

procedure TForm_inputdata.Edit3Click(Sender: TObject);
begin
  inherited;

  if edit4.text='' then
     edit4.text:='0';
     if (strtoint(edit4.text)>0) and (strtoint(edit4.text) mod 70<>0) then
       begin
       //showmessage('对不起,您必须输入70点的倍数！') ;
       application.MessageBox('对不起,您在本月点数中必须输入70点的倍数！'+#13+#13+'            请重新输入正确的数字! ','系统提示',MB_Ok+MB_Iconinformation);
        exit;
        end ;

     if edit5.text='' then
     edit5.text:='0' ;
     if (strtoint(edit5.text)>0) and (strtoint(edit5.text) mod 70<>0) then
       begin
       //showmessage('对不起,您必须输入70点的倍数！') ;
       application.MessageBox('对不起,您在累计点数中必须输入70点的倍数！'+#13+#13+'            请重新输入正确的数字! ','系统提示',MB_Ok+MB_Iconinformation);
       exit;
       end;

  try
  edit3.text:=inttostr(strtoint(edit4.text)+strtoint(edit5.Text));
  except
     application.MessageBox('对不起,您在本月点数和累计点数中输入有误！,            '+#13+#13+'请重新输入正确的数字，然后单击本框自动算出!    ','系统提示',MB_Ok+MB_Iconinformation);
     //messagedlg('对不起,您在本月点数和累计点数输入有误 ！',mtinformation,[mbok],0);
     //(sender as Tedit).SetFocus;
     //key:=#0;
     exit;
  end;

  
  if strtoint(edit3.text)>=39270 then
     edit6.text:='A 级'
  else if  (strtoint(edit3.text)<39270) and (strtoint(edit3.text)>=6510) then
      edit6.text:='B 级'
      else if   (strtoint(edit3.text)<6510) and (strtoint(edit3.text)>=980)  then
       edit6.text:='C 级'
      else if (strtoint(edit3.text)<980) and (strtoint(edit3.text)>=280) then
        edit6.text:='D 级'
      else edit6.text:='E 级'

      ////////



end;

procedure TForm_inputdata.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  messagedlg('对不起,您不能在此进行输入 ！',mtinformation,[mbok],0);
     //(sender as Tedit).SetFocus;
     key:=#0;
end;

procedure TForm_inputdata.BitBtn1Click(Sender: TObject);
var
sql:string;
tempname,bianhao,dengji:string;
tempbianhao:string;
woname,wobianhao:string;
begin
  inherited;

  //确定录入数据

   if edit2.text='' then
      begin
      application.MessageBox('请重新输入正确的姓名,然后再单击本按钮!    ','系统提示',MB_Ok+MB_Iconinformation) ;
       exit;
       end;

    /////#######################################################
    with dm do
 begin
      adoquery.SQL.Clear;
      adoquery.SQL.Text:='select bianhao from aaa order by input_time';
      adoquery.Open;
   if adoquery.RecordCount>0 then
     begin
     adoquery.Last;

      tempbianhao:=adoquery.FieldValues['bianhao'];
      delete(tempbianhao,1,2);
      tempbianhao:='HK0'+inttostr(strtoint(tempbianhao)+1);
      edit1.text:=trim(tempbianhao);   //自动产生编号
     end;
 end;   


    /////#######################################################
   // if edit1.text='' then
   //   begin
   //   application.MessageBox('请重新输入正确的编号,然后再单击本按钮!    ','系统提示',MB_Ok+MB_Iconinformation);
   //    exit;
   //    end;
  if edit13.text='' then
     edit13.Text:='0';
     //if strtofloat(edit13.text)>0 then

   //计算点数和业绩
   form_inputdata.Edit3.OnClick(Sender);


   ////计算代理员编号和代理员
   with dm do          ///################################
   begin
      adoquery.SQL.Clear;
      adoquery.SQL.Text:='select * from aaa where bianhao='''+trim(edit1.text)+''' and name='''+trim(edit2.text)+'''';
      adoquery.Open;
      if adoquery.RecordCount=1 then
        begin
        showmessage('对不起，已经有此用户的纪录！');
        exit;
        end;