u_init.pas

销售业绩核算系统

unit U_init;

interface

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

type
  TForm_init = class(TForm)
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Bevel1: TBevel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_init: TForm_init;

implementation

uses F_DM;

{$R *.dfm}

procedure TForm_init.SpeedButton1Click(Sender: TObject);
var
i:integer;
begin
//speedbutton1.Caption:='正在开始月度结算初始化.......';
//   exit;
if trim(speedbutton1.Caption)='结算完毕！' then
   close
   else
   begin
   if application.MessageBox(' 警告信息-------您确定要开始月度结算初始化吗？        '+#13+#13+'      请保证您本次操作的正确性!    ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>IDOK then
    exit;
    with dm do
    begin
       ADOQuery.SQL.Clear;
       ADOQuery.SQL.Text:='select * from aaa';
       ADOQuery.Open;
       if adoquery.RecordCount>0 then
           begin
               for  i:=0  to adoquery.RecordCount-1 do
               begin
                adoquery.Edit;
                adoquery.FieldValues['leiji_point']:=adoquery.FieldValues['leiji_point']+adoquery.FieldValues['current_point'];
                adoquery.FieldValues['current_point']:=0;
                adoquery.FieldValues['money']:=0;
                adoquery.Post;
                adoquery.Next;
               end;
           end;
    end;

  speedbutton1.Caption:='  开始月度结算初始化';
  showmessage('结算完毕！');
  end;


end;

procedure TForm_init.SpeedButton2Click(Sender: TObject);
begin
with DM do
begin
   ADOquery.SQL.Clear;
   ADOquery.SQL.Text:='delete from yejidan';
   ADOquery.ExecSQL;
   showmessage('执行成功！');
end;

end;

procedure TForm_init.SpeedButton3Click(Sender: TObject);
var
i:integer;
begin
if application.MessageBox(' 警告信息-------您确定要全部初始化吗？        '+#13+#13+'      请保证您此次操作的正确性!    ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>IDOK then
     exit;

with dm do
  begin

     ADOQuery.SQL.Clear;
     ADOQuery.SQL.Text:='select * from usermanage where username=''zyt'' and password=''780617''';
     ADOQuery.Open;
     if ADOQuery.RecordCount<>1 then
        begin
        showmessage('对不起！,此操作只能由软件开发人员调试用');
        exit;
        end;

     adoquery.SQL.Clear;
     adoquery.sql.text:='select * from aaa';
     adoquery.Open;
      
     for  i:=0  to adoquery.RecordCount-1 do
     begin
          adoquery.Edit;
          adoquery.FieldValues['dengji']:='E';     //级别当前点累计点数
          adoquery.FieldValues['current_point']:=0;
          adoquery.FieldValues['leiji_point']:=0;
          adoquery.FieldValues['zong_point']:=0;
          adoquery.FieldValues['money']:=0;
          adoquery.FieldValues['proxy_']:='代理员';
          adoquery.FieldValues['proxy_name']:='代理员姓名';
          adoquery.FieldValues['proxyname']:='王新安';
          adoquery.FieldValues['proxy']:='HK080208';
          adoquery.Post;
          adoquery.Next;
     end; 

     adoquery.Close;
  end;


end;

procedure TForm_init.SpeedButton4Click(Sender: TObject);
var
dengji:string;
begin
//业绩单等级简化
try
with dm do
 begin
  adoquery.SQL.clear;
  adoquery.SQL.text:='select * from yejidan';    //业绩单
  adoquery.Open;
while not adoquery.Eof do
 begin
  adoquery.Edit;
  dengji:=adoquery.FieldValues['dengji_02'];
  delete(dengji,2,2);
  adoquery.FieldValues['dengji_02']:=dengji;       //等级简化
  adoquery.Post;
  adoquery.Next;
 end;
  showmessage('操作完毕！');
end;   //DM

except
  showmessage('出现错误！可能没有数据');
end;
end;

procedure TForm_init.SpeedButton5Click(Sender: TObject);
var
jiangjin:double;
begin
//业绩单奖金取整
try
with dm do
 begin
   adoquery.SQL.clear;
   adoquery.SQL.text:='select * from yejidan';
   adoquery.Open;
     while not adoquery.Eof do
       begin
         adoquery.Edit;
          jiangjin:=adoquery.FieldValues['jiangjin'];
          //奖金取整
          adoquery.FieldValues['jiangjin']:=round(jiangjin);
          adoquery.Post;
          adoquery.Next;
       end;
    showmessage('操作完毕！');
 end;  //dm
except
 showmessage('出现错误！可能没有数据');
end;
end;

end.