?? unit_compmana.pas
字號(hào):
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://對(duì)手用戶意見
begin
if Trim(FlatComboBoxModiContent.Text)='' then
begin
Application.MessageBox('競(jìng)爭(zhēng)對(duì)手用戶意見主題為空！','提示',MB_OK+MB_ICONSTOP);
FlatComboBoxModiContent.SetFocus;
Exit;
end;
if Trim(FlatEditSID6.Text)='' then
begin
Application.MessageBox('用戶號(hào)碼不能為空！','提示',MB_OK+MB_ICONSTOP);
FlatEditSID6.SetFocus;
Exit;
end;
//**************要判斷用戶號(hào)碼是否存在，不存在不讓其保存***************
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('用戶號(hào)碼不存在！','提示',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
//應(yīng)該放在后面，無(wú)記錄，不然按了修改后切換頁(yè)面時(shí)有問(wèn)題
//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
//應(yīng)該要有個(gè)默認(rèn)值
//Fun_GetCity(FlatComboBoxCity,'',0);//初始化所管轄的地市
{ if JBDM<=2 then//有全部權(quán)限
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;//刷新競(jìng)爭(zhēng)對(duì)手編輯框
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;
//刷新競(jìng)爭(zhēng)對(duì)手營(yíng)銷策略編輯框
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;
//刷新競(jìng)爭(zhēng)對(duì)手用戶資料編輯框
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;
//刷新競(jìng)爭(zhēng)對(duì)手用戶意見編輯框
PL_FillCompIdea;
end;
end;
end;
procedure TFrm_CompMana.FlatButtonCancelClick(Sender: TObject);
begin
case PageControl1.ActivePageIndex of
0:
begin
DBGridCompetitor.Enabled:=True;
//刷新競(jìng)爭(zhēng)對(duì)手編輯框
PL_FillCompetitor;
end;
1:
begin
FlatButtonQuery2.Enabled:=True;
DBGrid2.Enabled:=True;
//刷新
PL_FillCompPolicy;
end;
2:
begin
DBGrid1.Enabled:=True;
//刷新
PL_FillIdeaModif;
end;
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -