frmrename.pas

小灵通机卡分离模块的设计.建立在数据库服务器

          if ls_oldVal <> ls_newVal then
          begin
            getFieldBySeq(i, ls_fieldCode, ls_fieldName);
            appendvalue('E7', IntToStr(i), ls_fieldCode, ls_fieldName, '',
              operFlag, IntToStr(k), ls_newVal, ls_oldVal);
          end;
        end;
      end;
    end;

  if cbSame.checked then
  begin
      if lwlBkOwnerInfo.fieldbyname('cust_id').AsString <> lwlBkUserInfo.fieldbyname('cust_id').AsString then
      begin
          K:=k+1;
          operFlag := 'D';
          ls_newVal := '';
          ls_oldVal := '';
          ls_new_cust_id :=trim(UserInfo1.LwlUserInfo.fieldbyname('cust_id').AsString);
          ls_old_cust_id := trim(LwlBkUserInfo.fieldbyname('cust_id').AsString);
          appendvalue('E7', '2', 'cust_id', '客户编号', 'number', operFlag, IntToStr(k),ls_new_cust_id, ls_old_cust_id);
          for i := 3 to 43 do
          begin
              ls_fieldCode := '';
              ls_fieldName := '';
              ls_newVal := '';
              ls_oldVal := lwlBkUserInfo.Fields[i].AsString;
              getFieldBySeq(i, ls_fieldCode, ls_fieldName);
              appendvalue('E7', IntToStr(i), ls_fieldCode, ls_fieldName, '',operFlag, IntToStr(k), ls_newVal, ls_oldVal);
            end;
        end;
    end
  else
  begin
      if lwlBkOwnerInfo.fieldbyname('cust_id').AsString =lwlBkUserInfo.fieldbyname('cust_id').AsString then
      begin
          k:=k+1;
          operFlag := 'A';
          ls_newVal :=trim(UserInfo2.LwlUserInfo.fieldbyname('cust_id').AsString);
          if ls_newVal = '' then ls_newVal := 'c02';
          ls_oldVal := '';
          appendvalue('E7', '2', 'cust_id', '客户编号', 'number', operFlag, IntToStr(k),ls_newVal, ls_oldVal);
          appendvalue('E7', '3', 'cust_code', '客户编码', 'VARCHAR2', operFlag,IntToStr(k),ls_newVal, ls_oldVal);
          for i := 4 to 43 do
          begin
              ls_fieldCode := '';
              ls_fieldName := '';
              ls_newVal := UserInfo2.LwlUserInfo.Fields[i].AsString;
              ls_oldVal := '';
              getFieldBySeq(i, ls_fieldCode, ls_fieldName);
              appendvalue('E7', IntToStr(i), ls_fieldCode, ls_fieldName, '', operFlag, IntToStr(k), ls_newVal, ls_oldVal);
          end;
        end
      else if li_UserChangeNum > 0 then
      begin
            k:=k+1;
            operFlag := 'M';
            ls_newVal :=trim(UserInfo2.LwlUserInfo.fieldbyname('cust_id').AsString);
            ls_oldVal := trim(LwlBkUserInfo.fieldbyname('cust_id').AsString);

             //由于改客户基本信息cust_id不变
            appendvalue('E7', '2', 'cust_id', '客户编号', 'number', operFlag,IntToStr(k), ls_oldVal, ls_oldVal);
            //appendvalue('E7', '2', 'cust_id', '客户编号', 'number', operFlag,IntToStr(k), ls_newVal, ls_oldVal);
            for i := 3 to 43 do
            begin
                ls_fieldCode := '';
                ls_fieldName := '';
                ls_newVal := UserInfo2.LwlUserInfo.Fields[i].AsString;
                ls_oldVal := lwlBkUserInfo.Fields[i].AsString;
                if ls_oldVal <> ls_newVal then
                begin
                    getFieldBySeq(i, ls_fieldCode, ls_fieldName);
                    appendvalue('E7', IntToStr(i), ls_fieldCode, ls_fieldName,'', operFlag, IntToStr(k), ls_newVal, ls_oldVal);
                end;
           end;
        end;
    end;

  {写pdinfo表的信息变动情况}
  ls_new_cust_id := '';
  ls_old_cust_id := '';
  {if trim(currYwm) = '03' then
    ls_new_cust_id := trim(lwlBkOwnerInfo.fieldbyname('cust_id').AsString)
  else }
  ls_new_cust_id :=trim(UserInfo1.LwlUserInfo.fieldbyname('cust_id').AsString);
  ls_old_cust_id := trim(lwlBkOwnerInfo.fieldbyname('cust_id').AsString);
  if ls_new_cust_id <> ls_old_cust_id then
    appendvalue('A0', '3', 'owncust_id', '所有者客户编号', 'number', 'M', '1',ls_new_cust_id, ls_old_cust_id);

  ls_new_cust_id := '';
  ls_old_cust_id := '';
  ls_new_cust_id := trim(UserInfo2.LwlUserInfo.fieldbyname('cust_id').AsString);
  ls_old_cust_id := trim(lwlBkUserInfo.fieldbyname('cust_id').AsString);

  if ls_new_cust_id <> ls_old_cust_id then
  begin
      if ls_new_cust_id = '' then ls_new_cust_id := 'c02';
      appendvalue('A0', '4', 'usercust_id', '使用者客户编号', 'number', 'M','1', ls_new_cust_id, ls_old_cust_id);
  end;
  result := True;

end;

procedure TRename.getFieldBySeq(seq: integer; var fieldCode, fieldName: string);
begin
  if seq = 0 then
    begin
      fieldCode := 'produce_id';
      fieldName := '生产编号';
      exit;
    end;
  if seq = 1 then
    begin
      fieldCode := 'produce_type';
      fieldName := '生产类型';
      exit;
    end;
  if seq = 2 then
    begin
      fieldCode := 'cust_id';
      fieldName := '客户编号';
      exit;
    end;
  if seq = 3 then
    begin
      fieldCode := 'cust_code';
      fieldName := '客户编码';
      exit;
    end;
  if seq = 4 then
    begin
      fieldCode := 'cust_pinyin';
      fieldName := '客户名称简拼';
      exit;
    end;
  if seq = 5 then
    begin
      fieldCode := 'town_flag';
      fieldName := '城乡分类';
      exit;
    end;
  if seq = 6 then
    begin
      fieldCode := 'cust_label';
      fieldName := '客户分类';
      exit;
    end;
  if seq = 7 then
    begin
      fieldCode := 'cust_kind';
      fieldName := '客户性质';
      exit;
    end;
  if seq = 8 then
    begin
      fieldCode := 'trade_type';
      fieldName := '客户性质明细';
      exit;
    end;
  if seq = 9 then
    begin
      fieldCode := 'cust_type';
      fieldName := '客户类型';
      exit;
    end;
  if seq = 10 then
    begin
      fieldCode := 'cust_level';
      fieldName := '客户等级';
      exit;
    end;
  if seq = 11 then
    begin
      fieldCode := 'serve_level';
      fieldName := '客户服务等级';
      exit;
    end;
  if seq = 12 then
    begin
      fieldCode := 'import_level';
      fieldName := '客户重要等级';
      exit;
    end;
  if seq = 13 then
    begin
      fieldCode := 'inc_level_code';
      fieldName := '客户收入等级';
      exit;
    end;
  if seq = 14 then
    begin
      fieldCode := 'con_level_code';
      fieldName := '客户消费等级';
      exit;
    end;
  if seq = 15 then
    begin
      fieldCode := 'adscript_co';
      fieldName := '客户归属公司';
      exit;
    end;
  if seq = 16 then
    begin
      fieldCode := 'cust_name';
      fieldName := '客户名称';
      exit;
    end;
  if seq = 17 then
    begin
      fieldCode := 'cust_identify';
      fieldName := '客户身份';
      exit;
    end;
  if seq = 18 then
    begin
      fieldCode := 'cert_type';
      fieldName := '证件类型';
      exit;
    end;
  if seq = 19 then
    begin
      fieldCode := 'cert_no';
      fieldName := '证件号码';
      exit;
    end;
  if seq = 20 then
    begin
      fieldCode := 'cert_term';
      fieldName := '证件期限';
      exit;
    end;
  if seq = 21 then
    begin
      fieldCode := 'secret_level';
      fieldName := '客户保密级别';
      exit;
    end;
  if seq = 22 then
    begin
      fieldCode := 'cust_pwd';
      fieldName := '客户密码';
      exit;
    end;
  if seq = 23 then
    begin
      fieldCode := 'cont_man';
      fieldName := '联系人';
      exit;
    end;
  if seq = 24 then
    begin
      fieldCode := 'cont_dept';
      fieldName := '联系人部门';
      exit;
    end;
  if seq = 25 then
    begin
      fieldCode := 'cont_headship';
      fieldName := '联系人职务';
      exit;
    end;
  if seq = 26 then
    begin
      fieldCode := 'cont_gender';
      fieldName := '性别';
      exit;
    end;
  if seq = 27 then
    begin
      fieldCode := 'cont_tel1';
      fieldName := '联系电话1';
      exit;
    end;
  if seq = 28 then
    begin
      fieldCode := 'cont_tel2';
      fieldName := '联系电话2';
      exit;
    end;
  if seq = 29 then
    begin
      fieldCode := 'fax';
      fieldName := '传真';
      exit;
    end;
  if seq = 30 then
    begin
      fieldCode := 'email';
      fieldName := 'Email地址';
      exit;
    end;
  if seq = 31 then
    begin
      fieldCode := 'comm_addr';
      fieldName := '通讯地址';
      exit;
    end;
  if seq = 32 then
    begin
      fieldCode := 'zip';
      fieldName := '邮政编码';
      exit;
    end;
  if seq = 33 then
    begin
      fieldCode := 'comm_mode';
      fieldName := '常用通信方式';
      exit;
    end;
  if seq = 34 then
    begin
      fieldCode := 'dwell_addr';
      fieldName := '客户住址';
      exit;
    end;
  if seq = 35 then
    begin
      fieldCode := 'integral';
      fieldName := '客户积分';
      exit;
    end;
  if seq = 36 then
    begin
      fieldCode := 'cre_code';
      fieldName := '信用度';
      exit;
    end;
  if seq = 37 then
    begin
      fieldCode := 'credit_value';
      fieldName := '信用值';
      exit;
    end;
  if seq = 38 then
    begin
      fieldCode := 'rec_time';
      fieldName := '资料录入时间';
      exit;
    end;
  if seq = 39 then
    begin
      fieldCode := 'itime';
      fieldName := '第一次产品使用时间';
      exit;
    end;
  if seq = 40 then
    begin
      fieldCode := 'regi_info';
      fieldName := '提示信息';
      exit;
    end;
  if seq = 41 then
    begin
      fieldCode := 'limit_time';
      fieldName := '有效时间';
      exit;
    end;
  if seq = 42 then
    begin
      fieldCode := 'cust_state';
      fieldName := '客户状态';
      exit;
    end;
  if seq = 43 then
    begin
      fieldCode := 'comments';
      fieldName := '备注';
      exit;
    end;
end;

end.