unit_managerachives.pas

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

      2:
         Begin
            dbgWork_expe.Enabled:=False;
            dtpWORKEXPE_BGN_TIME.DateTime:=Now;
            dtpWORKEXPE_END_TIME.DateTime:=Now;
            co_GROUPCALLING.ItemIndex:=co_GROUPCALLING.Items.Count-1;
            ed_WORKUNIT.SetFocus;
         End;
      3:
         Begin
            dbgActi_Prize.Enabled:=False;
            dtp_ACTI_TIME_DATA.DateTime:=Now;
            ed_ACTIVE.SetFocus;
         End;
      4:
         Begin
            dbgSoci_Rela.Enabled:=False;
            co_SocietyNo.ItemIndex:=0;
            coSOCIRELA_SEXNo.ItemIndex:=0;
            edSOCIRELA_NAME.SetFocus;
         End;
   End;
end;

procedure TFrm_ManagerAchives.Btn_ModifyClick(Sender: TObject);
begin
   If QueryManager.IsEmpty Then
      Begin
         Application.MessageBox('请先选择将要操作的客户经理！','提示',MB_ICONEXCLAMATION);
         Exit;
      End;

   Case pcstuffinfo.ActivePageIndex Of
      0:
         Begin
            If QueryManager.IsEmpty Then
               Begin
                  Application.MessageBox('请选择将要修改的客户经理资料！','提示',MB_ICONEXCLAMATION);
                  Exit;
               End;
            ed_WK_NO.ReadOnly:=True;            //禁止修改工号
            CB_CityNo.Enabled:=False;           //禁止修改地市
            CB_Off_No_Home.Enabled:=False;      //禁止修改局向
            ed_Name.SetFocus;
         End;
      1:
         Begin
            If QueryOther.IsEmpty Then
               Begin
                  Application.MessageBox('请选择将要修改的客户经理培训资料！','提示',MB_ICONEXCLAMATION);
                  Exit;
               End;
            dbgtrain.Enabled:=False;
            ed_TRAIN_TOPI.ReadOnly:=True;
            me_TRAIN_CONT.SetFocus;
         End;
      2:
         Begin
            If QueryOther.IsEmpty Then
               Begin
                  Application.MessageBox('请选择将要修改的客户经理工作经历资料！','提示',MB_ICONEXCLAMATION);
                  Exit;
               End;
            dbgWork_expe.Enabled:=False;
            ed_WORKUNIT.ReadOnly:=True;
            //出错，他为第1页的控件
            //me_REMARK.SetFocus;
            memo_REMARK.SetFocus;
         End;
      3:
         Begin
            If QueryOther.IsEmpty Then
               Begin
                  Application.MessageBox('请选择将要修改的客户经理重要活动(奖惩)资料！','提示',MB_ICONEXCLAMATION);
                  Exit;
               End;
            dbgWork_expe.Enabled:=False;
            ed_ACTIVE.ReadOnly:=True;
            me_PRIZE.SetFocus;
         End;
      4:
         Begin
            If QueryOther.IsEmpty Then
               Begin
                  Application.MessageBox('请选择将要修改的客户经理社会关系资料！','提示',MB_ICONEXCLAMATION);
                  Exit;
               End;
            dbgSoci_Rela.Enabled:=False;
            edSOCIRELA_NAME.ReadOnly:=True;
            edSOCIRELA_DUTY.SetFocus;
         End;
   End;
   Panel1.Enabled:=False;              //禁止用户进行查询客户
   iSign:=2;
   Fun_ButtonStatus(self,true); //按钮有效性控制
   Fun_ComponentStatus(self,0,true); //输框状态控制(可输入)

end;

procedure TFrm_ManagerAchives.Btn_SaveClick(Sender: TObject);
Var
   SqlString:String;
   FieldString:String;
   ValueString:String;
   vGH:String;
begin
   SqlString:='';
   If iSign=1 Then   //增加记录
      Case pcstuffinfo.ActivePageIndex Of
         0:
            Begin
               If Trim(ED_WK_NO.Text)='' Then
                  Begin
                     Application.MessageBox('必须填写客户经理工号！','提示',MB_ICONEXCLAMATION);
                     ED_WK_NO.SetFocus;
                     Exit;
                  End;

               vGH:=Trim(ED_WK_NO.Text);

               FieldString:='';
               ValueString:='';
               If dtp_BIRTHDAY.Checked Then
                  Begin
                     FieldString:=',BIRTHDAY';
                     ValueString:=',To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_BIRTHDAY.DateTime)+''',''YYYY-MM-DD'')';
                  End;
               If dtp_WORKDATE.Checked Then
                  Begin
                     FieldString:=FieldString+',WORKDATE';
                     ValueString:=ValueString+',To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_WORKDATE.DateTime)+''',''YYYY-MM-DD'')';
                  End;

               SqlString:='Insert Into T_F_Manager'+
                          '(CityNo,Off_No_Home,RoomID,WK_No,Name,Sex,Password,DIPLOMA_ID,Folk,Duty,POLI_VISAGE,LEVEL_SEQ,'+
                          'ID_CARD,SPECIALTY,SID,E_Mail,HomeTel,HOMEPOST,HomeAdd,NowTel,NOWPOSTALCODE,'+
                          'NOWADDRESS,UP_WK_NO,STAT,INTEREST,SKILL,DESCRIPTION'+FieldString+')'+
                          ' Values '+
                          '('''+Fun_GetCity(CB_CityNo,'',1)+''','+Fun_GetCounty(CB_Off_No_Home,'','',1)+','+Fun_GetRoom(co_RoomID,'',CB_CityNo.Text,CB_Off_no_home.Text,1,'')+','''+Trim(ED_WK_NO.Text)+''','''+ED_Name.Text+''','''+
                          Fun_GetCodeNAME(Co_Sex)+''','''+Ed_Password.Text+''','+Fun_GetCodeName(Co_Diploma_ID)+','+Fun_GetCodeName(CB_Folk)+','''+Ed_Duty.Text+''','''+
                          Ed_Poli_Visage.Text+''','+Fun_GetCodeName(CO_Level_SEQ)+','''+Ed_ID_Card.Text+''','''+ed_SPECIALTY.Text+''','''+Ed_Sid.Text+''','''+
                          Ed_E_Mail.Text+''','''+Ed_HomeTel.Text+''','''+Ed_HomePost.Text+''','''+Ed_HomeAdd.Text+''','''+Ed_NowTel.Text+''','''+Ed_NowPostalcode.Text+''','''+
                          Ed_NowAddress.Text+''','''+ED_UP_WK_NO.Text+''','+Fun_GetCodeName(Co_Stat)+','''+Ed_Interest.Text+''','''+Ed_Skill.Text+''','''+MM_DESCRIPTION.Text+''''+ValueString+')';
               // modify by zengzc 2002 08 23 加入关系室的代码，由于原来关系室全部不可以进行修改(默认的时候使用1，原来的)
               DM_Main.Databasedh.StartTransaction;
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add(SQLString);
               try
                 QueryAnalyze.ExecSQL;
                 DM_Main.Databasedh.Commit;
                 QueryManager.Close;
                 QueryManager.Open;
                 QueryManager.Locate('WK_NO',vGH,[]);
               except
                 DM_Main.Databasedh.RollBack ;
               raise ;
               end;
            End;
         1:
            Begin
               SqlString:='Insert Into T_F_Train'+
                         '(TRAIN_ID,WK_NO,TRAIN_TOPI,TRAIN_CONT,BGN_TIME,END_TIME,TRAIN_RESU,REMARK) Values (SEQ_Train_ID.Nextval,'''+
                         QueryManager.FieldByName('WK_NO').AsString+''','''+Ed_TRAIN_TOPI.Text+''','''+Me_TRAIN_CONT.Text+''',To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_Bgn_time.DateTime)+''',''YYYY-MM-DD''),'+
                         'To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_End_time.DateTime)+''',''YYYY-MM-DD''),'''+Me_TRAIN_RESU.Text+''','''+Me_REMARK.Text+''')';
               DM_Main.Databasedh.StartTransaction;
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add(SQLString);
               try
                 QueryAnalyze.ExecSQL;
                 DM_Main.Databasedh.Commit;
                 QueryOther.Close;
                 QueryOther.Open;
                 dbgtrain.Enabled:=True;
               except
                 DM_Main.Databasedh.RollBack ;
               raise ;
               end;
            End;
         2:
            Begin
               SqlString:='Insert Into T_F_WorkHis'+
                         '(HIS_ID,WK_NO,GROUPCALLING,DEPT,DUTY,BGN_TIME,END_TIME,REMARK,WorkUnit) Values (SEQ_WorkHis_id.Nextval,'''+
                          QueryManager.FieldByName('WK_NO').AsString+''','+Fun_GetCodeName(co_GROUPCALLING)+','''+Edit_DEPT.Text+''','''+Edit_DUTY.Text+''','+
                         'To_Date('''+FormatDateTime('YYYY-MM-DD',dtpWORKEXPE_BGN_TIME.DateTime)+''',''YYYY-MM-DD''),To_Date('''+FormatDateTime('YYYY-MM-DD',dtpWORKEXPE_BGN_TIME.DateTime)+''',''YYYY-MM-DD''),'''+
                         Memo_REMARK.Text+''','''+Ed_WorkUnit.Text+''')';
               DM_Main.Databasedh.StartTransaction;
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add(SQLString);
               try
                 QueryAnalyze.ExecSQL;
                 DM_Main.Databasedh.Commit;
                 QueryOther.Close;
                 QueryOther.Open;
                 dbgWork_expe.Enabled:=True;
               except
                 DM_Main.Databasedh.RollBack ;
               raise ;
               end;
            End;
         3:
            Begin
               SqlString:='Insert Into T_F_Active'+
                         '(ACTIVE_ID,WK_NO,ACTIVE,PRIZE,PUNISH,ADVICE,ACTI_TIME_DATA) Values (SEQ_Active_id.Nextval,'''+
                          QueryManager.FieldByName('WK_NO').AsString+''','''+Ed_ACTIVE.Text+''','''+Me_PRIZE.Text+''','''+Me_PUNISH.Text+''','''+Me_ADVICE.Text+''','+
                         'To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_ACTI_TIME_DATA.DateTime)+''',''YYYY-MM-DD''))';
               DM_Main.Databasedh.StartTransaction;
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add(SQLString);
               try
                 QueryAnalyze.ExecSQL;
                 DM_Main.Databasedh.Commit;
                 QueryOther.Close;
                 QueryOther.Open;
                 dbgActi_Prize.Enabled:=True;
               except
                 DM_Main.Databasedh.RollBack ;
               raise ;
               end;
            End;
         4:
            Begin
               SqlString:='Insert Into T_F_Connection'+
                         '(CONNE_ID,WK_NO,SOTI_ID,NAME,SEX,WORK_UNIT,DUTY,PHONE_NO) Values (SEQ_connection_ID.Nextval,'''+
                          QueryManager.FieldByName('WK_NO').AsString+''','+Fun_GetCodeName(Co_SocietyNo)+','''+edSOCIRELA_NAME.Text+''','''+Fun_GetCodeName(coSOCIRELA_SEXNo)+''','''+
                          edSOCIRELA_WORK_UNIT.Text+''','''+edSOCIRELA_DUTY.Text+''','''+edSOCIRELA_PHONE_NO.Text+''')';
               DM_Main.Databasedh.StartTransaction;
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add(SQLString);
               try
                 QueryAnalyze.ExecSQL;
                 DM_Main.Databasedh.Commit;
                 QueryOther.Close;
                 QueryOther.Open;
                 dbgSoci_Rela.Enabled:=True;
               except
                 DM_Main.Databasedh.RollBack ;
               raise ;
               end;
            End;
      End;
////////////////////////////////////////////////////////////////////////////////////////////
//修改
   If iSign=2 Then
      Case pcstuffinfo.ActivePageIndex Of
         0:
            Begin
               vGH:=Trim(ed_WK_NO.Text);
               FieldString:='';
               If dtp_BIRTHDAY.Checked Then
                  FieldString:=',BIRTHDAY=To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_BIRTHDAY.DateTime)+''',''YYYY-MM-DD'')'
               Else
                  FieldString:=',Birthday='''+'''';

               If dtp_WORKDATE.Checked Then
                  FieldString:=FieldString+',WORKDATE=To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_WORKDATE.DateTime)+''',''YYYY-MM-DD'')'
               Else
                  FieldString:=FieldString+',WORKDATE='''+'''';

               SqlString:='Update T_F_Manager Set CityNo='''+Fun_GetCity(CB_CityNo,'',1)+''','+
                                                 'Off_No_Home='+Fun_GetCounty(CB_Off_No_Home,'','',1)+','+
                                                 'RoomID='''+Fun_GetRoom(co_RoomID,'',CB_CityNo.Text,CB_Off_no_home.Text,1,'')+''','+
                                                 //修改关系室，modify by zengzc 2002 08 23 原来的不可以进行修改(修改之后的rela_code=1)
                                                 'WK_No='''+ED_WK_NO.Text+''','+
                                                 'Name='''+ED_Name.Text+''','+
                                                 'Sex='''+Fun_GetCodeNAME(Co_Sex)+''','+
                                                 'Password='''+Ed_Password.Text+''','+
                                                 'DIPLOMA_ID='''+Fun_GetCodeName(Co_Diploma_ID)+''','+
                                                 'Folk='''+Fun_GetCodeName(CB_Folk)+''','+
                                                 'Duty='''+Ed_Duty.Text+''','+
                                                 'POLI_VISAGE='''+Ed_Poli_Visage.Text+''','+
                                                 'LEVEL_SEQ='+Fun_GetCodeName(CO_Level_SEQ)+','+
                                                 'ID_CARD='''+Ed_ID_Card.Text+''','+
                                                 'SPECIALTY='''+ed_SPECIALTY.Text+''','+
                                                 //'SID='+Ed_Sid.Text+','+
                                                 'SID='''+Ed_Sid.Text+''','+
                                                 'E_Mail='''+Ed_E_Mail.Text+''','+
                                                 'HomeTel='''+Ed_HomeTel.Text+''','+
                                                 'HOMEPOST='''+Ed_HomePost.Text+''','+
                                                 'HomeAdd='''+Ed_HomeAdd.Text+''','+
                                                 'NowTel='''+Ed_NowTel.Text+''','+
                                                 'NOWPOSTALCODE='''+Ed_NowPostalcode.Text+''','+
                                                 'NOWADDRESS='''+Ed_NowAddress.Text+''','+
                                                 'UP_WK_NO='''+ED_UP_WK_NO.Text+''','+
                                                 'STAT='+Fun_GetCodeName(Co_Stat)+','+
                                                 'INTEREST='''+Ed_Interest.Text+''','+
                                                 'SKILL='''+Ed_Skill.Text+''','+
                                                 'DESCRIPTION='''+MM_DESCRIPTION.Text+''''+FieldString+
                                            ' Where WK_No='''+Trim(Ed_WK_No.Text)+'''';
               DM_Main.Databasedh.StartTransaction;
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add(SQLString);
               try
                 QueryAnalyze.ExecSQL;
                 DM_Main.Databasedh.Commit;
                 QueryManager.Close;
                 QueryManager.Open;
                 QueryManager.Locate('WK_No',vGH,[]);
               except
                 DM_Main.Databasedh.RollBack ;
               raise ;
               end;
            End;
         1:
            Begin
               SqlString:='Update T_F_Train Set TRAIN_TOPI='''+Ed_TRAIN_TOPI.Text+''','+
                                               'TRAIN_CONT='''+Me_TRAIN_CONT.Text+''','+
                                               'BGN_TIME=To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_Bgn_time.DateTime)+''',''YYYY-MM-DD''),'+
                                               'END_TIME=To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_End_time.DateTime)+''',''YYYY-MM-DD''),'+