?? unit_compmana.pas

?? 中國移動大客戶管理系統(tǒng)
?? PAS
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34
  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('是否刪除當(dāng)前記錄？','提示',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('是否刪除當(dāng)前記錄？','提示',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('是否刪除當(dāng)前記錄？','提示',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('是否刪除當(dāng)前記錄？','提示',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('是否刪除當(dāng)前記錄？','提示',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 營銷策略標(biāo)題,P.Begindate As 開始時間,P.EndDate As 結(jié)束時間,P.Remark As 經(jīng)營策略內(nèi)容';
  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 聯(lián)系地址,U.Phone As 聯(lián)系電話,';
  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 建議內(nèi)容,U.Name As 用戶姓名,U.Addr As 聯(lián)系地址,U.Phone As 聯(lián)系電話, ';
  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 聯(lián)系地址,U.Phone As 聯(lián)系電話,';
  sSQL:=sSQL+' U.Email As 電子郵件,U.Job As 工作單位,U.MobilPhone As 移動手機號碼,I.MotifContent As 意見主題,';
  sSQL:=sSQL+' C.IdeaContent As 建議內(nèi)容,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;
    //權(quán)限
    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('正在編輯數(shù)據(jù)，請保存或取消后切換。','提示',MB_OK+MB_ICONINFORMATION);
    AllowChange:=False;
  end;
end;

end.
上一頁 1 2 34
?? 文件大小 5825 K
?? 上傳用戶 lyyfengyutongzh
?? 所屬分類企業(yè)管理
??? 相關(guān)標(biāo)簽

#中國移動 #管理系統(tǒng)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit_compmana.pas

?? 快捷鍵說明
