unit_compmana.pas

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

  3:
    begin
      FlatButton1.Enabled:=True;
      DBGrid3.Enabled:=True;
      //刷新
      PL_FillCompetitorUser;
    end;
  4:
    begin
      DBGrid4.Enabled:=True;
      FlatButton2.Enabled:=True;
      //刷新
      PL_FillCompIdea;
    end;
  end;
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(self,0,False); // 使输入框不可编辑
  sEditFlag:='';
end;

procedure TFrm_CompMana.DataSourceCompetitorDataChange(Sender: TObject;
  Field: TField);
begin
  //刷新竞争对手编辑框
  PL_FillCompetitor;
end;

procedure TFrm_CompMana.FlatButtonDeleteClick(Sender: TObject);
var
  sSQL,sCode:String;
begin
  case PageControl1.ActivePageIndex of
  0:
    begin
      if Trim(LabelCompCode.Caption)='' then Exit;
      sSQL:='Delete From T_F_Competitor Where CompCode='+Trim(LabelCompCode.Caption);
      if Application.MessageBox('是否删除当前记录？','提示',MB_YESNO+MB_ICONQUESTION)=ID_NO then Exit;
      PL_ExecSQL(sSQL);
      QueryCompetitor.Next;
      sCode:=QueryCompetitor.Fields[0].AsString;
      QueryCompetitor.Close;
      QueryCompetitor.Open;
      if sCode<>'' then
        QueryCompetitor.Locate('CompCode',sCode,[]);
    end;
  1:
    begin
      if Trim(LabelPolicyCode.Caption)='' then Exit;
      sSQL:='Delete From T_F_CompetitorPolicy Where PolicyCode='+Trim(LabelPolicyCode.Caption);
      if Application.MessageBox('是否删除当前记录？','提示',MB_YESNO+MB_ICONQUESTION)=ID_NO then Exit;
      PL_ExecSQL(sSQL);
      QueryCompPolicy.Next;
      sCode:=QueryCompPolicy.Fields[0].AsString;
      QueryCompPolicy.Close;
      QueryCompPolicy.Open;
      if sCode<>'' then
        QueryCompPolicy.Locate('POLICYCODE',sCode,[]);
    end;
  2:
    begin
      if Trim(LabelModifCode.Caption)='' then Exit;
      sSQL:='Delete From T_F_IdeaMotif Where MotifCode='+Trim(LabelModifCode.Caption);
      if Application.MessageBox('是否删除当前记录？','提示',MB_YESNO+MB_ICONQUESTION)=ID_NO then Exit;
      PL_ExecSQL(sSQL);
      QueryIdeaModif.Next;
      sCode:=QueryIdeaModif.Fields[0].AsString;
      QueryIdeaModif.Close;
      QueryIdeaModif.Open;
      if sCode<>'' then
        QueryIdeaModif.Locate('MOTIFCODE',sCode,[]);
    end;
  3:
    begin
      if Trim(LabelUSERCODE.Caption)='' then Exit;
      sSQL:='Delete From T_F_CompetitorUser Where UserCode='+Trim(LabelUSERCODE.Caption);
      if Application.MessageBox('是否删除当前记录？','提示',MB_YESNO+MB_ICONQUESTION)=ID_NO then Exit;
      PL_ExecSQL(sSQL);
      QueryCompetitorUser.Next;
      sCode:=QueryCompetitorUser.Fields[0].AsString;
      QueryCompetitorUser.Close;
      QueryCompetitorUser.Open;
      if sCode<>'' then
        QueryCompetitorUser.Locate('USERCODE',sCode,[]);
    end;
  4:
    begin
      if Trim(LabelIdeaCode.Caption)='' then Exit;
      sSQL:='Delete From T_F_CompIdea Where IdeaCode='+Trim(LabelIdeaCode.Caption);
      if Application.MessageBox('是否删除当前记录？','提示',MB_YESNO+MB_ICONQUESTION)=ID_NO then Exit;
      PL_ExecSQL(sSQL);
      QueryCompIdea.Next;
      sCode:=QueryCompIdea.Fields[0].AsString;
      QueryCompIdea.Close;
      QueryCompIdea.Open;
      if sCode<>'' then
        QueryCompIdea.Locate('IdeaCode',sCode,[]);
    end;
  end;
end;

procedure TFrm_CompMana.FlatEditCompName2Change(Sender: TObject);
begin
  FlatEditCompName2T.ItemIndex:=FlatEditCompName2.ItemIndex;
end;

procedure TFrm_CompMana.FlatEditBeginDateExit(Sender: TObject);
begin
  if Trim(FlatEditBeginDate.Text)<>'' then
  begin
    try
      StrToDate(Trim(FlatEditBeginDate.Text));
    except
      Application.MessageBox('日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditBeginDate.SelectAll;
      FlatEditBeginDate.SetFocus;
      Exit;
    end;
  end;
end;

procedure TFrm_CompMana.FlatEditEndDateExit(Sender: TObject);
begin
  if Trim(FlatEditEndDate.Text)<>'' then
  begin
    try
      StrToDate(Trim(FlatEditEndDate.Text));
    except
      Application.MessageBox('日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditEndDate.SelectAll;
      FlatEditEndDate.SetFocus;
      Exit;
    end;
  end;
end;

procedure TFrm_CompMana.DataSourceCompPolicyDataChange(Sender: TObject;
  Field: TField);
begin
  PL_FillCompPolicy;
end;

procedure TFrm_CompMana.FlatButtonQuery2Click(Sender: TObject);
var
  sSQL:String;
begin
  sSQL:='Select P.PolicyCode As POLICYCODE,C.CompName As 对手名称,P.Policy As 营销策略标题,P.Begindate As 开始时间,P.EndDate As 结束时间,P.Remark As 经营策略内容';
  sSQL:=sSQL+' From T_F_CompetitorPolicy P,T_F_Competitor C';
  sSQL:=sSQL+' Where P.CompCode=C.CompCode And P.CityNo=:PS_CityNo And P.Off_No_Home=:PS_CountyNo';
  if Trim(FlatEditCompName2Q.Text)<>'' then
    sSQL:=sSQL+' And P.CompCode='+Trim(FlatEditCompName2QT.Text);
  if Trim(FlatEditPolicyQ.Text)<>'' then
    sSQL:=sSQL+' And Policy Like ''%'+Trim(FlatEditPolicyQ.Text)+'%''';
  if Trim(FlatEditBeginDateQ.Text)<>'' then
    sSQL:=sSQL+' And BeginDate>=To_Date('''+Trim(FlatEditBeginDateQ.Text)+''',''YYYY-MM-DD'')';
  if Trim(FlatEditEndDateQ.Text)<>'' then
    sSQL:=sSQL+' And BeginDate<=To_Date('''+Trim(FlatEditEndDateQ.Text)+''',''YYYY-MM-DD'')';
  with QueryCompPolicy do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add(sSQL);
    ParamByName('PS_CityNo').AsString:=PS_CityNo;
    ParamByName('PS_CountyNo').AsInteger:=JX;
    Open;
  end;
end;

procedure TFrm_CompMana.FlatEditCompName2QChange(Sender: TObject);
begin
  FlatEditCompName2QT.ItemIndex:=FlatEditCompName2Q.ItemIndex;
end;

procedure TFrm_CompMana.FlatEditBeginDateQExit(Sender: TObject);
begin
  if Trim(FlatEditBeginDateQ.Text)<>'' then
  begin
    try
      StrToDate(Trim(FlatEditBeginDateQ.Text));
    except
      Application.MessageBox('日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditBeginDateQ.SelectAll;
      FlatEditBeginDateQ.SetFocus;
      Exit;
    end;
  end;
end;

procedure TFrm_CompMana.FlatEditEndDateQExit(Sender: TObject);
begin
  if Trim(FlatEditEndDateQ.Text)<>'' then
  begin
    try
      StrToDate(Trim(FlatEditEndDateQ.Text));
    except
      Application.MessageBox('日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditEndDateQ.SelectAll;
      FlatEditEndDateQ.SetFocus;
      Exit;
    end;
  end;
end;

procedure TFrm_CompMana.DataSourceIdeaModifDataChange(Sender: TObject;
  Field: TField);
begin
  PL_FillIdeaModif;
end;

procedure TFrm_CompMana.FlatEditCompName4Change(Sender: TObject);
begin
  FlatEditCompName4T.ItemIndex:=FlatEditCompName4.ItemIndex;
end;

procedure TFrm_CompMana.DataSourceCompetitorUserDataChange(Sender: TObject;
  Field: TField);
begin
  PL_FillCompetitorUser;
end;

procedure TFrm_CompMana.FlatButton1Click(Sender: TObject);
var
  sSQL:String;
begin
  sSQL:='Select U.USERCODE As USERCODE,C.CompName As 对手名称,U.SID';
  sSQL:=sSQL+' As 电话号码,U.Name As 用户姓名,U.Addr As 联系地址,U.Phone As 联系电话,';
  sSQL:=sSQL+' U.Email As 电子邮件,U.Job As 工作单位,U.mobilPhone As 移动手机号码,U.Remark As 备注,U.WK_NO As 工号,U.Reg_Date As 登记时间';
  sSQL:=sSQL+' From T_F_CompetitorUser U,T_F_Competitor C';
  sSQL:=sSQL+' Where U.CompCode=C.CompCode And U.CityNo=:PS_CityNo And U.Off_No_Home=:PS_CountyNo';
  if Trim(FlatEditWk_No4Q.Text)<>'' then
    sSQL:=sSQL+' And U.WK_NO='+Trim(FlatEditWk_No4Q.Text);
  if Trim(FlatEditCompName4QT.Text)<>'' then
    sSQL:=sSQL+' And U.COMPCODE='+Trim(FlatEditCompName4QT.Text);
  if Trim(FlatEditReg_DateBQ.Text)<>'' then
    sSQL:=sSQL+' And U.Reg_Date>=To_Date('''+Trim(FlatEditReg_DateBQ.Text)+''',''YYYY-MM-DD'')';
  if Trim(FlatEditReg_DateEQ.Text)<>'' then
    sSQL:=sSQL+' And U.Reg_Date<=To_Date('''+Trim(FlatEditReg_DateEQ.Text)+''',''YYYY-MM-DD'')';
  if Trim(FlatEditSIDQ.Text)<>'' then
    sSQL:=sSQL+' And U.SID='+Trim(FlatEditSIDQ.Text);
  if Trim(FlatEditNameQ.Text)<>'' then
    sSQL:=sSQL+' And U.Name Like ''%'+Trim(FlatEditNameQ.Text)+'%''';
  with QueryCompetitorUser do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add(sSQL);
    ParamByName('PS_CityNo').AsString:=PS_CityNo;
    ParamByName('PS_CountyNo').AsInteger:=JX;
   Open;
  end;
end;

procedure TFrm_CompMana.FlatEditCompName4QChange(Sender: TObject);
begin
  FlatEditCompName4QT.ItemIndex:=FlatEditCompName4Q.ItemIndex;
end;

procedure TFrm_CompMana.FlatComboBoxModiContentChange(Sender: TObject);
begin
  FlatComboBoxModiContentT.ItemIndex:=FlatComboBoxModiContent.ItemIndex;
end;

procedure TFrm_CompMana.DataSourceCompIdeaDataChange(Sender: TObject;
  Field: TField);
begin
  PL_FillCompIdea;
end;

procedure TFrm_CompMana.FlatButton2Click(Sender: TObject);
var
  sSQL:String;
begin
  sSQL:='Select C.IdeaCode As IDEACODE,C.Reg_Date As 登记时间,U.SID As 用户号码, ';
  sSQL:=sSQL+'I.MotifContent As 意见主题,C.IdeaContent As 建议内容,U.Name As 用户姓名,U.Addr As 联系地址,U.Phone As 联系电话, ';
  sSQL:=sSQL+'U.Email As 电子邮件,U.Job As 工作单位,U.MobilPhone As 移动手机号码,U.Wk_No As 工号 ';
  sSQL:=sSQL+'From T_F_CompetitorUser U,T_F_CompIdea C,T_F_IdeaMotif I ';
  sSQL:=sSQL+'Where C.SID=U.SID And C.MotifCode=I.MotifCode And U.CityNo=:PS_CityNo And U.Off_No_Home=:PS_CountyNo ';
{
  sSQL:='Select C.IdeaCode As IdeaCode,C.Reg_Date As 登记时间,U.SID As 用户号码,';
  sSQL:=sSQL+' U.Name As 用户姓名,U.Addr As 联系地址,U.Phone As 联系电话,';
  sSQL:=sSQL+' U.Email As 电子邮件,U.Job As 工作单位,U.MobilPhone As 移动手机号码,I.MotifContent As 意见主题,';
  sSQL:=sSQL+' C.IdeaContent As 建议内容,U.Wk_No As 工号';
  sSQL:=sSQL+' From T_F_CompetitorUser U,T_F_CompIdea C,T_F_IdeaMotif I ';
  sSQL:=sSQL+' Where C.SID=U.SID And C.MotifCode=I.MotifCode And U.CityNo=:PS_CityNo And U.Off_No_Home=:PS_CountyNo';
}
  if Trim(FlatEditGH5Q.Text)<>'' then
    sSQL:=sSQL+' And U.Wk_No='''+Trim(FlatEditGH5Q.Text)+'''';
  if Trim(FlatComboBoxModiContentQ5.Text)<>'' then
    sSQL:=sSQL+' And C.MotifCode='+Trim(FlatComboBoxModiContentQ5T.Text);
  if Trim(FlatEditBeginDateQ5.Text)<>'' then
    sSQL:=sSQL+' And C.Reg_Date>=To_Date('''+Trim(FlatEditBeginDateQ5.Text)+''',''YYYY-MM-DD'')';
  if Trim(FlatEditEndDateQ5.Text)<>'' then
    sSQL:=sSQL+' And C.Reg_Date<=To_Date('''+Trim(FlatEditEndDateQ5.Text)+''',''YYYY-MM-DD'')';
  if Trim(FlatEditSID5.Text)<>'' then
    sSQL:=sSQL+' And C.SID='''+Trim(FlatEditSID5.Text)+'''';
  if Trim(FlatEditNameQ5.Text)<>'' then
    sSQL:=sSQL+' And U.Name Like ''%'+Trim(FlatEditNameQ5.Text)+'%''';
  with QueryCompIdea do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add(sSQL);
    ParamByName('PS_CityNo').AsString:=PS_CityNo;
    ParamByName('PS_CountyNo').AsInteger:=JX;
    //权限
    Open;
  end;
end;

procedure TFrm_CompMana.FlatComboBoxModiContentQ5Change(Sender: TObject);
begin
  FlatComboBoxModiContentQ5T.ItemIndex:=FlatComboBoxModiContentQ5.ItemIndex;
end;

procedure TFrm_CompMana.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:SelectNext(ActiveControl,true,true);
  end;
end;

procedure TFrm_CompMana.FlatEditRegDateExit(Sender: TObject);
begin
  if Trim(FlatEditRegDate.Text)<>'' then
  begin
    try
      StrToDate(Trim(FlatEditRegDate.Text));
    except
      Application.MessageBox('日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditRegDate.SelectAll;
      FlatEditRegDate.SetFocus;
      Exit;
    end;
  end;
end;

procedure TFrm_CompMana.FlatEditReg_DateExit(Sender: TObject);
begin
  if Trim(FlatEditReg_Date.Text)<>'' then
  begin
    try
      StrToDate(Trim(FlatEditReg_Date.Text));
    except
      Application.MessageBox('日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditReg_Date.SelectAll;
      FlatEditReg_Date.SetFocus;
      Exit;
    end;
  end;
end;

procedure TFrm_CompMana.FlatEditSID6KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
  begin
    with QuerySID do
    begin
      if Active then Close;
      SQL.Clear;
      SQL.Add('Select * From T_F_CompetitorUser Where SID='''+Trim(FlatEditSID6.Text)+'''');
      Open;
      if FieldByName('SID').AsString='' then
      begin
        Application.MessageBox('对不起，无此用户号码。','',MB_OK+MB_ICONINFORMATION);
        FlatEditSID6.SetFocus;
        //PL_FillCompIdea;
        Exit;
      end;
      PL_FillCompetitorUser5;
      FlatButtonSave.Enabled:=True;
    end;
  end;
end;

procedure TFrm_CompMana.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if sEditFlag<>'' then
  begin
    Application.MessageBox('正在编辑数据，请保存或取消后切换。','提示',MB_OK+MB_ICONINFORMATION);
    AllowChange:=False;
  end;
end;

end.