unit_compmana.pas

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

      ParamByName('PS_CountyNo').AsInteger:=JX;
      Open;
    end;
  end;
  if QueryIdeaModif.Eof then
  begin
    Fun_ComponentStatus(self,1,False);  //清空输入框
    LabelModifCode.Caption:='';
    Exit;
  end;
  LabelModifCode.Caption:=QueryIdeaModif.Fields[0].AsString;
  FlatComboBoxCity3.Text:=QueryIdeaModif.Fields[1].AsString;
  FlatComboBoxCounty3.Text:=QueryIdeaModif.Fields[2].AsString;
  FlatEditModiContent.Text:=QueryIdeaModif.Fields[3].AsString;
  FlatEditRemark3.Text:=QueryIdeaModif.Fields[4].AsString;
end;

procedure TFrm_CompMana.PL_FillCompetitorUser;
begin
  with QueryCompetitorUser do
  begin
    if not Active then
    begin
      ParamByName('PS_CityNo').AsString:=PS_CityNo;
      ParamByName('PS_CountyNo').AsInteger:=JX;
      Open;
    end;
  end;
  if QueryCompetitorUser.Eof then
  begin
    Fun_ComponentStatus(self,1,False);  //清空输入框
    LabelUSERCODE.Caption:='';
    DBGrid3.Columns[0].Visible:=False;
    //FlatButtonUpdate.Enabled:=False;
    //FlatButtonDelete.Enabled:=False;
    Exit;
  end;
  LabelUSERCODE.Caption:=QueryCompetitorUser.Fields[0].AsString;
  //FlatEditCompName4.Text:=QueryCompetitorUser.Fields[1].AsString;
  FlatEditCompName4.ItemIndex:=FlatEditCompName4.Items.IndexOf(QueryCompetitorUser.Fields[1].AsString);
  FlatEditSID.Text:=QueryCompetitorUser.Fields[2].AsString;
  FlatEditName.Text:=QueryCompetitorUser.Fields[3].AsString;
  FlatEditAddr.Text:=QueryCompetitorUser.Fields[4].AsString;
  FlatEditPHONE.Text:=QueryCompetitorUser.Fields[5].AsString;
  FlatEditEMAIL.Text:=QueryCompetitorUser.Fields[6].AsString;
  FlatEditJob.Text:=QueryCompetitorUser.Fields[7].AsString;
  FlatEditMOBILPHONE.Text:=QueryCompetitorUser.Fields[8].AsString;
  FlatEditREMARK.Text:=QueryCompetitorUser.Fields[9].AsString;
  FlatEditWk_No4.Text:=QueryCompetitorUser.Fields[10].AsString;
  FlatEditRegDate.Text:=QueryCompetitorUser.Fields[11].AsString;
  DBGrid3.Columns[0].Visible:=False;
end;

procedure TFrm_CompMana.PL_FillCompetitorUser5;
begin
  with QuerySID do
  begin
    if QuerySID.Active then
    begin
      FlatEditName6.Text:=FieldByName('NAME').AsString;
      FlatEditAddr6.Text:=FieldByName('ADDR').AsString;
      FlatEditPHONE6.Text:=FieldByName('PHONE').AsString;
      FlatEditMOBILPHONE6.Text:=FieldByName('MOBILPHONE').AsString;
      FlatEditEMAIL6.Text:=FieldByName('EMAIL').AsString;
      FlatEditJob6.Text:=FieldByName('JOB').AsString;
      FlatEditWk_No.Text:=FieldByName('WK_NO').AsString;
    end;
  end;  
end;

procedure TFrm_CompMana.PL_FillCompIdea;
begin
  {with QueryCompIdea do
  begin
    if not Active then
    begin
      //你这个语句有点乱了
      //ParamByName('PS_CityNo').AsString:=PS_CityNo;
     // ParamByName('PS_CountyNo').AsInteger:=JX;
      Open;
    end;
  end; }
  if PageControl1.ActivePageIndex=4 then
  begin
    if not QueryCompIdea.Active then
    begin
      QueryCompIdea.close;
      QueryCompIdea.open;
    end;
  end;
  DBGrid4.Columns[0].Visible:=False;
  if QueryCompIdea.Eof then
  begin
    Fun_ComponentStatus(Self,1,False); //清空输入框的值
    LabelIdeaCode.Caption:='';
    FlatEditName6.Text:='';
    FlatEditAddr6.Text:='';
    FlatEditPHONE6.Text:='';
    FlatEditMOBILPHONE6.Text:='';
    FlatEditEMAIL6.Text:='';
    FlatEditJob6.Text:='';
    FlatEditReg_Date.Text:='';
    FlatEditWk_No.Text:='';
    FlatMemoIdeaContent.Text:='';
    Exit;
  end;
  LabelIdeaCode.Caption:=QueryCompIdea.Fields[0].AsString;
  FlatEditReg_Date.Text:=QueryCompIdea.Fields[1].AsString;
  //FlatComboBoxModiContent.Text:=QueryCompIdea.Fields[3].AsString;
  FlatComboBoxModiContent.ItemIndex:=FlatComboBoxModiContent.Items.IndexOf(QueryCompIdea.Fields[3].AsString);
  //FlatComboBoxModiContentT.ItemIndex:=FlatComboBoxModiContent.ItemIndex;
  FlatMemoIdeaContent.Text:=QueryCompIdea.Fields[4].AsString;
  FlatEditSID6.Text:=QueryCompIdea.Fields[2].AsString;
  FlatEditName6.Text:=QueryCompIdea.Fields[5].AsString;
  FlatEditAddr6.Text:=QueryCompIdea.Fields[6].AsString;
  FlatEditPHONE6.Text:=QueryCompIdea.Fields[7].AsString;
  FlatEditEMAIL6.Text:=QueryCompIdea.Fields[8].AsString;
  FlatEditJob6.Text:=QueryCompIdea.Fields[9].AsString;
  FlatEditMOBILPHONE6.Text:=QueryCompIdea.Fields[10].AsString;
  //FlatEditWk_No.Text:=QueryCompetitorUser.Fields[11].AsString;
end;

procedure TFrm_CompMana.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TFrm_CompMana.FlatButtonCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_CompMana.FormShow(Sender: TObject);
begin
  PageControl1.ActivePageIndex :=0;
  PageControl1.OnChange(Nil);
  sEditFlag:='';
  {
  //add by h 2002.8.17
  if JBDM <= 1 then
    begin
      FlatComboBoxCounty.Enabled := True;
      FlatComboBoxCounty2.Enabled := True;
      FlatComboBoxCounty3.Enabled := True;
      FlatComboBoxCounty4.Enabled := True;
      FlatComboBoxCounty6.Enabled := True;
    end
  else
    begin
      FlatComboBoxCounty.Enabled := False;
      FlatComboBoxCounty2.Enabled := False;
      FlatComboBoxCounty3.Enabled := False;
      FlatComboBoxCounty4.Enabled := False;
      FlatComboBoxCounty6.Enabled := False;
    end;
  }  
end;

procedure TFrm_CompMana.FlatButtonSaveClick(Sender: TObject);
var
  sSQL,sCompCode,sPolicyCode,sMOTIFCODE,sUSERCODE,sIdeaCode:String;
begin
  case PageControl1.ActivePageIndex of
  0://对手资料
    begin
      if Trim(FlatEditCompName.Text)='' then
      begin
        Application.MessageBox('竞争对手名称不能为空！','提示',MB_OK+MB_ICONSTOP);
        FlatEditCompName.SetFocus;
        Exit;
      end;
      //新增
      if sEditFlag='I' then
      begin
        //if PL_Redup('T_F_Competitor','COMPNAME',Trim(FlatEditCompName.Text))=1 then
        if PL_Redup('T_F_Competitor','COMPNAME',Trim(FlatEditCompName.Text),Fun_GetCity(FlatComboBoxCity,'',1),Fun_GetCounty(FlatComboBoxCounty,'','',1))=1 then
        begin
          Application.MessageBox('竞争对手名称重复！','提示',MB_OK+MB_ICONINFORMATION);
          FlatEditCompName.SetFocus;
          Exit;
        end;
        with QuerySequ do
        begin
          if Active then Close;
          SQL.Clear;
          SQL.Add('Select SEQ_CompCode.Nextval From Dual');
          Open;
          sCompCode:=Fields[0].AsString;
        end;
        sSQL:='Insert Into T_F_Competitor(CompCode,CityNo,Off_No_Home,CompName,Remark) Values(';
        sSQL:=sSQL+sCompCode+',';
        sSQL:=sSQL+Fun_GetCity(FlatComboBoxCity,'',1)+',';
        sSQL:=sSQL+Fun_GetCounty(FlatComboBoxCounty,'','',1)+',''';
        sSQL:=sSQL+Trim(FlatEditCompName.Text)+''',''';
        sSQL:=sSQL+Trim(FlatEditDesc.Text)+''')';
      end;
      //修改
      if sEditFlag='U' then
      begin
        sCompCode:=LabelCompCode.Caption;
        sSQL:='Update T_F_Competitor Set CompCode='+sCompCode;
        if Trim(FlatComboBoxCity.Text)<>sCityTmp1 then
          sSQL:=sSQL+', CityNo='+Fun_GetCity(FlatComboBoxCity,'',1);
        if Trim(FlatComboBoxCounty.Text)<>sCountyTmp1 then
          sSQL:=sSQL+', Off_No_Home='+Fun_GetCounty(FlatComboBoxCounty,'','',1);
        if Trim(FlatEditCompName.Text)<>sCompNameTmp1 then
          sSQL:=sSQL+', CompName='''+Trim(FlatEditCompName.Text)+'''';
        if Trim(FlatEditDesc.Text)<>sDesc1 then
          sSQL:=sSQL+', Remark='''+Trim(FlatEditDesc.Text)+'''';
        sSQL:=sSQL+' Where CompCode='+sCompCode;
      end;
      PL_ExecSQL(sSQL);
      QueryCompetitor.Close;
      QueryCompetitor.Open;
      QueryCompetitor.Locate('CompCode',sCompCode,[]);
      DBGridCompetitor.Enabled:=True;
    end;
  1://对手营销策略
    begin
      if Trim(FlatEditCompName2.Text)='' then
      begin
        Application.MessageBox('竞争对手名称不能为空！','提示',MB_OK+MB_ICONSTOP);
        FlatEditCompName2.SetFocus;
        Exit;
      end;
      if Trim(FlatEditPolicy.Text)='' then
      begin
        Application.MessageBox('竞争对手策略标题不能为空！','提示',MB_OK+MB_ICONSTOP);
        Exit;
      end;
      //新增
      if sEditFlag='I' then
      begin
        with QuerySequ do
        begin
          if Active then Close;
          SQL.Clear;
          SQL.Add('Select SEQ_PolicyCode.Nextval From Dual');
          Open;
        end;
        sPolicyCode:=QuerySequ.Fields[0].AsString;
        sSQL:='Insert Into T_F_CompetitorPolicy(PolicyCode,CompCode,Policy,BeginDate,EndDate,CityNo,Off_No_Home,Remark) Values(';
        sSQL:=sSQL+sPolicyCode;
        sSQL:=sSQL+','+Trim(FlatEditCompName2T.Text);
        sSQL:=sSQL+','''+Trim(FlatEditPolicy.Text);
        sSQL:=sSQL+''',To_Date('''+Trim(FlatEditBeginDate.Text)+''',''YYYY-MM-DD'')';
        sSQL:=sSQL+',To_Date('''+Trim(FlatEditEndDate.Text)+''',''YYYY-MM-DD'')';
        sSQL:=sSQL+','+PS_CityNo;
        sSQL:=sSQL+','+IntToStr(JX);
        sSQL:=sSQL+','''+Trim(FlatMemoRemark.Text)+''')';
      end;
      //修改
      if sEditFlag='U' then
      begin
        sPolicyCode:=LabelPolicyCode.Caption;
        sSQL:='Update T_F_CompetitorPolicy Set PolicyCode='+sPolicyCode;
        if Trim(FlatEditCompName2.Text)<>sCompName2Tmp2 then
          sSQL:=sSQL+', CompCode='+Trim(FlatEditCompName2T.Text);
        if Trim(FlatEditPolicy.Text)<>sPolicyTmp2 then
          sSQL:=sSQL+', Policy='''+Trim(FlatEditPolicy.Text)+'''';
        if Trim(FlatEditBeginDate.Text)<>sBeginDateTmp2 then
          sSQL:=sSQL+', BeginDate=To_Date('''+Trim(FlatEditBeginDate.Text)+''',''YYYY-MM-DD'')';
        if Trim(FlatEditEndDate.Text)<>sEndDateTmp2 then
          sSQL:=sSQL+', EndDate=To_Date('''+Trim(FlatEditEndDate.Text)+''',''YYYY-MM-DD'')';
        if Trim(FlatMemoRemark.Text)<>sRemarkTmp2 then
          sSQL:=sSQL+', Remark='''+Trim(FlatMemoRemark.Text)+'''';
        sSQL:=sSQL+' Where PolicyCode='+LabelPolicyCode.Caption;
      end;
      PL_ExecSQL(sSQL);
      sEditFlag:='';
      QueryCompPolicy.Close;
      QueryCompPolicy.Open;
      QueryCompPolicy.Locate('POLICYCODE',sPolicyCode,[]);
      FlatButtonQuery2.Enabled:=True;
      DBGrid2.Enabled:=True;      
    end;
  2://用户意见主题
    begin
      if Trim(FlatEditModiContent.Text)='' then
      begin
        Application.MessageBox('用户意见主题内容不能为空！','提示',MB_OK+MB_ICONSTOP);
        FlatEditModiContent.SetFocus;
        Exit;
      end;
      //新增
      if sEditFlag='I' then
      begin
        if PL_Redup('T_F_IdeaMotif','MOTIFCONTENT',Trim(FlatEditModiContent.Text),Fun_GetCity(FlatComboBoxCity3,'',1),Fun_GetCounty(FlatComboBoxCounty3,'','',1))=1 then
        begin
          Application.MessageBox('用户意见主题内容重复！','提示',MB_OK+MB_ICONINFORMATION);
          FlatEditModiContent.SetFocus;
          Exit;
        end;
        with QuerySequ do
        begin
          if Active then Close;
          SQL.Clear;
          SQL.Add('Select SEQ_IdeaModif.Nextval From Dual');
          Open;
          sMOTIFCODE:=Fields[0].AsString;
        end;
        sSQL:='Insert Into T_F_IdeaMotif(MOTIFCODE,CITYNO,OFF_NO_HOME,MOTIFCONTENT,REMARK) Values(';
        sSQL:=sSQL+sMOTIFCODE+',';
        sSQL:=sSQL+Fun_GetCity(FlatComboBoxCity3,'',1)+',';
        sSQL:=sSQL+Fun_GetCounty(FlatComboBoxCounty3,'','',1)+',''';
        sSQL:=sSQL+Trim(FlatEditModiContent.Text)+''',''';
        sSQL:=sSQL+Trim(FlatEditRemark3.Text)+''')';
      end;
      //修改
      if sEditFlag='U' then
      begin
        sMOTIFCODE:=LabelModifCode.Caption;
        sSQL:='Update T_F_IdeaMotif Set MOTIFCODE='+sMOTIFCODE;
        if Trim(FlatComboBoxCity3.Text)<>sCityTmp3 then
          sSQL:=sSQL+', CityNo='+Fun_GetCity(FlatComboBoxCity3,'',1);
        if Trim(FlatComboBoxCounty3.Text)<>sCountyTmp3 then
          sSQL:=sSQL+', Off_No_Home='+Fun_GetCounty(FlatComboBoxCounty3,'','',1);
        if Trim(FlatEditModiContent.Text)<>sMODICONTENT3 then
          sSQL:=sSQL+', MOTIFCONTENT='''+Trim(FlatEditModiContent.Text)+'''';
        if Trim(FlatEditRemark3.Text)<>sREMARK3 then
          sSQL:=sSQL+', Remark='''+Trim(FlatEditRemark3.Text)+'''';
        sSQL:=sSQL+' Where MOTIFCODE='+LabelModifCode.Caption;
      end;
      PL_ExecSQL(sSQL);
      //PL_FillIdeaModif;
      QueryIdeaModif.Close;
      QueryIdeaModif.Open;
      QueryIdeaModif.Locate('MOTIFCODE',sMOTIFCODE,[]);
      DBGrid1.Enabled:=True;
    end;
  3://对手用户资料
    begin
      if Trim(FlatEditSID.Text)='' then
      begin
        Application.MessageBox('竞争对手用户号码不能为空！','提示',MB_OK+MB_ICONSTOP);
        FlatEditSID.SetFocus;
        Exit;
      end;
      if Trim(FlatEditCompName4.Text)='' then
      begin
        Application.MessageBox('竞争对手名称不能为空！','提示',MB_OK+MB_ICONSTOP);
        FlatEditCompName4.SetFocus;
        Exit;
      end;
      //新增
      if sEditFlag='I' then
      begin
        if PL_Redup('T_F_CompetitorUser','SID',Trim(FlatEditSID.Text),Fun_GetCity(FlatComboBoxCity4,'',1),Fun_GetCounty(FlatComboBoxCounty4,'','',1))=1 then
        begin
          Application.MessageBox('用户号码重复！','提示',MB_OK+MB_ICONINFORMATION);
          FlatEditSID.SetFocus;
          Exit;
        end;
        with QuerySequ do
        begin
          if Active then Close;
          SQL.Clear;
          SQL.Add('Select seq_competitoruser.Nextval From Dual');
          Open;
          sUSERCODE:=Fields[0].AsString;
        end;
        sSQL:='Insert Into T_F_CompetitorUser(USERCODE,COMPCODE,SID,NAME,ADDR,PHONE,EMAIL,JOB,MOBILPHONE,CityNo,Off_No_Home,WK_NO,REG_DATE,Remark) Values(';
        sSQL:=sSQL+sUSERCODE;
        sSQL:=sSQL+','+Trim(FlatEditCompName4T.Text);
        sSQL:=sSQL+','''+Trim(FlatEditSID.Text);
        sSQL:=sSQL+''','''+Trim(FlatEditName.Text);
        sSQL:=sSQL+''','''+Trim(FlatEditAddr.Text);
        sSQL:=sSQL+''','''+Trim(FlatEditPHONE.Text);
        sSQL:=sSQL+''','''+Trim(FlatEditEMAIL.Text);
        sSQL:=sSQL+''','''+Trim(FlatEditJob.Text);
        sSQL:=sSQL+''','''+Trim(FlatEditMOBILPHONE.Text);
        sSQL:=sSQL+''','+Fun_GetCity(FlatComboBoxCity4,'',1)+',';
        sSQL:=sSQL+Fun_GetCounty(FlatComboBoxCounty4,'','',1);
        sSQL:=sSQL+','''+Trim(FlatEditWk_No4.Text);
        sSQL:=sSQL+''',To_Date('''+Trim(FlatEditRegDate.Text)+''',''YYYY-MM-DD'')';
        sSQL:=sSQL+','''+Trim(FlatEditREMARK.Text)+''')';
      end;
      //修改
      if sEditFlag='U' then
      begin
        sUSERCODE:=LabelUSERCODE.Caption;
        sSQL:='Update T_F_CompetitorUser Set UserCode='+LabelUSERCODE.Caption;
        if Trim(FlatEditCompName4.Text)<>sCompNameTmp4 then
          sSQL:=sSQL+', CompCode='+Trim(FlatEditCompName4T.Text);
        if Trim(FlatEditSID.Text)<>sSIDTmp4 then
          sSQL:=sSQL+', SID='''+Trim(FlatEditSID.Text)+'''';
        if Trim(FlatEditName.Text)<>sNameTmp4 then