📄 unit_archivesgroupinfo.pas
字号:
Application.MessageBox('请选择将要修改的集团客户联络员资料！','提示',MB_ICONINFORMATION);
Exit;
End;
Fun_ButtonStatus(Self,True); //初始化按扭状态
Fun_ComponentStatus(Self,0,True,Panel8); //激活集团信息控件
FlatEdit_INFONAME.SetFocus;
End;
3:
Begin
If QueryGroupMemoDay.IsEmpty Then
Begin
Application.MessageBox('请选择将要修改的集团客户纪念日资料！','提示',MB_ICONINFORMATION);
Exit;
End;
Fun_ButtonStatus(Self,True); //初始化按扭状态
Fun_ComponentStatus(Self,0,True,Panel10); //激活集团信息控件
FlatEdit_GMEMO_NAME.SetFocus;
End;
4:
Begin
End;
End;
end;
procedure TForm_ArchivesGroupInfo.Btn_SaveClick(Sender: TObject);
Var
SQL:String;
DateString:String;
EndDateString:String;
SendDateString:String;
SendFlag:String;
vVPNBegin,vVPNEnd,vCustBegin,vCustEnd:String;
Place:TBookmark;
begin
Case PageControl1.ActivePageIndex Of
0:
Begin
If Trim(FlatEdit_JTYHMC.text)='' then
Begin
Application.MessageBox('请填写集团客户名称！','提示',MB_ICONINFORMATION);
FlatEdit_JTYHMC.SetFocus;
Exit;
End;
If FlatComboBox_CityNo.ItemIndex<=0 then
Begin
Application.MessageBox('请选择集团客户所属地市！','提示',MB_ICONINFORMATION);
FlatComboBox_CityNo.SetFocus;
Exit;
End;
If FlatComboBox_Off_No_Home.ItemIndex=-1 then
Begin
Application.MessageBox('请选择集团客户所属局向！','提示',MB_ICONINFORMATION);
FlatComboBox_Off_No_Home.SetFocus;
Exit;
End;
If FlatComboBox_JTLB.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择集团类型！','提示',MB_ICONINFORMATION);
FlatComboBox_JTLB.SetFocus;
Exit;
End;
If FlatComboBox_HYDM.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择集团所属行业！','提示',MB_ICONINFORMATION);
FlatComboBox_HYDM.SetFocus;
Exit;
End;
If FlatComboBox_GroupFlag.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择集团属性！','提示',MB_ICONINFORMATION);
FlatComboBox_GroupFlag.SetFocus;
Exit;
End;
If DateTimePicker_VPNBEGINDATA.Checked Then
vVPNBegin:='To_Date('''+FormatDateTime('YYYY-MM-DD',DateTimePicker_VPNBEGINDATA.DateTime)+''',''YYYY-MM-DD'')'
Else
vVPNBegin:=''''+'''';
If DateTimePicker_VPNENDDATA.Checked Then
vVPNEnd:='To_Date('''+FormatDateTime('YYYY-MM-DD',DateTimePicker_VPNENDDATA.DateTime)+''',''YYYY-MM-DD'')'
Else
vVPNEnd:=''''+'''';
vCustBegin:='To_Date('''+FormatDateTime('YYYY-MM-DD',DateTimePicker_Be_G_Date.DateTime)+''',''YYYY-MM-DD'')';
If DateTimePicker_En_G_Date.Checked Then
vCustEnd:='To_Date('''+FormatDateTime('YYYY-MM-DD',DateTimePicker_En_G_Date.DateTime)+''',''YYYY-MM-DD'')'
Else
vCustEnd:=''''+'''';
If iSign=1 Then
Begin
SQL:='Insert Into T_F_GroupInfo(JTYHDM,JTYHMC,SID,GH,JTLB,HYDM,LXR,JTQTJJ,CITYNO,OFF_NO_HOME,ADDR,BGN_YH,END_YH,YHBL,YHGH,'+
'VIP_NO,PASSWORD,VPNJG,GROUPFLAG,JTBZ,FAX,POSTCODE,VPNBEGINDATA,VPNENDDATA,BE_G_DATE,EN_G_DATE) Values('+
Trim(FlatEdit_jtyhdm.Text)+','''+(FlatEdit_JTYHMC.Text)+''','''+Trim(FlatEdit_sid.Text)+''','''+Trim(FlatEdit_GH.Text)+''','+
Fun_GetCodeName(FlatComboBox_JTLB)+','+Fun_GetCodeName(FlatComboBox_HYDM)+','''+Trim(FlatEdit_LXR.Text)+''','''+
Trim(FlatMemo_JTQTJJ.Text)+''','''+Fun_GetCity(FlatComboBox_CityNo,'',1)+''','+Fun_GetCounty(FlatComboBox_Off_No_Home,'','',1)+','''+
Trim(FlatEdit_ADDR.Text)+''','+IntToStr(FlatSpinEditInteger_BGN_YH.Value) +','+IntToStr(FlatSpinEditInteger_END_YH.Value)+','+
IntToStr(FlatSpinEditInteger_YHBL.Value)+','''+Trim(FlatEdit_YHGH.Text)+''','''+Trim(FlatEdit_VIP_NO.Text)+''','''+Trim(FlatEdit_PASSWORD.Text)+''','+
IntToStr(FlatSpinEditInteger_VPNJG.Value)+','+Fun_GetCodeName(FlatComboBox_GroupFlag)+','+IntToStr(FlatComboBox_JTBZ.ItemIndex)+','''+
Trim(FlatEdit_Fax.Text)+''','''+Trim(FlatEditPostCode.Text)+''','+vVPNBegin+','+vVPNEnd+','+vCustBegin+','+vCustEnd+')';
End;
If iSign=2 Then
Begin
SQL:='Update T_F_GroupInfo Set JTYHMC='''+Trim(FlatEdit_JTYHMC.Text)+''','+
'SID='''+Trim(FlatEdit_sid.Text)+''','+
'GH='''+Trim(FlatEdit_GH.Text)+''','+
'JTLB='+Fun_GetCodeName(FlatComboBox_JTLB)+','+
'HYDM='+Fun_GetCodeName(FlatComboBox_HYDM)+','+
'LXR='''+Trim(FlatEdit_LXR.Text)+''','+
'JTQTJJ='''+Trim(FlatMemo_JTQTJJ.Text)+''','+
'CITYNO='''+Fun_GetCity(FlatComboBox_CityNo,'',1)+''','+
'OFF_NO_HOME='+Fun_GetCounty(FlatComboBox_Off_No_Home,'','',1)+','+
'ADDR='''+Trim(FlatEdit_ADDR.Text)+''','+
'BGN_YH='+IntToStr(FlatSpinEditInteger_BGN_YH.Value)+','+
'END_YH='+IntToStr(FlatSpinEditInteger_END_YH.Value)+','+
'YHBL='+IntToStr(FlatSpinEditInteger_YHBL.Value)+','+
'YHGH='''+Trim(FlatEdit_YHGH.Text)+''','+
'VIP_NO='''+Trim(FlatEdit_VIP_NO.Text)+''','+
'PASSWORD='''+Trim(FlatEdit_PASSWORD.Text)+''','+
'VPNJG='+IntToStr(FlatSpinEditInteger_VPNJG.Value)+','+
'GROUPFLAG='+Fun_GetCodeName(FlatComboBox_GroupFlag)+','+
'JTBZ='+IntToStr(FlatComboBox_JTBZ.ItemIndex)+','+
'FAX='''+Trim(FlatEdit_Fax.Text)+''','+
'POSTCODE='''+Trim(FlatEditPostCode.Text)+''','+
'VPNBEGINDATA='+vVPNBegin+','+
'VPNENDDATA='+vVPNEnd+','+
'BE_G_DATE='+vCustBegin+','+
'EN_G_DATE='+vCustEnd+
' Where JTYHDM='+QueryJtyh.FieldByName('JTYHDM').AsString;
End;
AnalyzeSQL(SQL);
If Not (QueryJtyh.Text='') Then
Begin
Place:=QueryJtyh.GetBookmark;
Queryjtyh.Close;
Queryjtyh.Open;
QueryJtyh.GotoBookmark(Place);
End;
Fun_ComponentStatus(Self,0,False,Panel3);
End;
1:
Begin
End;
2:
Begin
If Trim(FlatEdit_INFONAME.Text)='' Then
Begin
Application.MessageBox('请填写联络员姓名！','提示',MB_ICONINFORMATION);
FlatEdit_INFONAME.SetFocus;
Exit;
End;
If FlatComboBox_INFOGENDER.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择联络员性别！','提示',MB_ICONINFORMATION);
FlatEdit_INFONAME.SetFocus;
Exit;
End;
If FlatComboBox_EDUCODE.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择联络员学历！','提示',MB_ICONINFORMATION);
FlatComboBox_EDUCODE.SetFocus;
Exit;
End;
If FlatEdit_INFOBIRTH.Text='' Then
DateString:=''''+''''
Else
DateString:='To_Date('''+FlatEdit_INFOBIRTH.Text+''',''YYYY-MM-DD'')';
If iSign=1 Then
Begin
SQL:='Insert Into T_F_CustInfoMember(INFOCODE,JTYHDM,GH,INFOSID,INFONAME,INFOGENDER,PHONE,EDUCODE,INFOJOB,INFOADDR,INFOPOSTCODE,EMAIL,IDCARD,INFOBIRTH,CityNo,Off_NO_Home) Values(seq_custinfomember_id.nextval,'+
QueryJtyh.FieldByName('JTYHDM').AsString+','''+QueryJtyh.FieldByName('GH').AsString+''','''+Trim(FlatEdit_INFOSID.Text)+''','''+
Trim(FlatEdit_INFONAME.Text)+''','''+Fun_GetCodeName(FlatComboBox_INFOGENDER)+''','''+Trim(FlatEdit_PHONE.Text)+''','''+
Fun_GetCodeName(FlatComboBox_EDUCODE)+''','''+Trim(FlatEdit_INFOJOB.Text)+''','''+Trim(FlatEdit_INFOADDR.Text)+''','''+
Trim(FlatEdit_INFOPOSTCODE.Text)+''','''+Trim(FlatEdit_EMAIL.Text)+''','''+Trim(FlatEdit_IDCARD.Text)+''','+DateString+','''+
QueryJtyh.FieldByName('CityNo').AsString+''','+QueryJtyh.FieldByName('Off_No_Home').AsString+')';
End;
If iSign=2 Then
Begin
SQL:='Update T_F_CustInfoMember Set INFOSID='''+Trim(FlatEdit_INFOSID.Text)+''','+
'INFONAME='''+Trim(FlatEdit_INFONAME.Text)+''','+
'INFOGENDER='''+Fun_GetCodeName(FlatComboBox_INFOGENDER)+''','+
'PHONE='''+Trim(FlatEdit_PHONE.Text)+''','+
'EDUCODE='''+Fun_GetCodeName(FlatComboBox_EDUCODE)+''','+
'INFOJOB='''+Trim(FlatEdit_INFOJOB.Text)+''','+
'INFOADDR='''+Trim(FlatEdit_INFOADDR.Text)+''','+
'INFOPOSTCODE='''+Trim(FlatEdit_INFOPOSTCODE.Text)+''','+
'EMAIL='''+Trim(FlatEdit_EMAIL.Text)+''','+
'IDCARD='''+Trim(FlatEdit_IDCARD.Text)+''','+
'INFOBIRTH='+DateString+
' Where INFOCODE='+QueryCustInfoMember.FieldByName('INFOCODE').AsString;
End;
AnalyzeSQL(SQL);
Fun_ComponentStatus(Self,0,False,Panel8);
QueryCustInfoMember.Close;
QueryCustInfoMember.Open;
End;
3:
Begin
If Trim(FlatEdit_GMEMO_NAME.Text)='' Then
Begin
Application.MessageBox('请填写集团纪念日标题！','提示',MB_ICONINFORMATION);
FlatEdit_GMEMO_NAME.SetFocus;
Exit;
End;
If Trim(FlatEdit_GMEMO_SDATE.Text)='' Then
DateString:=''''+''''
Else
DateString:='To_Date('''+Trim(FlatEdit_GMEMO_SDATE.Text)+''',''YYYY-MM-DD'')';
If Trim(FlatEdit_GMEMO_EDATE.Text)='' Then
EndDateString:=''''+''''
Else
EndDateString:='To_Date('''+Trim(FlatEdit_GMEMO_EDATE.Text)+''',''YYYY-MM-DD'')';
If Trim(FlatEdit_SEND_TIME.Text)='' Then
SendDateString:=''''+''''
Else
SendDateString:='To_Date('''+Trim(FlatEdit_SEND_TIME.Text)+''',''YYYY-MM-DD'')';
If FlatCheckBox_SMS_FLAG.Checked Then
SendFlag:='1'
Else
SendFlag:='0';
If iSign=1 Then
Begin
SQL:='Insert Into T_F_GroupMemoDay(JTYHDM,GMEMO_ID,GMEMO_SDATE,GMEMO_EDATE,GMEMO_MEMO,GMEMO_NAME,SMS_FLAG,SEND_TIME) Values('+
QueryJTYH.FieldByName('JTYHDM').AsString+',Seq_GroupMemoDay_ID.Nextval,'+DateString+','+EndDateString+','''+
Trim(FlatMemo_GMEMO_MEMO.Text)+''','''+Trim(FlatEdit_GMEMO_NAME.Text)+''','+SendFlag+','+SendDateString+')';
End;
If iSign=2 Then
Begin
SQL:='Update T_F_GroupMemoDay Set GMEMO_SDATE='+DateString+','+
'GMEMO_EDATE='+EndDateString+','+
'GMEMO_MEMO='''+Trim(FlatMemo_GMEMO_MEMO.Text)+''','+
'GMEMO_NAME='''+Trim(FlatEdit_GMEMO_NAME.Text)+''','+
'SMS_FLAG='+ SendFlag+','+
'SEND_TIME='+SendDateString+
' Where GMEMO_ID='+QueryGroupMemoDay.FieldByName('GMEMO_ID').AsString;
End;
AnalyzeSQL(SQL);
Fun_ComponentStatus(Self,0,False,Panel10);
QueryGroupMemoDay.Close;
QueryGroupMemoDay.Open;
End;
4:
Begin
End;
End;
Fun_ButtonStatus(Self,False);
Panelleft.Enabled:=True;
iSign:=0;
end;
procedure TForm_ArchivesGroupInfo.Btn_ExitClick(Sender: TObject);
begin
close;
end;
procedure TForm_ArchivesGroupInfo.FlatComboBox_CityNoChange(Sender: TObject);
begin
Fun_GetCounty(FlatComboBox_Off_No_Home,'',FlatComboBox_CityNo.Text,0,PS_HomeName);
end;
procedure TForm_ArchivesGroupInfo.Btn_AddClick(Sender: TObject);
begin
iSign:=1;
Panelleft.Enabled:=False;
Case PageControl1.ActivePageIndex Of
0:
Begin
Fun_ButtonStatus(Self,True); //初始化按扭状态
Fun_ComponentStatus(Self,0,True,Panel3); //激活集团信息控件
Fun_ComponentStatus(Self,1,False,Panel3); //清除集团集息控件资料
//读取最大集团号码 --集团号码代码有格式
QueryTemp.Close;
QueryTemp.SQL.Clear;
QueryTemp.SQL.Add('Select Nvl(Max(JTYHDM),100)+1 MaxJTYHDM From T_F_GroupInfo');
QueryTemp.Open;
FlatEdit_jtyhdm.text:=querytemp.fieldbyname('maxjtyhdm').asstring;
FlatComboBox_CityNo.ItemIndex:=FlatComboBox_CityNo.Items.IndexOf(PS_CityName); //初始化地市控件
FlatComboBox_CityNoChange(Nil); //初始化局向控件
FlatComboBox_Off_No_Home.ItemIndex:=FlatComboBox_Off_No_Home.Items.IndexOf(PS_HomeName); //定位局向控件
FlatEdit_GH.Text:=GH; //初始化管辖客户经理
FlatComboBox_GroupFlag.ItemIndex:=1; //集团类型
FlatComboBox_JTBZ.ItemIndex:=0; //集团标志
//成为大客户时间
DateTimePicker_Be_G_Date.DateTime:=Date;
//离开大客户时间
DateTimePicker_En_G_Date.DateTime:=Date;
DateTimePicker_En_G_Date.Checked:=False;
//VPN生效时间
DateTimePicker_VPNBEGINDATA.DateTime:=Date;
DateTimePicker_VPNBEGINDATA.Checked:=False;
//VPN失效时间
DateTimePicker_VPNENDDATA.DateTime:=Date;
DateTimePicker_VPNENDDATA.Checked:=False;
FlatEdit_JTYHMC.SetFocus;
End;
1:
Begin
End;
2:
Begin
Fun_ComponentStatus(Self,0,True,Panel8);
Fun_ComponentStatus(Self,1,False,Panel8);
Fun_ButtonStatus(Self,True);
FlatComboBox_INFOGENDER.ItemIndex:=1;
FlatComboBox_EDUCODE.ItemIndex:=1;
FlatEdit_INFONAME.SetFocus;
End;
3:
Begin
Fun_ComponentStatus(Self,0,True,Panel10);
Fun_ComponentStatus(Self,1,False,Panel10);
Fun_ButtonStatus(Self,True);
FlatEdit_GMEMO_NAME.SetFocus;
End;
4:
Begin
End;
End;
end;
procedure TForm_ArchivesGroupInfo.Btn_DeleteClick(Sender: TObject);
Var
SQL:String;
begin
Case PageControl1.ActivePageIndex Of
0:
Begin
If QueryJtyh.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的集团客户资料！','提示',MB_ICONINFORMATION);
Exit;
End;
If Application.MessageBox('是否确定删除该集团客户资料.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Delete From T_F_GroupInfo Where JTYHDM='+QueryJtyh.FieldByName('JTYHDM').AsString;
AnalyzeSQL(SQL); //执行SQL语句
QueryJtyh.Close;
QueryJtyh.Open;
End;
1:
Begin
End;
2:
Begin
If QueryCustInfoMember.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的集团客户联络员资料！','提示',MB_ICONINFORMATION);
Exit;
End;
If Application.MessageBox('是否确定删除该集团客户联络员资料.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Delete From T_F_CustInfoMember Where INFOCODE='+QueryCustInfoMember.FieldByName('INFOCODE').AsString;
AnalyzeSQL(SQL); //执行SQL语句
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -