FormSafeEnterpriseAdd := TFormSafeEnterpriseAdd.Create(Application);
FormSafeEnterpriseAdd.cdsAdd.Data := Self.cds.Data;
FormSafeEnterpriseAdd.istate := 1;
FormSafeEnterpriseAdd.cdsAdd.Append;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('cid').AsString := strcid;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('Edit_Flag').AsString := GetDateTime;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('del_Flag').AsInteger := 0;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_bl_WHP').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_bl_ZDWXY').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_bl_JKHXP').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_bl_YZDP').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_bl_JDP').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_bl_Rent_house').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_BL_ZDQY').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('ADD_DATE').AsString := strDate;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('ADD_PERSON_CID').AsString := multivar.strLoginUsercid;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('ADD_PERSON').AsString := multivar.strLoginUserName;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_XUANZE').AsString := 'False';
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_OBOCID').AsString := multivar.strLoginUsercid;
FormSafeEnterpriseAdd.cdsAdd.FieldByName('E_ONEBYONE').AsString := multivar.strLoginUserName;
FormSafeEnterpriseAdd.ShowModal;
|