unit_compmana.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

          sSQL:=sSQL+', NAME='''+Trim(FlatEditName.Text)+'''';
        if Trim(FlatEditAddr.Text)<>sAddrTmp4 then
          sSQL:=sSQL+', ADDR='''+Trim(FlatEditAddr.Text)+'''';
        if Trim(FlatEditPHONE.Text)<>sPhoneTmp4 then
          sSQL:=sSQL+', PHONE='''+Trim(FlatEditPHONE.Text)+'''';
        if Trim(FlatEditEMAIL.Text)<>sEMailTmp4 then
          sSQL:=sSQL+', EMAIL='''+Trim(FlatEditEMAIL.Text)+'''';
        if Trim(FlatEditJob.Text)<>sJobTmp4 then
          sSQL:=sSQL+', JOB='''+Trim(FlatEditJob.Text)+'''';
        if Trim(FlatEditMOBILPHONE.Text)<>sMobilPhoneTmp4 then
          sSQL:=sSQL+', MOBILPHONE='''+Trim(FlatEditMOBILPHONE.Text)+'''';
        if Trim(FlatEditRegDate.Text)<>sRegDate then
          sSQL:=sSQL+', REG_DATE=To_Date('''+Trim(FlatEditRegDate.Text)+''',''YYYY-MM-DD'')';
        if Trim(FlatEditWk_No4.Text)<>sWk_No then
          sSQL:=sSQL+', WK_NO='''+Trim(FlatEditWk_No4.Text)+'''';
        if Trim(FlatEditREMARK.Text)<>sRemarkTmp4 then
          sSQL:=sSQL+', Remark='''+Trim(FlatEditREMARK.Text)+'''';
        sSQL:=sSQL+' Where UserCode='+LabelUSERCODE.Caption;
      end;
      PL_ExecSQL(sSQL);
      QueryCompetitorUser.Close;
      QueryCompetitorUser.Open;
      QueryCompetitorUser.Locate('USERCODE',sUSERCODE,[]);
      FlatButton1.Enabled:=True;
      DBGrid3.Enabled:=True;
    end;
  4://对手用户意见
    begin
      if Trim(FlatComboBoxModiContent.Text)='' then
      begin
        Application.MessageBox('竞争对手用户意见主题为空！','提示',MB_OK+MB_ICONSTOP);
        FlatComboBoxModiContent.SetFocus;
        Exit;
      end;
      if Trim(FlatEditSID6.Text)='' then
      begin
        Application.MessageBox('用户号码不能为空！','提示',MB_OK+MB_ICONSTOP);
        FlatEditSID6.SetFocus;
        Exit;
      end;
      //**************要判断用户号码是否存在，不存在不让其保存***************
      QuerySequ.close;
      QuerySequ.sql.text :='select count(USERCODE) from T_F_CompetitorUser'
      +' where SID='+#39+FlatEditSID6.text+#39;
      QuerySequ.open;
      if QuerySequ.Fields[0].asinteger <1 then
      begin
        Application.MessageBox('用户号码不存在！','提示',MB_OK+MB_ICONSTOP);
        FlatEditSID6.SetFocus;
        Exit;
      end;

      //*********************************************************************

      //新增
      if sEditFlag='I' then
      begin
        with QuerySequ do
        begin
          if Active then Close;
          SQL.Clear;
          SQL.Add('Select SEQ_CompIdea.Nextval From Dual');
          Open;
          sIdeaCode:=Fields[0].AsString;
        end;
        sSQL:='Insert Into T_F_CompIdea(IdeaCode,MotifCode,Sid,Reg_Date,IdeaContent) Values(';
        sSQL:=sSQL+sIdeaCode;
        sSQL:=sSQL+','+Trim(FlatComboBoxModiContentT.Text);
        sSQL:=sSQL+','''+Trim(FlatEditSID6.Text);
        sSQL:=sSQL+''',To_Date('''+Trim(FlatEditReg_Date.Text)+''',''YYYY-MM-DD'')';
        sSQL:=sSQL+','''+Trim(FlatMemoIdeaContent.Text)+''')';
      end;
      //修改
      if sEditFlag='U' then
      begin
        sIdeaCode:=LabelIdeaCode.Caption;
        sSQL:='Update T_F_CompIdea Set IDEACODE='+sIdeaCode;
        if Trim(FlatComboBoxModiContent.Text)<>sModiContentTmp5 then
          sSQL:=sSQL+', MOTIFCODE='+Trim(FlatComboBoxModiContentT.Text);
        if Trim(FlatEditSID6.Text)<>sSIDTmp5 then
          sSQL:=sSQL+', SID='''+Trim(FlatEditSID6.Text)+'''';
        if Trim(FlatMemoIdeaContent.Text)<>sIDEACONTENTTmp5 then
          sSQL:=sSQL+', IDEACONTENT='''+Trim(FlatMemoIdeaContent.Text)+'''';
        if Trim(FlatEditReg_Date.Text)<>sREG_DATETmp5 then
          sSQL:=sSQL+',REG_DATE=To_Date('''+Trim(FlatEditReg_Date.Text)+''',''YYYY-MM-DD'')';
        sSQL:=sSQL+' Where IDEACODE='+LabelIdeaCode.Caption;
      end;
      PL_ExecSQL(sSQL);
      QueryCompIdea.Close;
      QueryCompIdea.Open;
      QueryCompIdea.Locate('IdeaCode',sIdeaCode,[]);
      DBGrid4.Enabled:=True;
      FlatButton2.Enabled:=True;
    end;
  end;
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
  sEditFlag:='';
end;

procedure TFrm_CompMana.FlatButtonInsertClick(Sender: TObject);
begin
  sEditFlag:='I';//新增
  Fun_ButtonStatus(Self,True); //按钮有效性控制
  Fun_ComponentStatus(self,0,True); // 使输入框可编辑
  Fun_ComponentStatus(self,1,False);  //清空输入框
  case PageControl1.ActivePageIndex of
  0:
    begin
      FlatEditCompName.SetFocus;
      DBGridCompetitor.Enabled:=False;
    end;
  1:
    begin
      FlatEditPolicy.SetFocus;
      FlatEditCompName2.Text:='';
      FlatButtonQuery2.Enabled:=False;
      DBGrid2.Enabled:=False;
    end;
  2:
    begin
      FlatEditModiContent.SetFocus;
      DBGrid1.Enabled:=False;
    end;
  3:
    begin
      FlatEditSID.SetFocus;
      FlatEditRegDate.Text:=FormatDateTime('YYYY-MM-DD',Date);
      FlatEditWk_No4.Text:=GH;
      FlatEditCompName4.Text:='';
      FlatButton1.Enabled:=False;
      DBGrid3.Enabled:=False;
    end;
  4:
    begin
      FlatEditSID6.SetFocus;
      FlatComboBoxModiContent.Text:='';
      FlatEditReg_Date.Text:=FormatDateTime('YYYY-MM-DD',Date);
      DBGrid4.Enabled:=False;
      FlatButton2.Enabled:=False;
      //FlatButtonSave.Enabled:=False;
    end;
  end;
end;

procedure TFrm_CompMana.FlatButtonUpdateClick(Sender: TObject);
begin
  //Fun_ButtonStatus(Self,True); //按钮有效性控制
  //Fun_ComponentStatus(self,0,True); // 使输入框可编辑
  case PageControl1.ActivePageIndex of
  0:
    begin
      //应该放在后面，无记录，不然按了修改后切换页面时有问题
      //sEditFlag:='U';//修改
      if Trim(LabelCompCode.Caption)='' then Exit;
      sEditFlag:='U';//修改
      FlatEditCompName.SetFocus;
      sCityTmp1:=Trim(FlatComboBoxCity.Text);
      sCountyTmp1:=Trim(FlatComboBoxCounty.Text);
      sCompNameTmp1:=Trim(FlatEditCompName.Text);
      sDesc1:=Trim(FlatEditDesc.Text);
    end;
  1:
    begin

      if Trim(LabelPolicyCode.Caption)='' then Exit;
      sEditFlag:='U';//修改
      FlatEditPolicy.SetFocus;
      sCompName2Tmp2:=Trim(FlatEditCompName2.Text);
      sPolicyTmp2:=Trim(FlatEditPolicy.Text);
      sBeginDateTmp2:=Trim(FlatEditBeginDate.Text);
      sEndDateTmp2:=Trim(FlatEditEndDate.Text);
      sRemarkTmp2:=Trim(FlatMemoRemark.Text);
    end;
  2:
    begin

      if Trim(LabelModifCode.Caption)='' then Exit;
      sEditFlag:='U';//修改
      FlatEditModiContent.SetFocus;
      sCityTmp3:=Trim(FlatComboBoxCity3.Text);
      sCountyTmp3:=Trim(FlatComboBoxCounty3.Text);
      sMODICONTENT3:=Trim(FlatEditModiContent.Text);
      sREMARK3:=Trim(FlatEditRemark3.Text);
    end;
  3:
    begin

      if Trim(LabelUSERCODE.Caption)='' then Exit;
      sEditFlag:='U';//修改
      FlatEditSID.SetFocus;
      sCityTmp4:=Trim(FlatComboBoxCity4.Text);
      sCountyTmp4:=Trim(FlatComboBoxCounty4.Text);
      sCompNameTmp4:=Trim(FlatEditCompName4.Text);
      sSIDTmp4:=Trim(FlatEditSID.Text);
      sNameTmp4:=Trim(FlatEditName.Text);
      sAddrTmp4:=Trim(FlatEditAddr.Text);
      sPhoneTmp4:=Trim(FlatEditPHONE.Text);
      sEMailTmp4:=Trim(FlatEditEMAIL.Text);
      sJobTmp4:=Trim(FlatEditJob.Text);
      sMobilPhoneTmp4:=Trim(FlatEditMOBILPHONE.Text);
      sRemarkTmp4:=Trim(FlatEditREMARK.Text);
      sRegDate:=Trim(FlatEditRegDate.Text);
      sWk_No:=Trim(FlatEditWk_No4.Text);
    end;
  4:
    begin

      if Trim(LabelIdeaCode.Caption)='' then Exit;
       sEditFlag:='U';//修改
      FlatMemoIdeaContent.SetFocus;
      sModiContentTmp5:=Trim(FlatComboBoxModiContent.Text);
      sSIDTmp5:=Trim(FlatEditSID6.Text);
      sIDEACONTENTTmp5:=Trim(FlatMemoIdeaContent.Text);
      sREG_DATETmp5:=Trim(FlatEditReg_Date.Text);
    end;
  end;
  Fun_ButtonStatus(Self,True); //按钮有效性控制
  Fun_ComponentStatus(self,0,True); // 使输入框可编辑
end;

procedure TFrm_CompMana.PageControl1Change(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:
    begin
      //应该要有个默认值
      //Fun_GetCity(FlatComboBoxCity,'',0);//初始化所管辖的地市
     { if JBDM<=2 then//有全部权限
      begin
        Fun_GetCity(FlatComboBoxCity,'',0);//初始化所管辖的地市
        Fun_GetCounty(FlatComboBoxCounty,'',Trim(FlatComboBoxCity.Text),0,PS_HomeName);//初始化所管辖的局向
        FlatButtonUpdate.Enabled:=true;
        FlatButtonDelete.Enabled:=true;
      end
      else
        begin }
          Fun_GetCity(FlatComboBoxCity,PS_CityName,0);//初始化所管辖的地市
          Fun_GetCounty(FlatComboBoxCounty,'',Trim(FlatComboBoxCity.Text),0,PS_HomeName);//初始化所管辖的局向
          FlatButtonUpdate.Enabled:=False;
          FlatButtonDelete.Enabled:=False;
       // end;
      Fun_ButtonStatus(self,False); //按钮有效性控制
      Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
      PL_FillCompetitor;//刷新竞争对手编辑框

      if QueryCompetitor.Eof then
      begin
        FlatButtonUpdate.Enabled:=False;
        FlatButtonDelete.Enabled:=False;
      end;
    end;
  1:
    begin
      Fun_GetCity(FlatComboBoxCity2,PS_CityName,0);//初始化所管辖的地市
      Fun_GetCounty(FlatComboBoxCounty2,'',Trim(FlatComboBoxCity2.Text),0,PS_HomeName);//初始化所管辖的局向
      Fun_ButtonStatus(self,False); //按钮有效性控制
      Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
      FlatEditCompName2.Clear;
      FlatEditCompName2T.Clear;
      FlatEditCompName2Q.Clear;
      FlatEditCompName2QT.Clear;
      FlatEditCompName2Q.Items.Add(' ');
      FlatEditCompName2QT.Items.Add(' ');
      with QueryCompName do
      begin
        if Active then Close;
        ParamByName('PS_CityNo').AsString:=PS_CityNo;
        ParamByName('PS_CountyNo').AsInteger:=JX;
        Open;
      end;
      while not QueryCompName.Eof do
      begin
        FlatEditCompName2T.Items.Add(QueryCompName.FieldByName('CompCode').AsString);
        FlatEditCompName2.Items.Add(QueryCompName.FieldByName('CompName').AsString);
        FlatEditCompName2QT.Items.Add(QueryCompName.FieldByName('CompCode').AsString);
        FlatEditCompName2Q.Items.Add(QueryCompName.FieldByName('CompName').AsString);
        QueryCompName.Next;
      end;
      //刷新竞争对手营销策略编辑框
      PL_FillCompPolicy;
      if QueryCompPolicy.Eof then
      begin
        FlatButtonUpdate.Enabled:=False;
        FlatButtonDelete.Enabled:=False;
      end;
    end;

  2:
    begin
      Fun_GetCity(FlatComboBoxCity3,PS_CityName,0);//初始化所管辖的地市
      Fun_GetCounty(FlatComboBoxCounty3,'',Trim(FlatComboBoxCity3.Text),0,PS_HomeName);//初始化所管辖的局向
      Fun_ButtonStatus(self,False); //按钮有效性控制
      Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
      //刷新意见主题编辑框
      PL_FillIdeaModif;
      if QueryIdeaModif.Eof then
      begin
        FlatButtonUpdate.Enabled:=False;
        FlatButtonDelete.Enabled:=False;
      end;
    end;
  3:
    begin
      Fun_GetCity(FlatComboBoxCity4,PS_CityName,0);//初始化所管辖的地市
      Fun_GetCounty(FlatComboBoxCounty4,'',Trim(FlatComboBoxCity4.Text),0,PS_HomeName);//初始化所管辖的局向
      Fun_ButtonStatus(self,False); //按钮有效性控制
      Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
      FlatEditCompName4.Clear;
      FlatEditCompName4T.Clear;
      FlatEditCompName4Q.Clear;
      FlatEditCompName4QT.Clear;
      FlatEditCompName4Q.Items.Add(' ');
      FlatEditCompName4QT.Items.Add(' ');
      with QueryCompName do
      begin
        if Active then Close;
        ParamByName('PS_CityNo').AsString:=PS_CityNo;
        ParamByName('PS_CountyNo').AsInteger:=JX;
        Open;
      end;
      while not QueryCompName.Eof do
      begin
        FlatEditCompName4T.Items.Add(QueryCompName.FieldByName('CompCode').AsString);
        FlatEditCompName4.Items.Add(QueryCompName.FieldByName('CompName').AsString);
        FlatEditCompName4QT.Items.Add(QueryCompName.FieldByName('CompCode').AsString);
        FlatEditCompName4Q.Items.Add(QueryCompName.FieldByName('CompName').AsString);
        QueryCompName.Next;
      end;
      //刷新竞争对手用户资料编辑框
      PL_FillCompetitorUser;
    end;
  4:
    begin
      Fun_GetCity(FlatComboBoxCity6,PS_CityName,0);//初始化所管辖的地市
      Fun_GetCounty(FlatComboBoxCounty6,'',Trim(FlatComboBoxCity6.Text),0,PS_HomeName);//初始化所管辖的局向
      Fun_ButtonStatus(self,False); //按钮有效性控制
      Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
      FlatComboBoxModiContent.Clear;
      FlatComboBoxModiContentT.Clear;
      FlatComboBoxModiContentQ5.Clear;
      FlatComboBoxModiContentQ5T.Clear;
      FlatComboBoxModiContentQ5.Items.Add(' ');
      FlatComboBoxModiContentQ5T.Items.Add(' ');

      with QueryIdeaModif6 do
      begin
        if Active then Close;
        ParamByName('PS_CityNo').AsString:=PS_CityNo;
        ParamByName('PS_CountyNo').AsInteger:=JX;
        Open;
      end;
      while not QueryIdeaModif6.Eof do
      begin
        FlatComboBoxModiContent.Items.Add(QueryIdeaModif6.FieldByName('MotiFContent').AsString);
        FlatComboBoxModiContentT.Items.Add(QueryIdeaModif6.FieldByName('MotifCode').AsString);
        FlatComboBoxModiContentQ5.Items.Add(QueryIdeaModif6.FieldByName('MotiFContent').AsString);
        FlatComboBoxModiContentQ5T.Items.Add(QueryIdeaModif6.FieldByName('MotifCode').AsString);
        QueryIdeaModif6.Next;
      end;
      //刷新竞争对手用户意见编辑框
      PL_FillCompIdea;
    end;
  end;
end;

procedure TFrm_CompMana.FlatButtonCancelClick(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:
    begin
      DBGridCompetitor.Enabled:=True;
      //刷新竞争对手编辑框
      PL_FillCompetitor;
    end;
  1:
    begin
      FlatButtonQuery2.Enabled:=True;
      DBGrid2.Enabled:=True;
      //刷新
      PL_FillCompPolicy;
    end;
  2:
    begin
      DBGrid1.Enabled:=True;
      //刷新
      PL_FillIdeaModif;
    end;